1、主程序(XLZB) Defm 10:Norm:O“X0”:G“Y0”:N≥1=>Goto 1:≠>N≥2=>Goto 2:≠>N≥3=>Goto 3:≠>N≥4=>Goto 4△△△△ Lb1 1:{KPM}:KPM:Prog“C”:I=K-J:Prog“A”:X“XS”=X▲ Y“YS”=Y▲
1、主程序(XLZB) Defm 10:Norm:O“X0”:G“Y0”:N≥1=>Goto 1:≠>N≥2=>Goto 2:≠>N≥3=>Goto 3:≠>N≥4=>Goto 4△△△△ Lb1 1:{KPM}:KPM:Prog“C”:I=K-J:Prog“A”:X“XS”=X▲ Y“YS”=Y▲