image of READY prompt

Wang2200.org

Listing of file='IDS2PR09' on disk='vmedia/701-2716B.wvd.zip'

# Sector 147, program filename = 'IDS2PR09'
1000 REM "IDS2PR09" - Release 2.1 - REPORT GENERATOR LEVEL BREAK SPECIFICATION
     S
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : GOSUB '32("IDS2sR04")
   : R3$(1)="IDS2PR05"
   : IF E$(1)="\F2"THEN E$="Report"
   : ELSE E$="Batch"
   : GOSUB '45(57,E$)
   : GOSUB '45(58,E$)
   : F0=56
   : IF E$(1)="\E2"THEN 1027
   : PRINT HEX(0F);AT(2,76);"TOF";AT(20,0);BOX(2,79);
1026 PRINT AT(20,1);"4. The ";HEX(22);"TOF";HEX(22);" indicator is used to spe
     cify a top-of-form (new page) after all";AT(21,4);"footers for the specif
     ied level have been printed. (Y = go to new page.)"
   : GOTO 1030
1027 FOR I=20TO 56STEP 4
   : STR(E2$(I),5,3)=AND HEX(FEFF3F)
   : NEXT I
1030 FOR I=1TO 16
   : GOSUB '37(I)
   : NEXT I
   : FOR I=0TO 9
   : X=I*4+17
   : GOSUB '37(X)
   : IF E$=" "THEN 1034
   : GOSUB '37(X+1)
   : GOSUB '43(Q+2)
   : GOSUB '45(X+2,E$)
   : GOSUB '37(X+3)
   : GOTO 1034
1034 NEXT I
1040 GOSUB '53("EXECUTE = Accept, '0-'9 = Level break specs, '16 = Field names
     ")
   : GOSUB '34(250)
   : IF Q=16THEN 1200
   : IF Q<10THEN 1300
   : IF Q=32THEN 1070
   : PRINT HEX(07);
   : GOTO 1040
1070 X=0
   : FOR I=17TO 53STEP 4
   : GOSUB '43(I)
   : IF E$<>" "THEN X=X+1
   : NEXT I
   : CONVERT XTO E$(849),(#)
   : MAT REDIM E$(24)83
   : DATA SAVE DA T#3,(E4)E$()
   : LOAD T#2,"IDS2PR05"1000,
1200 R3$(1)="IDS2PR09"
   : LOAD T#2,"IDS2PS17"1000,
1300 J1=Q
   : F=J1*4+16
1315 F=F+1
   : IF F<20OR F>56OR MOD(F,4)<>0THEN 1320
   : GOSUB '43(F)
   : IF E$=" "THEN GOSUB '45(F,"N")
1320 GOSUB '34(F)
   : X=MOD(F-17,4)+1
   : ON XGOTO 1350,1360,1315,1380
1350 E7$=E$
   : IF E7$<>" "THEN 1315
   : FOR I=FTO F+3
   : GOSUB '45(I," ")
   : NEXT I
   : GOTO 1040
1360 IF Q>0AND Q<8THEN 1362
1361 GOSUB '35("File number must be one of those listed above")
   : GOTO 1320
1362 GOSUB '43(Q*2+1)
   : F5$=E$OR ALL(20)
   : IF E$<>" "THEN 1364
   : FOR I=FTO F+2
   : GOSUB '45(I," ")
   : NEXT I
   : GOTO 1361
1364 GOSUB '39(F5$,5)
   : MAT REDIM E3$(3)83
   : DATA LOAD DA T#P,(A)E3$()
   : IF STR(E3$(),10,1)<"5"THEN 1366
   : F5$=STR(E3$(),82,8)OR ALL(20)
   : GOTO 1364
1366 MAT REDIM E3$(24)83
   : DATA LOAD DA T#P,(A+8)E3$()
   : MAT REDIM E3$(249)8
   : MAT SEARCHE3$(),=STR(E7$,1,8)TO F9$STEP 8
   : IF F9$=HEX(0000)THEN 1370
   : GOSUB '43(F)
   : GOSUB '43(Q*2+1)
   : GOSUB '45(F+1,E$)
   : GOTO 1315
1370 GOSUB '35("Field is not in file specified")
   : F=F-1
   : GOTO 1320
1380 IF E$="Y"OR E$="N"THEN 1040
   : GOSUB '35("Top-of-form flag must be 'Y' or 'N'")
   : GOTO 1320
1799 STOP #
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PR09"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"