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"