发表于:2008/6/7 12:48:00
#0楼
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
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