Listing of file='IDS2PRX3' on disk='vmedia/701-2725B.wvd.zip'
# Sector 71, program filename = 'IDS2PRX3'
1000 REM "IDS2PRX3"
1090 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM C$(C0)1,C1$(C1)9
: COM C2,C3,C4,C5,C6,C7,C8,C9,D0,D1,D2,D3,D4,D5,D6,E0,E1,E2,E3,F1,F2,F3,F4,
F5,J7,J8
: FOR I=1TO F
: STR(E2$(I),4,1)=OR HEX(40)
: NEXT I
: F3=F*9-8
: F4=D
: F5=M
: C1$()=E3$()
: IF F3$="005"THEN C2=0
: ELSE C2=1
: CONVERT STR(E$(),842,3)TO F0
: ERRORF0=1
1190 CONVERT STR(E$(),157,3)TO F1
: ERRORF1=0
1200 CONVERT STR(E$(),170,2)TO F2
: ERRORF2=0
1205 IF F2>1AND F2<>66THEN F2=F2-1
: C3=LEN(STR(E1$(),1))/56
: C4=VAL(STR(E1$(C3),24))+1
: C5=VAL(STR(E1$(C3),25))
: C6=VAL(STR(E1$(C3),27))+1
: C7=C6+3
: C8=VAL(STR(E1$(C3),10),2)
: C9=LEN(D$())+1-C7
: D0=VAL(STR(E1$(C3),9))
: D1=VAL(STR(E1$(C8),9))
: MAT REDIM E$(E8)1,F$(E9)1,E0$(249)1
: D2,D3,D4=0
: FOR I=1TO C1
: IF STR(C1$(I),,1)="D"THEN D2=D2+1
1340 IF STR(C1$(I),,1)="F"THEN D3=D3+1
: IF STR(C1$(I),,1)="H"THEN D4=D4+1
: NEXT I
: D5=-1
: IF E$(865)="U"THEN D5=1
: D6=VAL(STR(E1$(C8),12))-1
: IF D6=0THEN 1460
: IF D6=3THEN D6=1
: ELSE D6=2
: MAT REDIM E3$(MAX(3,3*ABS(INT(-F*8/249))))83
: DATA LOAD DA T#D,(S+6+MAX(1,ABS(INT(-F*9/249))))E3$()
: MAT SEARCHE3$(),="@SYSPAGE"TO F9$STEP 8
: E0=INT((VAL(F9$,2)+7)/8)
1430 MAT SEARCHE3$(),="@SYSMNTH"TO F9$STEP 8
: E1=INT((VAL(F9$,2)+7)/8)
: MAT SEARCHE3$(),="@SYSDAY "TO F9$STEP 8
: E2=INT((VAL(F9$,2)+7)/8)
: MAT SEARCHE3$(),="@SYSYEAR"TO F9$STEP 8
: E3=INT((VAL(F9$,2)+7)/8)
1460 E$=STR(D$(),C4)
: J=SGN(D5)
: T=VAL(STR(E1$(C8),12))
: F6$(2)="Y"
: IF D6=2THEN GOSUB '67(C8,E$,0)
: ELSE GOSUB '59(C8,J,E$,0)
: IF Q>0AND D5>0THEN F6$(18)="Y"
: ELSE F6$(18)="N"
: X=5
: GOSUB '79
: E$()=STR(F$(),,E0(2))
1530 E4=0
: IF E0>0THEN GOSUB '55(E0,E4)
: IF E1>0THEN GOSUB '45(E1,STR(R2$,,2))
: IF E2>0THEN GOSUB '45(E2,STR(R2$,3,2))
: IF E3>0THEN GOSUB '45(E3,STR(R2$,5,2))
: J7,J8=12
1580 GOSUB '71
: GOTO 1680
1592 DEFFN'71
: FOR I=1TO F0
: CONVERT STR(E$(),INT(VAL(STR(E2$(I),2),2)/16),VAL(E2$(I)))TO F(I)
: ERRORF(I)=0
1610 NEXT I
: RETURN
1620 ON J7GOTO 1650
: J7,J8=1
: GOTO 1580
1650 F6$(2)="Y"
: E$="IDS2PRX4IDS2PX"
: CONVERT R0TO STR(E$,15),(##)
: LOAD T#2,<2>E$1000,1994
1660 DEFFN'68
: F(F)=A
: RETURN
1661 GOTO 1530
: GOTO 1990
1670 %
1680 F=0
1990 F=F+1
: IF F>F1THEN 1620
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PRX3"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"