Listing of file='B327043' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 842, program filename = 'B327043' 0010 REM B327043 02/14/84 Off-List Set-up & Prompts 0040 ON AGOTO 65,65,65 : STOP "BRANCH FLAG NOT SET IN A Line = "# : DIM J$2,R0$(3)83,R1$(15)16,R2$(20)12,R3$(30)8,E1$16,E2$16,R3$8 0065 DATA LOAD DC OPEN T#0,"3270*PQ" 0070 C1=A : ON C1GOSUB 100,230,1200 : A=0 0072 A=A+1 : IF A=5THEN 185 : IF P(A)=-1THEN 72 : PRINT AT(4,0,);AT(8,31);"Loading Lister" : C1=0 : P$=HEX(00) : LOAD DC T#0,"B327044" 0100 FOR D=1TO L0 : GOSUB 550 : CONVERT D5$TO A : F$(9,D)=BIN(A,2) : NEXT D 0120 IF E$(L0)<>" "THEN 140 : L0=L0-1 : IF L0>1THEN 120 0140 D=1 : S0=0 : X0=10 : Y0=12*80 : A=0 : RETURN 0170 DEFFN'0 : C$="C" 0180 PRINT HEX(06);AT(6,0,17*80);"Type A=Abort job C=Continue off-line utilit y"; : LINPUT -C$ : ON POS("AC"=C$)+1GOTO 180,200 : X=X-1 : PRINT AT(X0,0,Y0) : X0=10 : Y0=12*80 : RETURN 0185 GOSUB '99(0,"There is no data to list queued from this terminal") : PRINT AT(2,25);"or the device is unavailable" : A=10 : GOSUB 222 0200 $CLOSE : RETURN CLEAR ALL : COM CLEAR B$ : LOAD DC T#0,N$(1) 0220 DEFFN'99(A,A$) : SELECT PRINT 005 : PRINT HEX(03);BOX(3,79);HEX(0A0E);TAB(40-LEN(A$)/2);A$ 0222 IF A=0THEN RETURN : SELECT P2 : FOR A=ATO 0STEP -1 : PRINT A;HEX(0C) : NEXT A : SELECT P : RETURN 0230 PRINT AT(T,0,20*80) 0245 PRINT AT(T+5,0,);" What do you wish to do?" : RESTORE : C=0 : FOR C=1TO 6 : READ R0$ : PRINT R0$ : NEXT C 0255 DATA "1 = Restart print of current list item","2 = Abort print of current list item","3 = Abort print and remove list queue","4 = Abort print and retain list queue","5 = Retain queues and return to prompts for more item s","6 = Display queue" 0260 GOSUB 335 : IF B$=" "THEN RETURN : C$=B$ : IF A>CTHEN 245 : C=A : IF C=5THEN 320 : PRINT AT(T,1,); : RESTORE C : READ R0$ : PRINT R0$ : PRINT AT(T+5,0,);" On which printer?" : FOR A=1TO L0 : PRINT A;" = ";STR(E$(A),1,34);" ";STR(E$(A),41,18) : NEXT A 0280 GOSUB 335 : IF B$=" "THEN 230 : D=A : IF E$(D)=" "THEN 280 : PRINT AT(T+1,0,80);A;"= ";STR(E$(A),1,34);" ";STR(E$(A),41,18);" Page =" ;VAL(F$(6,D),2) : IF C=6THEN 320 : A$=STR(E$(D),24,10) : IF A$="Finished"THEN 355 : IF C<>1THEN 320 : IF A$="Aborted"THEN IF STR(E$(D),16,1)="1"THEN 2200 0300 PRINT AT(T+5,0,);" Restart at what Page?" : PRINT " RETURN = current position" : PRINT " or PAGE NUMBER" : PRINT " or + PAGES" : PRINT " or - PAGES" 0305 B1$=" " : PRINT AT(T+5,0); : LINPUT -B1$ : IF B1$=" "THEN RETURN : CONVERT B1$TO B1 : ERRORGOTO 305 0310 B1(D)=VAL(F$(2,D),2) : B2(D)=VAL(F$(4,D),2) : D(D)=0 : F$(5,D)=BIN(1,2) : IF STR(B1$,1,1)="-"THEN 314 : IF STR(B1$,1,1)="+"THEN 311 : F$(7,D)=BIN(B1,2) : F$(6,D)=BIN(1,2) : GOTO 320 0311 F$(6,D)=ADDCBIN(B1,2) : F$(7,D)=F$(6,D) : F$(6,D)=BIN(1,2) : GOTO 320 0314 B1=ABS(B1) : F$(6,D)=SUBCBIN(B1,2) : F$(7,D)=F$(6,D) : F$(6,D)=BIN(1,2) : IF F$(7,D)>HEX(F000)THEN F$(7,D)=BIN(1,2) 0320 ON CGOSUB 350,365,375,385,410,460 : RETURN 0335 B$=" " : PRINT AT(T+5,0); : LINPUT ?-B$ : IF B$=" "THEN RETURN : IF B$<"1"OR B$>"9"THEN 335 : A=VAL(B$)-48 : RETURN 0350 GOSUB 2000 : D(D)=0 : B1(D)=VAL(F$(2,D),2) : RETURN 0355 PRINT AT(T+1,40,40); : IF C=1THEN PRINT "it cannot be restarted" : GOTO 245 0365 GOSUB 2000 : A=3 : RETURN CLEAR : GOTO 70 0375 GOSUB 2000 0376 IF STR(E$(D),24,10)="Finished"THEN RETURN : GOSUB 1200 : GOTO 376 0385 GOSUB 2000 : STR(E$(D),24,9)="Aborted" : D(D)=-1 : RETURN 0410 GOSUB '99(9,"Function not yet available") : RETURN 0460 GOSUB '99(0,"Outstanding queue items") : PRINT AT(2,21);STR(E$(D),,17);" lines per page =";VAL(F$(9,D),2) : DBACKSPACE #2,BEG : C=VAL(F$(3,D)) : DSKIP #2,CS : DATA LOAD DC #2,R0$() : MAT COPY R0$()TO R3$() : C=1 0465 C=C+1 : R3$=R3$(C) : IF R3$=" "THEN 520 : IF STR(R3$,8,1)>HEX(40)THEN 500 : A=VAL(R3$,2) : GOSUB 680 : PRINTUSING "Item = ## Report = ### Pages = #### - #### copies = # ### ###############";C-1,VAL(STR(R3$,1),2),VAL(STR(R3$,3),2),VAL(STR(R3$,5),2 ),VAL(STR(R3$,7,1)),A$ : GOTO 465 0500 PRINTUSING "Item = ## Stream = ### Blocks = #### - #### copies = #";C-1 ,VAL(STR(R3$,1),2),VAL(STR(R3$,3),2),VAL(STR(R3$,5),2),VAL(STR(R3$,7,1)) : GOTO 465 0520 PRINT AT(22,0);" # Key any key to return to other prompts";AT(22,1); : KEYIN C$,,540 0540 GOSUB '99(0,"Wang 2200/3270 Spool file lister") : GOTO 245 0550 D2$=" " : GOSUB 700 : IF D2$=" "THEN RETURN : B=0 : GOSUB 930 : IF B=0THEN RETURN : F$(1,D)=BIN(A) : D2$(D)=D2$ : D4$(D)=D4$ 0580 R$(D)=R3$ : A$="<< from stream >>" : C$=STR(R3$,2) : ADD(C$,30) : B1=VAL(STR(R3$,3),2) : B2=VAL(STR(R3$,5),2) : F$(7,D)=HEX(0001) : F$(8,D)=HEX(7FFF) : IF STR(R3$,8)>HEX(7F)THEN 630 : A=VAL(R3$,2) : GOSUB 680 : C$=STR(A$,24) : F$(7,D)=BIN(B1,2) : F$(8,D)=BIN(B2,2) : CONVERT STR(A$,26,3)TO B1 : CONVERT STR(A$,30,3)TO B2 : B2=B1+B2-1 0628 R9$=STR(A$,34) : R2$=STR(A$,50) 0630 B1(D)=B1 : B2(D)=B2 : P(D)=D0(VAL(C$)-48) : STR(E$(D),1,59)=C$&". Printer "&D2$(D)&" Selected "&HEX(2020FF0 00020)&A$ : F$(2,D)=BIN(B1,2) : F$(4,D)=BIN(B2,2) : F$(5,D),F$(6,D)=BIN(1,2) : IF C1=1THEN F$(3,D)=BIN(C) : RETURN 0680 DBACKSPACE #2,BEG : DSKIP #2,INT((A+2)/3)+4S : DATA LOAD DC #2,R0$() : A$=R0$(MOD(A-1,3)+1) : RETURN 0700 DBACKSPACE #0,BEG : MAT REDIM R0$(3)80 : DATA LOAD DC #0,R0$() : MAT COPY R0$()TO R1$() : A=0 0790 A=A+1 : IF A>15THEN RETURN : E1$=R1$(A) : IF E1$=" "THEN RETURN : DATA LOAD DC #0,R0$() : MAT COPY R0$()TO R2$() : C=0 0830 C=C+1 : IF C>20THEN 790 : E2$=R2$(C) : IF E2$=" "THEN 790 : IF STR(E1$,16,1)=" "THEN 870 : IF VAL(STR(E2$,11))<>#TERMTHEN 830 0870 IF STR(E2$,3,8)<>S$THEN 830 : IF C1>1THEN RETURN : MAT SEARCHD2$(),=STR(E1$,4,3)TO J$STEP 3 : IF J$>HEX(0000)THEN 830 : D2$=STR(E1$,4,3) : D4$=STR(E1$,8,5) : D5$=STR(E1$,14,2) : SELECT #5<D2$> : $IF OFF #5,830 : ERRORRETURN 0908 $OPEN #5 : $IF OFF #5,830 : IF D4$="2281"THEN GOSUB 2130 : STR(E1$,16,1)=BIN(#TERM+48) : RETURN 0930 MAT REDIM R0$(3)83 : SELECT #2<D1$> : DATA LOAD DC OPEN T#2,S0$ : ERRORPRINT AT(22,0,80);HEX(07);S0$;" Not available on ";D1$ : RETURN 0960 C=1 : DSKIP #2,1S 0980 GOSUB 990 : IF B=1THEN RETURN : C=C+1 : IF C<5THEN 980 : RETURN 0990 DATA LOAD DC #2,R0$() : IF STR(R0$(),1,2)=HEX(2020)THEN RETURN : MAT COPY R0$()TO R3$() : C$,R3$=R3$(1) : HEXUNPACKC$TO A$ : IF STR(A$,1,2)<>STR(D2$,2,2)THEN RETURN : IF C$>HEX(05)THEN 1100 : B$=BIN(#TERM+48) : IF STR(R3$,8,1)<>B$THEN RETURN 1100 R3$=R3$(2) : IF STR(R3$,1,2)=HEX(2020)THEN RETURN : B=1 : RETURN 1200 DBACKSPACE #2,BEG : C=VAL(F$(3,D)) : DSKIP #2,CS : D(D)=0 : F$(6,D),F$(5,D)=BIN(1,2) : DATA LOAD DC #2,R0$() : MAT COPY R0$()TO R3$() : R3$=R3$(2) : A=VAL(STR(R3$,7)) : IF A<2THEN 1280 : STR(R3$,7,1)=BIN(A-1) : R3$(2)=R3$ : GOTO 1390 1280 C$=STR(R3$,8) : AND (C$,40) : IF C$=HEX(00)THEN 1290 : A=VAL(R3$,2) : GOSUB 680 : STR(R0$(MOD(A-1,3)+1),20,1)="D" : DBACKSPACE #2,1S : DATA SAVE DC #2,R0$() 1290 DBACKSPACE #0,BEG : MAT REDIM R0$(3)80 : A=VAL(F$(1,D)) : DSKIP #0,AS : DATA LOAD DC #0,R0$() : MAT COPY R0$()TO R2$() : E2$=R2$(1) : IF E2$=" "THEN 1360 : A=VAL(E2$,2) : IF A<2THEN 1340 : STR(R2$(1),1,2)=BIN(A-1,2) : GOTO 1360 1340 STR(R2$(),1)=STR(R2$(),13,12*19) 1360 MAT COPY R2$()TO R0$() : DBACKSPACE #0,1S : DATA SAVE DC #0,R0$() : MAT REDIM R0$(3)83 : IF R3$(3)=" "THEN 1500 : STR(R3$(),9)=STR(R3$(),17,28*8) : R3$=R3$(2) 1390 C=VAL(F$(3,D)) : GOSUB 580 1410 MAT COPY R3$()TO R0$() : DBACKSPACE #2,BEG : DSKIP #2,CS : DATA SAVE DC #2,R0$() : F$(5,D),F$(6,D)=BIN(1,2) : E0$(D)=" " : RETURN 1500 INIT(" ")R3$() : GOSUB 1410 : E0$(D)="E" : SELECT #5<STR(E$(D),15,3)> : STR(E$(D),24,10)="Finished" : D(D)=-1 : $CLOSE#5 : IF STR(E$(D),15,3)>"05"THEN GOSUB 2300 : RETURN 2000 A$=STR(R0$,5) : SELECT #5<STR(E$(A),15,3)> : PRINT AT(20,0,); : $GIO#5(012002FF1212400DA000400D400C400D,K$())A$ : IF K$(8)<>HEX(10)THEN RETURN : STR(E$(A),24,9)="Not Ready" : RETURN 2130 F$=HEX(0D0C020D0C030F) : CONVERT STR(D5$,1,3)TO A1 : IF A1=66THEN 2140 : F$=HEX(020C010200000F) : STR(F$,5,2)=BIN(A1*8,2) 2140 $GIO#5(010302801212A000,Z$)F$<1,7> : RETURN 2200 STOP "Restarting an aborted list involves hogging the printer "# : STOP "Restarting an aborted list involves hogging the printer "# : GOTO 540 2300 DBACKSPACE #0,BEG : MAT REDIM R0$(3)80 : DATA LOAD DC #0,R0$() : MAT COPY R0$()TO R1$() : A=0 : A=A+1 : IF A>15THEN STOP # : E1$=R1$(A) : IF E1$=" "THEN STOP # : IF STR(E1$,2,1)>"05"THEN STR(R1$(A),16)=" " : MAT COPY R1$()TO R0$() : DBACKSPACE #0,BEG : DATA SAVE DC #0,R0$() : RETURN