Listing of file='IDS2PC20' on disk='vmedia/701-2725B.wvd.zip'
# Sector 792, program filename = 'IDS2PC20' 1000 REM 'IDS2PC20'--REPORT CONVERSION-- LEVEL BREAKS AND FILE READING SPECS 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : GOSUB '32("IDS2sR04") : GOSUB '45(57,"Report") : GOSUB '45(58,"Report") : F0=16 : GOSUB '36 : F0=58 : F6$(11)="N" : IF STR(F$(),659,16)=" "THEN 1200 : MAT REDIM E3$(24)83 : GOSUB '53("Creating level break specifications") : FOR I=1TO 2 : E$=STR(F$(),651+I*8,8) : IF E$=" "THEN 1060 : GOSUB '45(I*4+13,E$) 1060 NEXT I : FOR I=1TO 4 : GOSUB '43(I*2+1) : IF E$=" "THEN 1140 : E$=E$OR ALL(20) : GOSUB '39(E$,D4) : IF Q=2THEN 1080 1072 GOSUB '35("Control file not found -- key FN '31 to cancel") : GOSUB '34(250) 1075 COM CLEAR E3 : SELECT #3<D9$(3)> : LOAD T#2,"IDS2PCMN"1000, 1080 DATA LOAD BA T#D4,(A)E4$() : IF STR(E4$(),13,1)<"5"THEN X=24 : ELSE X=6 : MAT REDIM E3$(X)83 : DATA LOAD DA T#D4,(A)E3$() : IF X=24THEN 1090 : E$=STR(E3$(),82,8)OR ALL(20) : GOSUB '39(E$,D4) : IF Q<2THEN 1072 1090 MAT REDIM E3$(24)83 : DATA LOAD DA T#D4,(A+8)E3$() : FOR J=1TO 2 : GOSUB '43(J*4+13) : IF E$=" "THEN 1100 : MAT SEARCHE3$(),=E$TO F9$STEP 8 : IF F9$=HEX(0000)THEN 1100 : GOSUB '55(J*4+14,I) : GOSUB '45(J*4+15,STR(E$(),I*8+70,8)) : GOSUB '45(J*4+16,"N") 1100 NEXT J 1140 NEXT I : J=0 : FOR I=1TO 2 : IF STR(F$(),651+I*8,8)<>" "THEN J=J+1 : NEXT I : CONVERT JTO STR(E$(),848,2),(##) 1200 IF STR(E$(),86,48)=" "THEN 2510 : GOSUB '32("IDS2sR03") : GOSUB '45(102,"Report") : GOSUB '45(103,"Report") : F0=22 : GOSUB '36 : F0=103 : GOSUB '53("Creating new file reading specs") : J1=0 : F6$(11)="N" : FOR J=2TO 4 : E$=STR(F$(),J*16+60,8) : IF E$=" "THEN 1240 : GOSUB '43(J*3-1) : GOSUB '45(J+22,E$) : J1=J1+1 1220 GOSUB '45(J*11+14,"I") : GOSUB '55(J+28,1) : E$=STR(F$(),J*16+68,8) : GOSUB '45(J*11+15,E$) 1240 NEXT J : IF J1=0THEN 2510 : FOR I=1TO J1 : IF I=1THEN GOSUB '43(3) : ELSE GOSUB '43(I*3-1) : IF E$=" "THEN 1350 : E$=E$OR ALL(20) : GOSUB '39(E$,D4) : IF Q<2THEN 1072 : DATA LOAD BA T#D4,(A)E4$() : IF STR(E4$(),13,1)<"5"THEN X=24 : ELSE X=6 : MAT REDIM E3$(X)83 : DATA LOAD DA T#D4,(A)E3$() : IF X=24THEN 1290 : E$=STR(E3$(),82,8)OR ALL(20) : GOSUB '39(E$,D4) : IF Q<2THEN 1072 1290 MAT REDIM E3$(24)83 : DATA LOAD DA T#D4,(A+8)E3$() : FOR J=2TO J1+1 : GOSUB '43(J*11+15) : IF E$=" "THEN 1340 : MAT SEARCHE3$(),=E$TO F9$STEP 8 : IF F9$=HEX(0000)THEN 1340 : GOSUB '55(J*11+16,I) 1340 NEXT J 1350 NEXT I : FOR J=2TO J1+1 : GOSUB '43(J*11+15) : IF E$=" "THEN 1380 : GOSUB '43(J*11+16) : IF Q>0THEN 1380 : GOSUB '43(J+22) : F0$="Key field for file "&E$&" not found in previous file -- FN '31 to ca ncel" : GOSUB '63(STR(F0$,,16),STR(F0$,17),"!") : GOSUB '34(250) : GOTO 1075 1380 NEXT J 2510 PRINT HEX(0202000F); : LOAD T#2,"IDS2PC21"1000, 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PC20" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"