9 lines
960 B
Mathematica
9 lines
960 B
Mathematica
XQSMDP ; SEA/MJM - Post init for XQSMD Kernel V. 6 ; 12/16/88 12:06 ;
|
|
;;8.0;KERNEL;;Jul 10, 1995
|
|
S (DIE,DIC)=19,DIC(0)="XMF",DR="13///NO"
|
|
F X="XUPROG","XUPROGMODE","EVE","DIEDFILE","DIEDIT","DIFROM","DIIDENT","DIITRAN","DILIST","DIMODIFY","DIINQUIRE","DIPRINT","DIRDEX","DISEARCH","DISTATISTICS","DITRANSFER","DIUNEDIT","DIUSER","DIUTILITY" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
|
|
F X="DIVERIFY","DIWF","DIXREF","XQRESTRICT","XQSMD ADD","XQSMD BUILD MENU","XQSMD BY OPTION" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
|
|
F X="XQSMD EDIT OPTIONS","XQSMD MENU","XQSMD MGR","XQSMD REMOVE","XQSMD REPLICATE","XQSMD SHOW","XQSMD BY USER","XQSMD USER MENU","XUKEYALL","XUKEYDEALL","XUKEYEDIT","XUMAINT","XUOPTDISP","XUOPTLOG","XUOPTPURGE" D ^DIC I +Y>0 S DA=+Y D ^DIE
|
|
F X="XUPMLOG","XUPMPURGE","XUPMDISP","XUPSEC","XUSC LIST","XUSCZONK","XUSEC","XUSER","XUSERAOLD","XUSERNEW","XUSEREDIT","XUSERDEACT","XUSITEMGR","XUSITEPARM","XUUSEROPT" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
|
|
Q
|