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