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"