;---------- FILFLR ------------
; ﭭ 横 ᢥ૥ ⢥⨩  ਬ אַ㣮쭨
;------------------------------
G0 G94 G97 G90 G40
; ६    ⢥
E37=PL9
TMR=E37
(BGT,TMR,0,A)
E3=81
(BNC,B)
"A"
E3=82
"B"
; ⢮ ⢥⨩  X 
E1=PL6
; ⢮ ⢥⨩  Y
E2=PL7
;  ஭  X
E31=PL4
;  ஭  Y 
E32=PL5
; न ࢮ ⢥  X
E33=PL1
; न ࢮ ⢥  Y
E34=PL2
; न 窨 砫 ࠡ⪨     ࠡ⪨  Z
E35=PL3
; न 㡨 ⢥ 
E36=PL8
;-----------------------------
E39=0
E4=E1
E5=E2
; -----------------------------
;       <  >
(BEQ,E31,0,A1)
(BNC,A2)
"A1"
E2=1
E39=1
(BNC,SET)
"A2"
(BEQ,E32,0,B1)
;(BNC,B2)
(BNC,SET)
"B1"
E1=1
E39=1
;(BNC,SET)
;"B2"
"SET"
(BGT,E1,1,1)
(DIS,"N GOOD")
"1"
(BGT,E2,1,OK)
(DIS,"NOT GOOD")
"OK"
E4=E4-1
E5=E5-1
E41=E31/E4
E42=E32/E5
;--------------------------
(DPI,$PS1,$PS2)
(UIO,$PS1E33,$PS2E34)
GE3 RE35 $PS3E36
$PS1  $PS2
;-------------------------------
(BEQ,E1,1,ORIZ)
(BEQ,E2,1,VERT)
;-------------------------------
"ORIZ"
;E4=E4-1
(RPT,E4)
G91 $PS1E41
(ERP)
(BEQ,E39,1,END)
;-----------------------
"VERT"
;E5=E5-1
(RPT,E5)
G91 $PS2E42
(ERP)
(BEQ,E39,1,END)
E41=NEG(E41)
E42=NEG(E42)
(RPT,E4)
G91 $PS1E41
(ERP)
E5=E5-1
(BLT,E5,1,END)
(RPT,E5)
G91 $PS2E42
(ERP)
"END"
G80 G90
G0 $PS1 $PS2
;-------- 室 祭 ------
E33=NEG(E33)
E34=NEG(E34)
(UIO,$PS1E33,$PS2E34)
;-----------------------
