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