;: = C0 =
SYVAR185.15CH="     1.02"
;
;PR1020-१ ७
       ;  ७ 
;PR1021-१ ७
       ; 2- ( ᯮ  横)
;PR1022-१ ७
       ; 3- ( ᯮ  横)
;PR1023-न 砫
       ;७  1- 
;PR1024-न 砫
       ;७  2- 
;PR1025-न 砫
       ;७  3- 
;======
;譨 ६
;PR1200-ᨬ쭠  ६饭 
;PR1226-᪮ 㡮 ७
;PR1227-᪮ 筮 ७
;======================= 横:========================================
                                            ; 室  横 ᫥
                                            ; 訡 ࠭ ASSET
E5=0
                                            ;= ஢ઠ: ६
                                            ;  INAX1),2),3)   
                                            ;   祭 ==SB
(BEQ,$INAX1,$INAX2,ERR1)
                                            ;஢ઠ   न 
                                            ;ᮢ    诨
(BEQ,$INAX2,$INAX3,ERR1)
                                            ;஢ઠ    
                                            ;ᮢ    诨
(BEQ,$INAX1,$INAX3,ERR1)
                                            ;
                                            ;
                                            ; == ᫥   ===SB
(BGE,SK25,80,5)
(BGE,SK25,80,4)
(BGE,SK25,80,3)
(BGE,SK25,80,2)
E15=0
(BNC,PROEND)
"2"
E15=1
(BNC,PROEND)
"3"
E15=2
(BNC,PROEND)
"4"
E15=3
(BNC,PROEND)
"5"
E15=4
                                            ;
   "PROEND"
                                            ;
                                            ; 浪 
                                            ;ᨣ ࠢ ⮩ 
                                            ; ⨢ 
E16=(10+26*E15)*32+9
                                            ;
                                            ;PR1230=1 -ࠢ ᨣ
                                            ;          ᭮ 
                                            ;          믮  
(BEQ,PR1230,1,IZPLC1)
                                            ;砫쭠 ⠭:  
                                            ;                     몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC1"
                                            ;
                                            ;=====室 =======
                                            ;᢮ ६ $PS10
                                            ;  ७ 
$PS10=$PS1
                                            ;$PS2="N"(NP=-1;=+1,  ERR7)
E19=PL2
(BEQ,E19,-1,NEXT)
(BEQ,E19,1,NEXT)
(BNC,ERR7)
"NEXT"
                                            ;न 砫 ७ X
E137=PL3
                                            ;न 砫 ७ Y
E138=PL4
                                            ;न 砫 ७ Z
E139=PL5
                                            ;
                                            ;==== । ᥩ 
                                            ;     ᪮ ࠡ⪨ ====SB
                                            ;  
$PS1=$INAX1
                                            ;  न
$PS2=$INAX2
                                            ;  诨
$PS3=$INAX3
                                            ;
                                            ;===============================
                                            ; , 
                                            ;  DPM (DPM0).
                                            ;===============================
                                            ;DPMA-⠭ ⠭
                                            ;     ࠡ祩 ᪮ ७
                                            ;⠭ ⪫뢠 
                                            ;। 窨 ᠭ DK
                                            ; 孮  ࠢ 
                                            ;砫쭮 窥 横.
E199=DPMA
                                            ;DPMS-⠭ ᭮ DK.
                                            ;⪫뢠  ।
                                            ;窨 ᠭ 㯠 
                                            ;孮  ࠢ
                                            ;७. 
E200=DPMS
                                            ;DPMF-ࠡ ᪮ ७
                                            ;  १ DPMA+DPMS
E25=DPMF
                                            ;===============================
                                            ;쭠 ᪮ ७
                                            ;===============================
                                            ;᪮ 㡮 ७
E26=DPMF
(BEQ,PR1226,0,F1)
E26=PR1226
"F1"
                                            ;᪮ 筮 ७
E27=DPMF
(BEQ,PR1227,0,F)
E27=PR1227
"F"
                                            ;===============================
                                            ;। ࠬ஢  横
                                            ;G72  㡮 ७
                                            ;
                                            ; PR1200  ࠢ
                                            ;७ E19
E135=PR1200*E19
                                            ;⠭ ⠭ ࠡ祩
                                            ;᪮ ७.
E136=ABS(E135)
                                            ;⠭ 室  窨
                                            ;ᠭ ᫥ 㡮 ७
E141=5
                                            ;⨢ 쭮 奬
                                            ;   横 㡮
                                            ;७
(DPT,E136,E200,E26)
                                            ;
                                            ;樠 ६ 
                                            ; १ ७
E131=0
                                            ;
(BEQ,PR1230,1,IZPLC2)
                                            ; 
SN(E16).BL=1
(DLY,0.2)
"IZPLC2"
                                            ;
                                            ;६饭   砫
                                            ;७
G0 G90 $PS1 E137 $PS2 E138 $PS3 E139
                                            ; न 窨 砫
                                            ;७
(GTA,$PS1,1,E151)
(GTA,$PS2,1,E152)
(GTA,$PS3,1,E153)
                                            ; 砫 न
                                            ;७
