;--------TGA----------
;ﭭ 横 १ pאַ㣮쭮 ,   Z
 G0G97G90G40G29
;᮫⭠ p 窨 p    Z
 E31=PL1
;᮫⭠ p 窨 砫 ࠡ⪨   X
 E32=PL2
;p 筮 p    Z
 E33=PL3
;७  
 E34=PL4
;ਭ 㬥
 E35=PL5
;뤥p ६
 E36=PL6
;v=0/1 (=0 - ⪨ ; =1 - ⪮ )
 E37=0
 E37=PL7
;----------------------
;(M) p p饭 诨           
 E3=PL12
;(F)  p p⪨               
 E25=PL8
;(S) p p饭 诨 p p⪨              
 E26=PL9
;(f)  p⪨                 
 E27=PL10
;(s) p p饭 诨 p⪨  
 E28=PL11
 
;p  
 E41 = E33 + E35
;p ண 室   Z
 E44 = ABS(E33 - E31)
 E45 = ABS(E35 - E44)
                 
                 FE25 SE26 ME3
;---------------------
TMR=E36
(DPI, $PS1, $PS2)
 
;
G0 $PS1E31 $PS2E32
(TGL, $PS1E33, $PS2E34, KE35)
(BEQ,E37,0,END)
 
;⪠  
  (BGT,E27,0,1)
   E27=E25
     "1"
   (BGT,E28,0,2)
   E28=E26 
     "2"
                 FE27 SE28 ME3
 
 (BLE,E45,1,L)
 
 E42 = E31 - 1
 (BNC,CLEAR) 
 
 "L"
 (BLE,E45,0.00001,END)
 E42 = E41 + E45/2
 
 "CLEAR" 
;p p 室  㡨   X
 E43 = E34 + 2
 
G0 G27 $PS1E42 $PS2E32
               $PS2E43
G1 G4  $PS1E31  $PS2E34
G1 G4  $PS1E41
G0     $PS1E31 $PS2E32
"END"
