请问,那位朋友知道这小段程序的意思,谢谢!
请问,那位朋友知道这小段程序的意思,谢谢!DCLEAR0
DPCUR1,4
DWRITE "CURRENT MAX YEAR SET ="
DPCUR1,27
DVAR44,1,0,0
DPCUR2,1
DWRITE "CHANGE"
DPCUR2,35
DWRITE "EXIT"
DREADI0
L0
VAR63=DREADF
IF(VAR63=1.0)
NEWYR
NIF
IF(VAR63=6.0)
JUMP LEVEL2
NIF
LN
END
COMEXC0
OUT.2-0
WRITE "MOTOR MOVING"
IF(VAR27=2.0)
DRIVE11
GO11
WAIT(1AS.1=B0 AND 2AS.1=B0)
WAIT(1AS.24=B1 AND 2AS.24=B1)
NIF
IF(VAR27=1.0)
DRIVE10
GO1
WAIT(1AS.1=B0)
WAIT(1AS.24=B1)
NIF
TPE
PSET0,0
OUT.2-1
T0.100
WRITE "MOTOR STOP MOVING"
TPER
VAR48=VAR48+1.0
IF(VAR42=1.0)
VAR46=VAR46+1.0
IF(VAR46>=VAR41)
VAR43=VAR43+1.0
VAR46=0.0
IF(VAR43>365.0)
VAR47=0.0
VAR43=0.0
NIF
NIF
NIF
OUTPA1,0,(VAR24),500
IF(VAR48=VAR49)
DRIVE,0
T0.500
VAR48=0.0
DRIVE,1
NIF
COMEXC1
JUMP SCANKU
END