Listing of file='@PSTAT' on disk='vmedia/mvp-cs386-1.19X.wvd.zip'
# Sector 163, 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.