Listing of file='3270PRN0' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 520, program filename = '3270PRN0' 0010 REM .3270PRN0 10/14/82 : GOTO 11 : ON A GOTO 60 0011 LOAD DC T#0,"32WPCAT "4000,9999BEG 50 0012 COM C1$1,C9$(16),D0(4),A1,B1,B3,H,D,D6,D8,D9 : COM R1$1,U0,U0(23),U0$3,U1$(1)1,U3$1,U4,U4$4,U5(10),U6,U8,V0,V2,V5,V5(9), V5$(160)1,V6,V6(9),V9,V9(9) : DIM F$,V1$(24)82 : DIM D5,C1,D$(5),D$,J 0050 DEFFN@PART"32NOPRNT" : SELECT @PART"3270UNIV" : %.ERR X77 shows 3270UNIVersal not loaded into partition 1 0060 IF #PART=3THEN 75 : GOSUB '99(1,"3270PRNT can operate only in partition 3") : PRINT : STOP # 0075 D=C : $PSTAT="No Load" : J=8 : FOR A=1TO 4 : A$=STR(@P$(A),15,3) : IF A$=" "THEN 85 : SELECT #5<A$> : $CLOSE#5 0085 NEXT A 0100 DEFFN'0 : SELECT #4005,#9001 : D=1 0110 $BREAK100 : $IF OFF #4,180 : ON C1GOTO 170 : C1=1 : GOSUB '99(0,"Printer Task waiting for T.C. Board assignment") : PRINT AT(12,2);"Print / Spooler Status =";STR(@P$(5),24,10), : PRINT "TC board is "; : IF STR(@Z$,25,2)=" "THEN PRINT "unassigned"; : ELSE PRINT STR(@Z$,25,2); 0160 PRINT TAB(80) : PRINT " Key anything to release this terminal to another partition" : PRINT " Or else wait for a LOAD of a cluster from some other terminal" 0170 $IF OFF #9,180 : C1=0 : KEYIN C$ : $RELEASEPART : GOTO 100 0180 IF STR(@Z$,25,1)=" "THEN 110 : A$="0" : STR(A$,2)=STR(@Z$,25,2) : SELECT #6<STR(A$,1,3)> : IF @C$=" "THEN 110 : D6=VAL(STR(@Z$,34))-48 : IF D6>0THEN 230 : $PSTAT="No Print" : D9=1 : GOTO 280 0230 IF STR(@P$(5),24,1)="A"THEN 270 : IF STR(@P$(5),41,1)<>"N"THEN 110 : $PSTAT="Printer" : D9=4 : GOTO 280 0270 IF STR(@P$(5),55)=" "THEN 110 : $PSTAT="w/Spool" : D9=3 : GOSUB 490 0280 GOSUB 310 : CONVERT STR(@Z$,27,2)TO A : IF A>31THEN A=31 : BIN(C1$)=A*8 : D8=1920 : ON D9GOTO 110,292,294,296 0292 D9=3 : A$="3270PRNT32WPRECI" : LOAD DC T#0,<2>A$ 0294 D9=3 : A$="3270PRNT32WPRECI" : LOAD DC T#0,<2>A$ 0296 D9=4 : A$="3270PRNT" : LOAD DC T#0,<1>A$ 0310 INIT(20)C9$() : C9$(01)=HEX(202020202020202020200A0B0C0D2020) : C9$(02)=HEX(2020202020152020201920202A202A20) : C9$(03)=HEX(202122232425262728292A2B2C2D2E2F) : C9$(04)=HEX(303132333435363738393A3B3C3D3E3F) : C9$(05)=HEX(404142434445464748494A4B4C4D4E4F) 0350 C9$(06)=HEX(505152535455565758595A5B5C5D5E5F) : C9$(07)=HEX(606162636465666768696A6B6C6D6E6F) : C9$(08)=HEX(707172737475767778797A7B7C7D7E7F) : C9$(09)=HEX(202020202020202020202020FFFFFFFF) : C9$(10)=HEX(202020202020202020202020FFFFFFFF) 0375 C9$(11)=HEX(202020202020202020202020FFFFFFFF) : C9$(12)=HEX(202020202020202020202020FFFFFFFF) : C9$(13)=HEX(202020202020202020202020FFFFFFFF) : C9$(14)=HEX(202020202020202020202020FFFFFFFF) : C9$(15)=HEX(202020202020202020202020FFFFFFFF) 0400 C9$(16)=HEX(202020202020202020202020FFFFFFFF) : RETURN 0420 DEFFN'99(A,A$) : SELECT PRINT 005 : PRINT HEX(03);BOX(5,79);HEX(0A0A0E);TAB(40-LEN(A$)/2);A$ : RETURN 0490 D$(1)="STRM.1" : D$(2)="STRM.2" : D$(3)="STRM.3" : D$(4)="STRM.4" : D$(5)="3270" : D$=STR(@P$(5),55,3) : SELECT #2<D$> : F$=STR(@N$,2,8) : IF F$=" "THEN 740 : DATA LOAD DC OPEN T#2,F$ 0740 F$=STR(@P$(5),66,8) : GOSUB '246(1) : B$=HEX(01) : FOR D=1TO 4 : GOSUB '211(D$(D),F$,D$(5),B$) : ON VAL(R1$)+1GOTO 820 : GOTO 860 0820 D0(D)=V3 : NEXT D : RETURN 0860 $PSTAT="Disk Err" : RETURN CLEAR ALL : @C$=" " : GOTO 100