Listing of file='B3270MON' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 2439, program filename = 'B3270MON'
0010 REM B3270MON 01/10/84
: COM A
0020 DIM Y$(4)62,A$(8)20
: $PSTAT="C.status"
0030 SELECT PRINT 005(80)
: C=1
: PRINT HEX(0306);
0040 A$=$PSTAT(1)
: IF STR(A$,17,8)="3270UNIV"THEN 50
: GOSUB '99(10,"3270UNIV Not Loaded into Universal area")
: GOTO 40
0050 A$=$PSTAT(2)
: IF STR(A$,17,8)="3270 MCT"THEN 60
: GOSUB '99(10,"3270 MCT Not Loaded into Partition 2")
: GOTO 40
0060 SELECT @PART"3270UNIV"
: B=0
: A$="Cluster "&STR(@Z$,29,2)&" Status Display"
: PRINT HEX(03);AT(0,0);BOX(2,79);HEX(0E);TAB(40-LEN(A$)/2);A$
: PRINT TAB(22);"This is Terminal =";#TERM;" in Partition =";#PART
: PRINT AT(23,0);"Key S.F. '0 to exit";TAB(40);"Other S.F. key to refresh d
isplay";
0110 IF @Z$=" "OR @C$=" "THEN 200
: IF B<>2THEN 220
0120 PRINT AT(0,1);HEX(8B);
: GOSUB '210
: PRINT AT(0,1);HEX(20);
0130 $BREAK255
: KEYIN C$,110,150
: GOTO 110
0150 IF C$=HEX(00)THEN 170
: GOTO 30
0170 COM CLEAR B$
: PRINT HEX(05)
: LOAD DC T#0,"ASKAWHAT"
0200 IF B=2THEN 60
: B=3
: PRINT AT(12,29);HEX(020404040E);"No Cluster is Loaded";HEX(020400000F)
: GOSUB 520
: GOTO 130
0220 DATA LOAD DC OPEN T#0,"3270CALL"
: A=VAL(STR(@Z$,24))-65
: IF A<1OR A>14THEN 230
: DSKIP #0,AS
0230 DATA LOAD DC #0,Y$()
: FOR A=1TO VAL(STR(@C$,33))-48
: BIN(STR(A$(A),2))=A+48
: STR(A$(A),4,2)=STR(@C$,A*3+38,3)
: STR(A$(A),8,8)=STR(Y$(),16*A-15,8)
: NEXT A
: B=2
: PRINT AT(12,0,80)
: GOTO 120
0290 DEFFN'210
: PRINT AT(11,0);BOX(2,19);AT(11,20);BOX(2,19);AT(11,40);BOX(2,19);AT(11,60
);BOX(2,19)
: PRINT AT(10,30);"Station Equates"
: PRINT STR(A$(),1,80)
: PRINT STR(A$(),81,80)
: PRINT AT(3,0);"CONFIGURATION";TAB(20);"Stations";TAB(61);"Printers"
: PRINT TAB(15);" 1 2 3 4 5 6 7 8";TAB(60);"1 2 3 4"
0360 PRINT "Configured:";TAB(15);STR(@C$,41,23);TAB(60);STR(@C$,1,11)
: C=VAL(STR(@C$,33))-48
: PRINT "Attached:";TAB(15);STR(@A$,41,23);TAB(60);STR(@A$,1,11)
: PRINT "Status:";TAB(14);
: FOR A=1TO C
: PRINT " ";
: HEXPRINT STR(@D$(A),2,1);
: NEXT A
: PRINT TAB(59);
: FOR A=9TO 12
: PRINT " ";
: HEXPRINT STR(@D$(A),2,1);
: NEXT A
: PRINT
0400 PRINT "CPU Term.#";TAB(15);
: FOR A=1TO C
: PRINT STR(@A$,24+A,1);" ";
: NEXT A
: PRINT TAB(40);"User exit = ";STR(@Z$,12,8)
: PRINT "CPU Part.#";TAB(15);
: FOR A=1TO C
: PRINT STR(@A$,12+A,1);" ";
: NEXT A
: PRINT TAB(40);"TC board = ";STR(@Z$,25,2);" ";
: IF STR(@A$,40,1)="A"THEN PRINT "Active"
: ELSE PRINT "Idle "
0470 PRINT AT(14,0),"Print streams";
: IF STR(@C$,34,1)>"0"THEN 475
: PRINT TAB(40);"None configured"
: GOTO 520
0475 PRINT TAB(44);"Blocks Disk usage -- Report --"
: PRINTUSING 510,"No.","Device","Addr","Status","--Name--","Rcvd","Used","T
otal","Number & Name"
: PRINT AT(16,0);BOX(1,64)
: IF STR(@P$(5),24,4)<>"None"THEN 495
: PRINTUSING 510," .","Spooler"," ",STR(@P$(5),24,10)," "," "," "," "
: GOTO 500
0495 PRINTUSING 510," .","Spooler",STR(@P$(5),55,3),STR(@P$(5),24,10),STR(@P$(
5),66,8)," ",VAL(STR(@P$(5),35),2),VAL(STR(@P$(5),76),2)
0500 FOR A=1TO VAL(STR(@C$,34))-48
: PRINTUSING 512,STR(@P$(A),1,2),STR(@P$(A),6,7),STR(@P$(A),15,5),STR(@P$(A
),24,10),STR(@P$(A),66,8),VAL(STR(@P$(A),35),2),VAL(STR(@P$(A),41),2),STR
(@P$(A),47,18)
: NEXT A
0510 %### ######## #### ############ ######### ##### ##### ##### ######
#######
0512 %### ######## ##### ############ ######### ##### ##### ###########
#######
0520 A$=$PSTAT(2)
: IF STR(A$,17,8)<>"3270 MCT"THEN 550
: PRINT AT(22,0);STR(A$,17,8);" in Part. 2 ";
: GOSUB 545
: A$=$PSTAT(3)
: PRINT TAB(40);STR(A$,17,8);" ";STR(A$,1,8);" in Part. 3 ";
0545 C=VAL(STR(A$,15))
: IF C=0THEN PRINT "background";
: ELSE PRINT "foreground";
: RETURN
0550 STOP "MCT Task no longer in partition 2"
0560 DEFFN'99(A,A$)
: PRINT HEX(03);BOX(5,79);HEX(0A0A0E);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