image of READY prompt

Wang2200.org

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"