Listing of file='IDS2PR08' on disk='vmedia/701-2716B.wvd.zip'
# Sector 138, program filename = 'IDS2PR08'
1000 REM "IDS2PR08" - Release 2.1 - REPORT GENERATOR FORMAT LINE VALIDITY CHEC
K
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: IF E0$<>"IDS2sR02"THEN GOSUB '32("IDS2sR02")
1055 DEFFNP(P)=(F4-F5)*166+88+P
1060 DEFFNR(R)=F4-F5+4
1070 DEFFNC(C)=C1-C2+15
: C2=1
: GOTO 1400
1100 DEFFN'71(X,Y)
: DATA LOAD BA T#3,(E4+33+X)E4$()
: STR(E$(),Y*166-85,166)=E4$()
: RETURN
1140 E4$()=STR(E$(),Y*166-85,166)
: PRINT HEX(060F);AT(Y+3,0);STR(E4$(),1,2);" ";STR(E4$(),5,1);" ";STR(E4$()
,6,1);" ";STR(E4$(),7,2);" ";STR(E4$(),3,1);" ";STR(E4$(),4,1)
: PRINT AT(Y+3,15);STR(E4$(),8+C2,65);
: RETURN
1220 DEFFN'72
: PRINT HEX(060F);AT(3,53);
: PRINTUSING 1225,F5,F5+11,C2,C2+64;
: PRINT AT(16,12);
: PRINTUSING 1226,C2
: IF C2=1THEN PRINT AT(16,46);" "
: IF C2=47THEN PRINT AT(16,46);"80^ "
: IF C2=94THEN PRINT AT(16,46);" 132^"
: PRINT AT(16,76);
: PRINTUSING 1226,C2+64
: FOR Y=1TO 12
: GOSUB 1140
: NEXT Y
: RETURN
1225 %## to ##, columns ## to ###
1226 %###^
1400 F4,F5=1
: FOR I=1TO 11
: GOSUB '71(I,I)
: NEXT I
: GOSUB '72
: C1=1
: F6,F7,D5,D6=0
: FOR I=1TO D2
: F4=I
: IF F4>12THEN F5=F4-11
: IF F4<13THEN 1470
: STR(E$(),81)=STR(E$(),247)
: GOSUB '71(F4,12)
: GOSUB '72
1470 PRINT AT(F4-F5+4,C1-C2+15);
: E4$()=STR(E$(),(F4-F5)*166+81,166)
: $TRAN(STR(E4$(),3,2)," 0")R
: D6=D6+1
: IF STR(E4$(),5,1)=" "AND STR(E4$(),9)=" "THEN 1620
: IF STR(E4$(),5,1)<>" "THEN 1600
: GOSUB '35("Invalid line specification")
: LOAD T#2,"IDS2PR03"1000,
1600 F7=D6
: F6=F6+1
: D5=MAX(D5,POS(-E4$()<>20)-8)
1620 NEXT I
: MAT REDIM E$(24)83
: DATA LOAD DA T#3,(E4)E$()
: CONVERT F7TO F9$,(##)
: IF STR(F9$,1,1)="0"THEN STR(F9$,1,1)=" "
: CONVERT D5TO E$,(###)
: IF D5<100THEN STR(E$,1,1)=" "
: IF D5<10THEN STR(E$,2,1)=" "
: STR(E$(),155,2)=F9$
: STR(E$(),845,3)=E$
: CONVERT F6TO STR(E$(),155,2),(##)
: IF F6<10THEN STR(E$(),155,1)=" "
1690 CONVERT F7TO STR(E$(),854,2),(##)
: IF F7<10THEN STR(E$(),854,1)=" "
: DATA SAVE DA T#3,(E4)E$()
: LOAD T#2,"IDS2PR05"1000,
1800 STOP #
: STOP #
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PR08"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"