Listing of file='IDS2PR04' on disk='vmedia/701-2716B.wvd.zip'
# Sector 83, program filename = 'IDS2PR04' 1000 REM "IDS2PR04" - Release 2.1 - REPORT GENERATOR DATA FILE READ SPECIFICAT IONS 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB '32("IDS2sR03") : R3$(1)="IDS2PR05" : IF E$(1)="\F2"THEN E$="Report" : ELSE E$="Batch" : GOSUB '45(102,E$) : GOSUB '45(103,E$) : FOR I=1TO 4 : GOSUB '37(I) : NEXT I : FOR I=2TO 7 : GOSUB '37(I*3-1) : F5$=E$ : GOSUB '37(I*3) 1050 E$="Associated data file is not used" : CONVERT ITO STR(E$,22,1),(#) : IF F5$=" "THEN GOSUB '45(I*3+1,E$) : ELSE GOSUB '45(I*3+1,"Random key must be specified below") : NEXT I : GOSUB '37(104) : GOSUB '37(23) : IF E$=" "THEN GOSUB '45(23,"I") : FOR I=2TO 7 : GOSUB '37(I+22) 1080 F5$=E$ : IF F5$<>" "THEN 1090 : GOSUB '45(I+28," ") : FOR J=0TO 10 : GOSUB '45(I*11+14+J," ") : NEXT J : GOTO 1200 1090 IF E$(I+864)=" "THEN E$(864+I)="I" : GOSUB '37(I*11+14) : GOSUB '37(I+28) : FOR J=0TO 9 : GOSUB '37(I*11+15+J) : NEXT J 1200 NEXT I 1210 GOSUB '63("EXECUTE = accept",", FN'0 = field names, FN'1-'7= file specs , FN'31 = cancel"," ") : F6$(14)="N" : GOSUB '34(250) : IF Q=31THEN LOAD T#2,"IDS2PR05"1000, : IF Q=0THEN 1300 : IF Q=32THEN 1310 : IF Q>1AND Q<8THEN 1320 : IF Q=1THEN 1280 1270 PRINT HEX(07); : GOTO 1210 1280 GOSUB '43(23) : IF E$="I"THEN E$="U" : ELSE E$="I" : GOSUB '45(23,E$) : GOTO 1210 1300 R3$(1)="IDS2PR04" : LOAD T#2,"IDS2PS17"1000, 1310 MAT REDIM E$(24)83 : DATA SAVE DA T#3,(E4)E$() : MAT REDIM E$(E8)1 : LOAD T#2,"IDS2PR05"1000, 1320 J1=Q : GOSUB '43(J1+22) : IF E$=" "THEN 1270 : F=J1*11+13 1340 F=F+1 1350 GOSUB '34(F) : X=MOD(F-3,11)+1 : ON XGOTO 1370,1380,1390,1380,1390,1380,1390,1380,1390,1380,1390 1370 IF E$="I"OR E$="U"THEN 1340 : GOSUB '35("Must be 'I' for inquiry, 'U' for update") : GOTO 1350 1380 IF E$<>" "THEN 1340 : FOR I=FTO INT((F+2)/11)*11+13 : GOSUB '45(I," ") : NEXT I : GOTO 1210 1390 IF Q>0AND Q<J1THEN 1400 : GOSUB '35("Must be at least '1' and less than current file number") : GOTO 1350 1400 IF STR(E$(),70+Q*8,8)<>" "THEN 1410 : GOSUB '35("File number not used") : GOTO 1350 1410 F5$=STR(E$(),Q*8+70,8)OR ALL(20) 1420 GOSUB '39(F5$,5) : MAT REDIM E3$(3)83 : DATA LOAD DA T#P,(A)E3$() : IF STR(E3$(),10,1)<"5"THEN 1440 : F5$=STR(E3$(),82,8)OR ALL(20) : GOTO 1420 1440 MAT REDIM E3$(24)83 : DATA LOAD DA T#P,(A+8)E3$() : MAT REDIM E3$(249)8 : GOSUB '43(F-1) : MAT SEARCHE3$(),=STR(E$,1,8)TO F9$STEP 8 : IF F9$>HEX(0000)THEN 1470 : GOSUB '35("Field not in specified file") : F=F-1 : GOTO 1350 1470 IF MOD(F-2,11)=0THEN 1210 : GOTO 1340 1799 STOP # : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PR04" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"