image of READY prompt

Wang2200.org

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