Listing of file='B327044' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 69, program filename = 'B327044'
0010 REM B327044 02/13/84 Off-List
: GOTO 190
0190 A$="32WPRECI32WPRECM"
: LOAD T#0,<2>A$4000,9999BEG 310
: DIM D0,B1$5,D2$3,D2$(4)3,D3$(4)1,B1(4),B2(4),D2$3,D4$5,D4$(4)5,D5$3,D5$(4
)3,D0$(4)1,D8(4),D$(4,80)24,E$(5)80,E0(4),P(4),R$(4)10,R0$83,R$18,R1$1
0210 DIM D(4),D1(4),D9(4),K$(10)1,N0$(4)1,N1$(150)1,V1$(24)82,V0$(1)1,N,E
0310 SELECT @PART"3270UNIV"
: FOR A=1TO 4
: IF B1(A)=0OR B1(A)<B2(A)THEN 330
: GOSUB '220(A-1,1,1,1,1)
: IF V0<1THEN V0=0
: B2(A)=V0
0330 NEXT A
0340 $BREAK2
: D=D+1
: IF D>4OR P(D)<0THEN D=1
: ON SGN(D(D))+1GOSUB 410,690
: $IF OFF #4,340
: ON C1+1GOSUB 430,460
0380 $IF OFF #9,340
: KEYIN C$
: IF C$=HEX(82)THEN 570
: IF C$=HEX(00)THEN 590
0390 PRINT AT(T,0,)
: A=2
: LOAD DC T#0,"B327043"
0410 IF B1(D)>B2(D)THEN 418
: IF STR(R$(D),8,1)<HEX(80)THEN 415
: GOSUB 920
: RETURN
0415 IF STR(D$(),(D-1)*D9+1,16)=R2$THEN 418
: GOSUB 920
: IF STR(V1$(),1,16)<>R9$THEN RETURN
: IF STR(V1$(),17,18)=STR(E$(D),41,18)THEN RETURN
0418 A=3
: LOAD DC T#0,"B327043"
0430 C1=1
: PRINT HEX(06)
: A$="Wang 2200/3270 "
: IF E0$(5)="A"THEN A$=A$&" Active"
: A$=A$&" Spool file lister"
: GOSUB '99(0,A$)
: PRINT AT(T,10);"Off-line lister data using Spooler file ";S$;" on disk ";
D1$;AT(T+2,0);
: PRINTUSING 530
: PRINT AT(T+8,24);"<< On-line Printer task monitor >>",AT(T+11,0)
: PRINTUSING 540
0435 FOR A=1TO 4
: R0$=E$(A)
: PRINT AT(T+2+A,1);
: IF R0$<>" "THEN PRINTUSING 550,A,STR(R0$,6,7),STR(R0$,15,3),STR(R0$,24,10
),STR(R0$,41,18),VAL(F$(6,A),2),STR(R0$,1,1),B1(A)-1,B2(A),D(A),D9(A)
: NEXT A
0440 PRINT HEX(06);AT(22,0);
: PRINT "Key RUN to Clear Active Display";TAB(45);
: GOSUB 555
0460 PRINT AT(T+2+D,0);HEX(8B);
: R0$=E$(D)
: PRINTUSING 550,D,STR(R0$,6,7),STR(R0$,15,3),STR(R0$,24,10),STR(R0$,41,18)
,VAL(F$(6,D),2),STR(R0$,1,1),B1(D)-1,B2(D),D(D),D9(D)
: FOR Y=1TO 4STEP 1
: R0$=E$(Y)
: IF STR(R0$,24,10)<>"Finished"THEN 465
0462 NEXT Y
: Y=1
: GOTO 590
0465 IF STR(R0$,24,10)=" "THEN 462
: Y=4
: NEXT Y
: PRINT HEX(0C20)
: PRINT AT(T+9,1);
: IF STR(@P$(5),24,4)="None"THEN 480
: IF @Z$<>" "THEN 490
: PRINT TAB(30);"No cluster is loaded";TAB(80)
: RETURN
0480 PRINTUSING 550,"..","Spooler"," ","None"," "," "," "
: GOTO 500
0490 R0$=@P$(5)
: PRINTUSING 550,"..","Spooler",STR(R0$,55,3),STR(R0$,24,10),STR(R0$,66,8),
" "," "," ",VAL(STR(R0$,35),2),VAL(STR(R0$,76),2)
0500 IF D8>0THEN RETURN
: D6=D6+1
: IF D6>VAL(STR(@C$,34))-48THEN D6=1
: PRINT AT(15+D6,0);HEX(8B);
: R0$=@P$(D6)
: PRINTUSING 550,STR(R0$,1,2),STR(R0$,6,7),STR(R0$,15,3),STR(R0$,24,10),STR
(R0$,47,16)," "," ",D6,VAL(STR(R0$,35),2)
: PRINT HEX(0C20)
: RETURN
0530 % No. Device Status Report name Page Strm <block>
Pointers
0540 % No. Device Status Last Rcvd Report Strm block No.
blks
0550 %## ####### ### ########## ################## #### # #### #### ##
## ####
0555 PRINT "Key '0 to ABORT Job"
: PRINT "Key any other character to return to prompts";
: RETURN
0570 IF C1=2THEN 575
: C1=2
: GOSUB '99(0,"Terminal active listing spooled data")
: PRINT AT(6,0);"Key RUN to restore active display"
: GOSUB 555
: GOTO 380
0575 GOSUB 430
: GOTO 380
0590 X0=22
: Y0=80
: GOSUB '0
: IF Y=1THEN 390
: GOSUB 440
: GOTO 380
0600 DEFFN'0
: C$="C"
0610 PRINT HEX(06);AT(12,0,);"Type A=Abort job C=Continue off-line utility";
: LINPUT -C$
: ON POS("AC"=C$)+1GOTO 610,630
: C1=0
: X=X-1
: PRINT AT(X0,0,Y0)
: X0=10
: Y0=12*80
: RETURN
0630 $CLOSE
: RETURN CLEAR ALL
: COM CLEAR B$
: LOAD DC T#0,N$(1)
0660 DEFFN'99(A,A$)
: SELECT PRINT 005
: PRINT HEX(03);BOX(3,79);HEX(0A0E);TAB(40-LEN(A$)/2);A$
: IF A=0THEN RETURN
: SELECT P2
: FOR A=ATO 0STEP -1
: PRINT A;HEX(0C)
: NEXT A
: SELECT P
: RETURN
0690 D2$=STR(E$(D),15)
: SELECT #5<D2$>
: IF D2$="005"THEN 705
: $GIOTESTPRINTERREADY#5(010002011212400040004000,K$())
: IF K$(8)<>HEX(10)THEN 710
: ADD(N0$(D),01)
: IF N0$(D)<HEX(A0)THEN RETURN
: STR(E$(D),24,9)="Not Ready"
: RETURN
0705 D8=D8+1
: IF D8>7THEN D8=1
: PRINT AT(D8+13,0,160);
0710 A=D(D)
: B3=0
: B,C=D1(D)
: IF B>0THEN 740
: B=D9(D)-A
: IF B>132THEN B=132
: C=B
: N=POS(STR(D$(),A,B)=15)
: E=POS(STR(D$(),A,B)=19)
: IF N+E=0THEN 730
: C=N
: IF E=0THEN 730
: IF N=0THEN 728
: IF N<ETHEN 730
0728 C=E
: B3=1
0730 B=C-1
: IF B=0AND B3=1THEN 790
0740 INIT(20)N1$()
: MAT COPY D$()<A,B>TO N1$()
: $TRAN(N1$(),C9$())
: IF F$(6,D)<F$(7,D)THEN 820
: A1=POS(N1$()=FF)
: IF D3$(D)="N"THEN 760
: IF A1=0THEN 790
0760 B4=POS(STR(D$(),A+A1,MAX(B-A1,1))>7F)-1
: IF B4<0THEN B4=B-A1
: D3$(D),STR(N1$(),MAX(A1,1),MAX(B4+SGN(A1)*1,1))=" "
: IF B-A1=B4THEN D3$(D)="N"
: A1=POS(N1$()=FF)
: ON SGN(A1)GOTO 760
0790 D(D),A=A+C
: IF B=0AND B3=1THEN 800
: A1=POS(N1$()=HEX(0C))
: IF F$(6,D)=F$(8,D)OR B1(D)>B2(D)+1AND A1<>0THEN 798
0792 IF POS(N1$()=0C)>0THEN GOSUB 840
: IF D4$(D)="PC"THEN Z$=HEX(140000)
: ELSE Z$=HEX(14007F)
: $GIO#5(12124230A000400D,Z$)N1$()<1,LEN(N1$())>
: IF Z=1THEN 900
: IF A1<>0THEN 798
: IF F$(5,D)<=F$(9,D)THEN 800
0798 F$(5,D)=BIN(1,2)
: F$(6,D)=ADDCBIN(1,2)
: IF F$(6,D)>F$(8,D)THEN 815
: GOTO 805
0800 F$(5,D)=ADDCBIN(1,2)
0805 STR(E$(D),24,9)="Printing"
: IF B3=1THEN 810
: IF D9(D)>ATHEN RETURN
0810 D(D)=0
: ON POS("EW"=E0$(D))GOTO 418,830
: STR(E$(D),24,9)="Printed"
: RETURN
0815 D(D)=0
: GOTO 418
0820 A1=POS(N1$()=HEX(0C))
: IF A1<>0THEN 821
: IF F$(5,D)<=F$(9,D)THEN 825
0821 F$(5,D)=BIN(1,2)
: F$(6,D)=ADDCBIN(1,2)
: D(D)=A+C
: IF D(D)>=D9(D)THEN Z=1
: IF F$(6,D)=F$(7,D)THEN 792
: GOTO 827
0825 F$(5,D)=ADDCBIN(1,2)
: D(D)=A+C
: IF D(D)>=D9(D)THEN Z=1
0827 STR(E$(D),24,10)="Reading"
: IF Z=1THEN 900
: IF B3=1THEN 810
: IF D9(D)>ATHEN RETURN
0830 STR(E$(D),24,10)="Waiting"
: RETURN
0840 C=LEN(N1$())
: $TRAN(STR(N1$(),2,C),HEX(3C0C))R
: IF N1$(1)<>HEX(0C)THEN RETURN
: MAT COPY -N1$()<2,C>TO -N1$()<3,C>
: N1$(2)=" "
: RETURN
0900 D(D)=0
: IF B1(D)>B2(D)THEN 418
0920 Z=0
: STR(E$(D),35,2)=BIN(B1(D),2)
: IF E0$(D)=" "THEN 950
: IF E0$(D)="E"THEN 418
: STR(E$(D),24,10)="Waiting"
: CONVERT STR(@P$(D),35,5)TO B1
: ERRORB1=0
0940 IF B1=E0(D)THEN RETURN
: E0(D)=B1
: E0$(D)=" "
0950 GOSUB '220(P(D),1,B1(D),1,1)
: ON POS(HEX(002825)=R1$)+1GOTO ,990,980,960
: PRINT "WP ERROR R1$=(";HEXOF(R1$);")"
: STOP #
0960 IF E0$(5)="A"THEN 970
: GOSUB '99(3,"Specified Starting Block Does not Exist")
: RETURN CLEAR
: GOTO 390
0970 E0$(D)="W"
: RETURN
0980 E0$(D)="E"
: IF E0$(5)="A"AND B1(D)<B2(D)THEN E0$(D)="W"
0990 B1(D)=B1(D)+1
: MAT COPY V1$()<1,D9>TO D$()<(D-1)*D9+1,D9>
: B$,C$,D0$(D)=STR(V1$(),D9+3,1)
: AND (B$,08)
: IF B$=HEX(00)THEN 1010
: D3$(D)=" "
: D(D)=(D-1)*D9+1
: D9(D)=(D-1)*D9+1+D9
: AND (C$,30)
: C=0
: IF C$=HEX(10)THEN C=40
: IF C$=HEX(20)THEN C=64
: IF C$=HEX(30)THEN C=80
: D1(D)=C
: RETURN
1010 PRINT AT(0,1);HEXOF(C$);"=WCC Start Print bit not on"
: RETURN