Listing of file='IDS2PS29' on disk='vmedia/701-2716B.wvd.zip'
# Sector 993, program filename = 'IDS2PS29'
1000 REM "IDS2PS29" - Release 2.1 - PASS/FAIL DOCUMENTATION FOR DATES
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '71(F1$)
: IF V>0THEN 1070
: F0$=" verify "&F1$&" is a valid date with format "&F2$
: GOTO 1100
1070 F0$=" copy "
: IF V/2=INT(V/2)THEN F0$=F0$&" last date used "
: ELSE F0$=F0$&" System Date"
: F0$=F0$&", in "&F1$&" format, to "&F2$
1100 GOSUB '48(0,F0$,0)
: AND (STR(E0$(),5,1),DF)
: GOSUB '49(0)
: IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1
: ELSE F4=F4+1
: LOAD T#2,"IDS2PS30"1000,
1140 DEFFN'71(V$)
: V=0
: MAT SEARCH"MMDDYY mmddyy DDMMYY ddmmyy MMMDDYYmmmddyyDDMMMYYddmmmyyYYDDD
yyddd DDDDD ddddd",=V$TO F9$STEP 7
: V=INT((VAL(F9$,2)-1)/7)+1
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS29"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"