Listing of file='IDS2P006' on disk='vmedia/701-2717B.wvd.zip'
# Sector 315, program filename = 'IDS2P006'
1000 REM "IDS2P006" - Release 2.1 - SYSTEM DATE EDIT MODULE
1005 E6$=F6$(17)AND HEX(01)
: IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB7"3701,3899BEG 1010
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2s006")
: E$()=R2$
: F=1
: IF R2$<>" "THEN GOSUB '36
: IF R2$<>" "THEN 1190
1070 F=0
1080 F=F+1
1090 GOSUB '34(F)
: ON FGOTO 1120,1160,1185
: IF F<1THEN 1070
: GOTO 1185
1120 IF Q>0AND Q<13THEN 1080
: GOSUB '35("Month must be 01 - 12 Please re-enter")
: GOTO 1090
1160 IF Q>0AND Q<32THEN 1080
: GOSUB '35("Day must be 01 - 31 Please re-enter")
: GOTO 1090
1185 GOSUB '56(E$(),1)
: IF Q=0THEN 1070
1190 F0$="cept date, EDIT to modify"
: IF @E1$<>STR(E$(),,6)AND @E1$<>" "THEN F0$=F0$&", FN '0 to update global
date"
: GOSUB '63("Touch EXEC to ac",F0$," ")
: GOSUB '34(250)
: IF Q=33THEN 1070
: IF Q=0THEN 1220
: IF Q<>32THEN 1190
: R2$=E$()
: E4$=R2$
: IF @E1$=" "THEN @E1$=R2$
: IF STR(R3$(1),,4)="IDS2"THEN P=2
: ELSE P=4
1216 F0$=STR(R3$(),,9)
: R3$()=STR(R3$(),10)
: LOAD T#P,F0$1000,
1220 @E1$=E$()
: GOTO 1190