Listing of file='@PSTAT' on disk='vmedia/731-8016-A.wvd.zip'
# Sector 286, program filename = '@PSTAT'
0010 REM ! Prog = @PSTAT By PLS (Modified by TBO) Date = 02/12/90
0015 REM ! (c) Copr. Wang Laboratories, Inc. 1985, 1986, 1989
0020 DIM P$29,P1$2,P2$80,P4$40,P$(16)29,Q$1,R$2,C$1
: P2$=ALL("-")
: P$=$PSTAT(1)
0022 HEXUNPACKSTR(P$,10,1)TO P1$
0024 C$=STR(P$,9,1)
: IF C$="V"THEN P4$="VP"
: IF C$="M"THEN P4$="MVP"
: IF C$="W"THEN P4$="CS 386"
0028 P4$=P4$&" Release "&STR(P1$,1,1)&"."&STR(P1$,2,1)&" Partition "
0030 PRINT HEX(03060E);" ***** Partition Status - (c) Copr. Wang Laborator
ies, Inc. 1989 *****"
0035 PRINT AT(1,23);P4$;#PART
0040 IF C$="W"THEN PRINT "#PART USER-MSG SPACE K PRGM #TERM @NAME
ERR TEXT @P DATA I/O"
: ELSE PRINT "#PART USER-MSG Bank SpaceK PRGM #TERM @NAME ERR
TEXT @P DATA I/O"
0044 PRINT P2$
0050 PRINT AT(22,0,80);"Press SF'0 to attach terminal to a different partition
.";
: B=1
0051 PRINT AT(23,0);"Press 'FN' or 'TAB' to return to menu.";
0060 REM %GET & DISPLAY STATUS OF EACH PARTITION--
: PRINT AT(4,0);
: FOR P=1TO 16
: P$=$PSTAT(P)
: ERRORP=ERR
: P=16
: GOTO 140
0070 PRINT "-";
: IF P$=P$(P)THEN 130
0080 CONVERT PTO 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=#TERMTHEN PRINT HEX(0E);
0110 PRINT P1$;" ";STR(P$,,8);" ";
0115 IF C$="W"THEN PRINT HEXOF(STR(P$,11,2));".";HEXOF(STR(P$,13,1));" ";
: ELSE 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=#TERMOR T=0AND STR(P$,16,1)="W"THEN PRINT HEX(020404000E);
: PRINT STR(P$,16,1);HEX(020402000F);
: IF T=#TERMTHEN 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$
: B=8
0150 REM %RELEASE?--
: KEYIN Q$,60,160
: GOTO 60
0160 IF Q$<>HEX(00)AND Q$<>HEX(7E)AND Q$<>HEX(7F)THEN 60
: IF Q$<>HEX(00)THEN 161
: P$()=" "
: GOTO 180
0161 DEFFN'126
0162 DEFFN'127
: LOAD RUN
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,79);
: PRINT "Which partition is terminal";#TERM;"to be attached to (#PART)?";
: R$=" "
: LINPUT ?-R$
: IF R$=" "THEN 30
: CONVERT R$TO P
: ERRORGOTO 180
0190 IF P<1OR P>16OR INT(P)<>PTHEN 180
: P$=$PSTAT(P)
: ERRORGOTO 180
0200 UNPACK(##)STR(P$,15,1)TO T
: IF T<>#TERMAND T<>0THEN 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);
: $RELEASETERMINALTO P
: IF Q$="Y"OR Q$="y"THEN $RELEASEPART
: LOAD T"START"
: GOTO 30
: REM LOAD T/xyz,"filename" should replace previous GOTO if you want to loa
d a program into the released partition.