;V1.3---------- FLR ------------
;      
;-----------------------------
G0 G94 G97 G40 G90
;p    ⢥p
E39=PL9
TMR=E39
; ⢮ ⢥⨩  X
E1=PL6
; ⢮ ⢥⨩  Y
E2=PL7
;  ஭  X
E31=PL4
;  ஭  Y
E32=PL5
; न ࢮ ⢥  X
E33=PL1
; न ࢮ ⢥  Y
E34=PL2
; न 窨 砫 ࠡ⪨     ࠡ⪨  Z.
E36=PL3
; न 㡨 ⢥.
E37=PL8
; =81/82/83/84/85/86/89
E3=PL10
; . 㡨 ᢥ૥
E39=PL11
; . 㡨 ᢥ૥
E40=PL12
; 樥 㬥襭 蠣
E41=PL13
; 蠣 १
E45=PL14
;  ᢥ૥               
E27=PL15
;-----------------------------
;       <    >
E44=0
E4=E1
E5=E2
    (BEQ,E31,0,A1)
(BNC,A2)
;
"A1"
    E2=1
    E44=1
(BNC,SET)
;
"A2"
    (BEQ,E32,0,B1)
;
(BNC,SET)
"B1"
E1=1
E44=1
;
"SET"
(BGT,E1,1,1)
(DIS,"N GOOD")
;
"1"
(BGT,E2,1,OK)
(DIS,"NOT GOOD")
;
"OK"
E4=E4-1
E5=E5-1
E43=E31/E4
E42=E32/E5
;--------------------------
(DPI, $PS1, $PS2)
                                          ;
(BEQ,E3,89,G81)
(BEQ,E3,86,G81)
(BEQ,E3,85,G81)
(BEQ,E3,84,G84)
(BEQ,E3,83,G83)
(BEQ,E3,82,G81)
(BEQ,E3,81,G81)
(BNC,ERR)
                                          ;
"G81"
(UIO, $PS1 E33, $PS2 E34)
G $PS1 $PS2
GE3 R E36 $PS3 E37 F E27
(BNC,POINTS)
                                          ;
"G83"
(UIO, $PS1 E33, $PS2 E34)
G $PS1 $PS2
(BEQ,E40,0,G83I)
G E3 R E36 $PS3 E37 I E39 J E40 K E41 F E27
(BNC,POINTS)
                                          ;
"G83I"
G E3 R E36 $PS3 E37 I E39 F E27
(BNC,POINTS)
                                          ;
"G84"
(UIO, $PS1 E33, $PS2 E34)
G $PS1 $PS2
(BEQ,E45,0,G84F)
GE3 R E36 $PS3 E37 KE45 F E27
(BNC,POINTS)
                                          ;
"G84F"
GE3 R E36 $PS3 E37 F E27
(BNC,POINTS)
                                          ;
"POINTS"

$PS1 $PS2
;
(BEQ,E1,1,ORIZ1)
(BEQ,E2,1,VERT1)
                                          ;
"ORIZ1"
(RPT,E4)
G91 $PS1 E43
(ERP)
(BEQ,E44,1,FINISH)
                                          ;
"VERT1"
(RPT,E5)
G91 $PS2 E42
(ERP)
(BEQ,E44,1,FINISH)
E43=NEG(E43)
E42=NEG(E42)
(RPT,E4)
G91 $PS1 E43
(ERP)
                                          ;
E5=E5-1
(BLT,E5,1,FINISH)
(RPT,E5)
G91 $PS2 E42
(ERP)
"FINISH"
G80 G90
G0 $PS1 $PS2
                                          ;
;------------------------
E33=NEG(E33)
E34=NEG(E34)
(UIO,$PS1 E33,$PS2 E34)
                                          ;
(BNC,END)
                                          ;
"ERR"
(DIS,":<c>/=81; /=82; /=83; /=84")
SK342.BL=1
(DLY,2)
SK342.BL=0
(DIS,"                                ")
(DLY,2)
(BNC,ERR)
                                          ;
"END"
;---------  -----------
