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"