;--------TGC----------
;ﭭ 横 १ pאַ㣮쭮 ,   X
G0G97G90G40G29
;᮫⭠ p 窨 砫 ࠡ⪨   Z
E31=PL1
;᮫⭠ p 窨 p    X  
E32=PL2
;p 筮 p    X
E33=PL3
;㡨 
E34=PL4
;ਭ 㬥
E35=PL5
;뤥p 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 + 2 * E35
;p ண 室   X
 E44 = ABS(E33 - E32)
 E45 = ABS(2 * E35 - E44)
 
                 FE25 SE26 ME3
;---------------------
TMR=E36
(DPI, $PS1, $PS2)
 
;
G0 $PS1E31 $PS2E32
(TGL, $PS2E33, $PS1E34, KE35)
(BEQ,E37,0,END)
 
;⪠  
  (BGT,E27,0,1)
   E27=E25
     "1"
   (BGT,E28,0,2)
   E28=E26 
     "2"
                 FE27 SE28 ME3
 
 (BLE,E45,2,L)
 
 E42 = E32 - 2
 (BNC,CLEAR) 
 
 "L"
 (BLE,E45,0.00001,END)
 E42 = E41 + E45/2
 
 "CLEAR" 
;p p 室  㡨   Z
 E43 = E34 + 1
 
G0 G27 $PS1E31 $PS2E42
       $PS1E43
G1 G4  $PS1E34 $PS2E32
G1 G4          $PS2E41
G0     $PS1E31 $PS2E32
 
"END"
