Listing of file='327PSTAT' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 971, program filename = '327PSTAT'
0010 REM 327PSTAT-- 12/10/85 Display status of each partition in configuratio
n
0020 REM %VARIABLES--
: DIM P$29,P1$2,P2$80,P$(16)29,Q$1,R$2
: P2$=ALL("-")
: P$=$PSTAT(1)
: UNPACK(#.#)STR(P$,10,1) TO R
: SELECT PRINT 005(80)
0025 $PSTAT="P.status"
0030 REM %DISPLAY TITLE--
: PRINT HEX(0D03060E);"***** PARTITION STATUS ***** ";HEX(0F);
: IF STR(P$,9,1)="M" THEN PRINT "M";
: PRINT "VP Release";R;" Partition";#PART
0040 PRINT "#PART USER-MSG BANK SPACEK PRGM #TERM @NAME ERR TEXT
@P DATA I/O"
: PRINT P2$
0049 PRINT AT(22,0);"Press SF'0 to exit to START module"
0050 PRINT AT(23,0);"Press SF'1 to attach terminal to a different partition.";
AT(1,0);
0060 REM %GET & DISPLAY STATUS OF EACH PARTITION--
: PRINT AT(3,0);
: B=1
: FOR P=1 TO 16
: P$=$PSTAT(P)
: ERRORP=ERR
: P=16
: GOTO 140
0070 PRINT HEX(82);
: IF P$=P$(P) THEN 130
0080 CONVERT P TO P1$,(##)
: UNPACK(##) STR(P$,15,1) TO T
0090 REM ELIMINATE UNPRINTABLE CHARACTERS
: $TRAN(STR(P$,,8),"................")
: $TRAN(STR(P$,17,8),"................")
0100 IF T=#TERM THEN PRINT HEX(0E);
0110 PRINT P1$;" ";STR(P$,,8);" ";
: IF VAL(STR(P$,11))<>B THEN PRINT BOX(0,3);
: B=VAL(STR(P$,11))
: PRINT " ";HEXOF(STR(P$,11,1));" ";HEXOF(STR(P$,12,1));".";HEXOF(STR(P$
,13,1));" ";
0120 PRINT STR(P$,14,1);" ";HEXOF(STR(P$,15,1));"-";
: IF T=#TERM OR T=0 AND STR(P$,16,1)="W" THEN PRINT HEX(020404000E);
: PRINT STR(P$,16,1);HEX(020402000F);
: IF T=#TERM THEN PRINT HEX(0E);
: PRINT " ";STR(P$,17,8);" ";HEXOF(STR(P$,25,1));" ";HEXOF(STR(P$,2
6,1));" ";HEXOF(STR(P$,27,1));" ";HEXOF(STR(P$,28,1));" ";HEXOF(STR
(P$,29,1));
0130 $BREAK2
: PRINT HEX(0D);" "
0140 P$(P)=P$
: NEXT P
: PRINT P2$
: PRINT AT(20,0);"Device Table="
: SELECT LIST 205(80)
: LIST DT
: SELECT LIST 005(80)
0141 B$=HEX(00)
: P$=$PSTAT(1)
: IF STR(P$,17,8)="3270UNIV"THEN OR (B$,80)
0142 P$=$PSTAT(2)
: IF STR(P$,17,8)="3270 MCT"THEN IF STR(P$,29,1)<>HEX(01)THEN OR (B$,40)
0143 P$=$PSTAT(3)
: IF STR(P$,17,8)="32NOPRNT"OR STR(P$,17,8)="3270PRNT"THEN IF STR(P$,25,1)=
HEX(00)THEN IF STR(P$,29,1)<>HEX(01)THEN OR (B$,20)
0144 IF B$=HEX(E0)THEN PRINT AT(20,20);HEX(020402020E);"Wang 2200/3270 Emulato
r system active";HEX(020400000F);
: ELSE PRINT AT(20,20,60)
0150 REM %RELEASE?--
: KEYIN Q$,60,155
: GOTO 60
0155 PRINT HEX(05);
: IF Q$<>HEX(00)THEN 160
: LOAD DC T#0,N$(1)
0160 IF Q$<>HEX(01) THEN 60
: P$()=" "
: PRINT AT(22,0,);
: GOTO 180
0170 P=ERR
: PRINT AT(23,0);"CANNOT ATTACH TO PARTITION ";R$;" SINCE IT IS ASSIGNED TO
ANOTHER TERMINAL.";
0180 REM %RELEASE TERMINAL
: PRINT AT(22,0);
: PRINT "Which partition is terminal";#TERM;"to be attached to (#PART)?";
: R$=" "
: LINPUT ?-R$
: PRINT AT(23,0,80);
: IF R$=" " THEN 30
: CONVERT R$ TO P
: ERRORGOTO 180
0190 IF P<1 OR P>16 OR INT(P)<>P THEN 180
: P$=$PSTAT(P)
: ERRORGOTO 180
0200 UNPACK(##) STR(P$,15,1) TO T
: IF T<>#TERM AND T<>0 THEN 170
0210 REM %RELEASE PARTITION
: PRINT AT(22,0,80);
: PRINT "Do you want to release partition";#PART;"for another terminal (Y o
r N)?";
: Q$=" "
: LINPUT ?-Q$
: ON POS("YyNn"=Q$) GOTO 220,220,220,220
: GOTO 210
0220 REM %RELEASE
: PRINT HEX(0D03);
: $RELEASE TERMINAL TO P
: IF Q$="Y" OR Q$="y" THEN $RELEASE PART
: GOTO 30
: REM LOAD T/xyz,"filename" should replace previous GOTO if you want to loa
d a program into the released partition.