23 lines
1002 B
Mathematica
23 lines
1002 B
Mathematica
AAQMENUT ;FGO/JHS; Programmer Mode TaskMan Menu ;03-06-98 [2/25/02 4:34am]
|
|
;;1.2;AAQ LOCAL;;Mar 6, 1998;For Kernel V8.0 and Cache/OpenM-NT
|
|
;;Logic and code from AHJZSYS routines from 557/THM
|
|
MENU I '$D(IOF) S IOP="HOME" D ^%ZIS K IOP
|
|
W @IOF,"Programmer Mode TaskMan Menu:",!!
|
|
S U="^" F I=1:1 S X=$T(OPT+I) Q:X["$END" W ?($S(I<10:5,1:4)),I,".",?9,$P(X,";",3) W:X'["AAQ" ?45,"(",$P(X,";",2),")" W !
|
|
S N=I-1,AAQMSG="Please enter a number between 1 and "_N_" "
|
|
OPTION R !,?1,"Select Option Number: ",J:120 G:J[U!(J="") EXIT
|
|
I J'?1.N!((J<1)!(J>N)) W !!,$C(7),AAQMSG H 1 G MENU
|
|
S X=$T(OPT+J) W " ",$P(X,";",3),!! W ! D @$P(X,";",2) H AAQH
|
|
S:SAVIOF'=LFIOF IOF=LFIOF
|
|
G MENU
|
|
;
|
|
OPT ;routine to execute;description
|
|
;^ZTMON;Monitor TaskMan
|
|
;DEV^AAQXUTMQ;List Tasks Waiting on Devices (DEV^AAQXUTMQ)
|
|
;WAIT^ZTMKU;Place TaskMan in a WAIT state
|
|
;RUN^ZTMKU;Remove TaskMan from WAIT state
|
|
;STOP^ZTMKU;Stop Task Manager
|
|
;RESTART^ZTMB;Restart Task Manager
|
|
;$END
|
|
EXIT W ! K AAQMSG,I,J,N,X,ZTT Q
|