PR1023=E151
PR1024=E152
PR1025=E153
                                            ;
(BEQ,PR1230,1,IZPLC3)
                                            ; 몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC3"
                                            ;
(BEQ,$PS10,$PS1,XXX)
(BEQ,$PS10,$PS2,YYY)
(BEQ,$PS10,$PS3,ZZZ)
                                            ;
                                            ;
                                            ;
(BNC,ERR5)
                                            ;
                                            ;
                                            ;
"XXX"
                                            ;===============================
                                            ; ७ X
                                            ;===============================
                                            ;㡮 ७ G90  室
                                            ; ७ 窨  稭
                                            ;RE14
G90 G72 $PS1 E135 RE141 E131
                                            ;筮 ७ G90
                                            ;⨢ 쭮 奬
                                            ;   横 筮
                                            ;७
(DPT,E136,E200,E27)
                                            ;
G90 G72 $PS1 E135 E131
                                            ;室  ࠡ ७
(BNC,ENDG72)
                                            ;
                                            ;
                                            ;
"YYY"
                                            ;===============================
                                            ; ७ Y
                                            ;===============================
                                            ;㡮 ७ G90  室
                                            ; ७ 窨  稭
                                            ;RE141
G90 G72 $PS2 E135 RE141 E131
                                            ;
                                            ;筮 ७ G90
                                            ;⨢ 쭮 奬
                                            ;   横 筮
                                            ;७
(DPT,E136,E200,E27)
                                            ;
G90 G72 $PS2 E135 E131
                                            ;室  ࠡ ७
(BNC,ENDG72)
                                            ;
                                            ;
                                            ;
"ZZZ"
                                            ;===============================
                                            ; ७ Z
                                            ;===============================
                                            ;㡮 ७
G90 G72 $PS3 E135 RE141 E131
                                            ;⨢ 쭮 奬
                                            ;   横 筮
                                            ; ७
(DPT,E136,E200,60)
                                            ;筮 ७
G90 G72 $PS3 E135 E131
                                            ;室  ࠡ ७
(BNC,ENDG72)
                                            ;
"ENDG72"
                                            ;
(BEQ,PR1230,1,IZPLC4)
                                            ; 
SN(E16).BL=1
(DLY,0.2)
"IZPLC4"
                                            ;
                                            ;
                                            ; न 横
G0 G90 $PS1 E137 $PS2 E138 $PS3 E139
                                            ;
(BEQ,PR1230,1,IZPLC5)
                                            ; 몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC5"
                                            ;
                                            ;⨢ 奬  ,
                                            ;  DPM
(DPT,E199,E200,E25)
                                            ;
                                            ;==࠭ १
                                            ;   ६         ===
PR1020=E131
(DIS,$PS10,":  PR1020= ",PR1020)
                                ;
"ENDA"
                                            ;
(BNC,END)
                                            ;
                                            ;=======ࠡ⪠ 訡========
"ERR1"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡 䨣樨 ")
(DEF, 2, 1,52,"")
(DEF, 5, 3, 5,", न   诨")
(DEF,10, 3,37,"   ࠧ .")
(DEF,15, 7, 5," த 横  1 ",A1)
(DEF,20, 7,37,"  ENTER ",A1)
(DEF,25, 7,53,E5,2)
(DEF,30, 9, 5," ४饭 ணࠬ 믮",A12)
(DEF,31, 9,37," ' '.",A12)
                                            ;
(BNC,ENDERR)
                                            ;
                                            ;
"ERR5"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡 롮  ")
(DEF, 2, 1,52,"७")
(DEF, 5, 3, 5,"  ७   ")
(DEF, 6, 3,37," , न   诨")
(DEF,10, 3,69,".")
(DEF,15, 7, 5," த 横  1 ",A1)
(DEF,20, 7,37,"  ENTER ",A1)
(DEF,25, 7,53,E5,2)
(DEF,30, 9, 5," ४饭 ணࠬ 믮",A12)
(DEF,31, 9,37," ' '.",A12)
                                ;
(BNC,ENDERR)
                                            ;
                                            ;
"ERR7"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡 롮 ࠢ")
(DEF, 2, 1,52,"  ࠬ NP")
(DEF, 5, 3, 5,"NP   ࠢ -1  +1  ")
(DEF, 6, 3,37,"                                ")
(DEF,10, 3,69,"          ")
(DEF,15, 7, 5," த 横  1 ",A1)
(DEF,20, 7,37,"  ENTER ",A1)
(DEF,25, 7,53,E5,2)
(DEF,30, 9, 5," ४饭 ணࠬ 믮",A12)
(DEF,31, 9,37," ' '.",A12)
                                ;
(BNC,ENDERR)
                                            ;
                                            ;
"ENDERR"
                                            ;
                                            ;
                                            ; 뢮 訡 
                                            ;࠭ #8 ASSET 
                                            ;। 室 
                                            ;ணࠬ
E5=0
(DLY,0.1)
(OUT)
"ERR"
(INP," ",E5,25)
(BEQ,E5,0,ERR)
(SCR,OFF)
                                            ;
                                            ;
"END"
