Listing of file='IDS2PR06' on disk='vmedia/701-2716B.wvd.zip'
# Sector 114, program filename = 'IDS2PR06'
1000 REM "IDS2PR06" - Release 2.1 - REPORT GENERATOR FORMAT LINE PRINT SPECIFI
CATIONS
1005 STR(E$(),73,8)=STR(E$(),(F4-S+1)*166-85)
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: PRINT AT(23,0,80);
: F6$(13)="Y"
: R3$(1)="IDS2PR03"
: FOR I=1TO 7
: STR(E2$(I),4,1)=BIN((F4-S+4)*8)
: GOSUB '37(I)
: NEXT I
: F=1
1080 F=F+1
1090 GOSUB '34(F)
: ON FGOTO ,1110,1160,1180,1190,1200,1200
1110 C0=POS("HDFNBT"=E$)
: IF C0=0THEN 1120
: IF E$<>"D"THEN 1080
: GOSUB '45(F+1," ")
: F=F+1
: GOTO 1080
1120 IF E$=" "THEN 1130
: GOSUB '35("Line type must be H, D, F, B, T, or N as shown above")
: GOTO 1090
1130 IF STR(E$(),(F4-F5+1)*166-77,158)=" "THEN 1140
: GOSUB '35("Line type is reqiured when line contains text and/or fields")
: GOTO 1090
1140 FOR I=FTO 7
: GOSUB '45(I," ")
: NEXT I
1150 STR(E$(),(F4-F5+1)*166-85,8)=STR(E$(),73)
: LOAD T#2,"IDS2PR03"1000,
1160 GOSUB '43(F-1)
: E6$=E$
: GOSUB '43(F)
: IF E6$<>"D"THEN 1170
: GOSUB '45(F," ")
: F0$=" "
: F0$=F0$&" Detail lines must have blank level !"
: GOSUB '35(F0$)
: GOTO 1080
1170 IF POS(" 0123456789PR"=E$)>0THEN 1175
: GOSUB '35("Level must be blank, 0-9, P, or R")
: GOTO 1090
1175 IF E6$<>"H"AND E6$<>"F"OR E$<>" "THEN 1080
: IF E6$="H"THEN F0$="Headers"
: ELSE F0$="Footers"
: F0$=F0$&" must be non-blank levels"
: GOSUB '35(F0$)
: GOTO 1090
1180 IF E$="P"THEN 1181
: IF E$=" "THEN 1185
: IF E$>="0"AND E$<="9"THEN 1080
: IF E$>="A"AND E$<="Z"THEN 1080
: GOSUB '35("System flag # must be 0-9 or A-Z (Sysflag P is a 'new page' fl
ag)")
: GOTO 1090
1181 GOSUB '53("Sysflag P is used in the report generator as a 'new page' flag
")
: GOTO 1080
1185 GOSUB '45(F+1," ")
: F=F+2
: GOTO 1090
1190 IF POS("YN01"=E$)>0THEN 1080
: GOSUB '35("Sysflag state must be 'Y' or 'N'")
: GOTO 1090
1200 IF POS(" 0123456789"=E$)>0THEN 1210
: GOSUB '35("Must be blank or 0-9")
: GOTO 1090
1210 IF F=6THEN 1080
: GOTO 1150
1220 STOP #
: STOP "EXECUTE"
: STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR06"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"