image of READY prompt

Wang2200.org

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"