90 lines
2.4 KiB
Mathematica
90 lines
2.4 KiB
Mathematica
ZVEMSGT ;DJB,VSHL**VShell Global - System QWIKs cont.. ; 9/6/02 8:47am
|
|
;;12;VPE;;COPYRIGHT David Bolduc @1993
|
|
;
|
|
SYSTEM ;Load the System QWIKs
|
|
NEW I,QWIK,TYPE,TXT,VEN
|
|
F I=1:1 S TXT=$T(QWIK+I) Q:$P(TXT,";",3)="***" S QWIK=$P(TXT,";",3),TYPE=$P(TXT,";",4) D
|
|
. I TYPE="D" S ^%ZVEMS("QS",QWIK,"DSC")=$P(TXT,";",5,999)
|
|
. I TYPE="C" S ^%ZVEMS("QS",QWIK)=$P(TXT,";",5,999) ;Code
|
|
. I TYPE?1.N S ^%ZVEMS("QS",QWIK,TYPE)=$P(TXT,";",5,999) ;Vendor specific code
|
|
Q
|
|
QWIK ;System QWIK Commands
|
|
;;DOS;D;DOS Interface^^5
|
|
;;DOS;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;DOS;8;D ^%OS
|
|
;;DOS;9;d ^%dos
|
|
;;G;D;Global List^^5
|
|
;;G;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;G;2;D ^%G
|
|
;;G;8;D ^%GL
|
|
;;G;9;d ^%g
|
|
;;G;16;D ^%G
|
|
;;G;17;D ^%G
|
|
;;G;18;D ^%G
|
|
;;G;19;D ^%G
|
|
;;GCOPY;D;Global Copy^^5
|
|
;;GCOPY;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;GCOPY;2;D ^%GC
|
|
;;GCOPY;8;D ^%GCOPY
|
|
;;GCOPY;9;d ^%gcopy
|
|
;;GCOPY;16;D ^%GC
|
|
;;GCOPY;17;D ^%GC
|
|
;;GCOPY;19;D ^%GC
|
|
;;GD;D;Global Directory^^5
|
|
;;GD;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;GD;2;D ^%GD
|
|
;;GD;8;D ^%GD
|
|
;;GD;9;d ^%gd
|
|
;;GD;16;D ^%GD
|
|
;;GD;17;D ^%GD
|
|
;;GD;18;D ^%GD
|
|
;;GD;19;D ^%GD
|
|
;;GDE;D;Extended Global Directory^^5
|
|
;;GDE;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;GDE;8;D ^%GDE
|
|
;;GDE;16;D ^%EGD
|
|
;;GEDIT;D;Global Edit^^5
|
|
;;GEDIT;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;GEDIT;2;D ^%GEDIT
|
|
;;GEDIT;8;D ^%GEDIT
|
|
;;GEDIT;9;d ^%gedit
|
|
;;GEDIT;16;D ^%GEDIT
|
|
;;GEDIT;17;D ^%GED
|
|
;;GEDIT;18;D ^%GED
|
|
;;GEDIT;19;D ^%GED
|
|
;;GLB;D;Global Screen Capture^%1=Global Reference %2=How many lines before pause^5
|
|
;;GLB;C;D GLB^%ZVEMKT(%1,"SC",%2)
|
|
;;GR;D;Global Restore^^5
|
|
;;GR;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;GR;2;D ^%GTI
|
|
;;GR;8;D ^%GR
|
|
;;GR;9;d ^%gload
|
|
;;GR;16;D ^%GTI
|
|
;;GR;17;D ^%GI
|
|
;;GR;18;D ^%GI
|
|
;;GR;19;D ^%GI
|
|
;;GS;D;Global Save^^5
|
|
;;GS;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;GS;2;D ^%GTO
|
|
;;GS;8;D ^%GS
|
|
;;GS;9;d ^%gsave
|
|
;;GS;16;D ^%GTO
|
|
;;GS;17;D ^%GO
|
|
;;GS;19;D ^%GO
|
|
;;GSE;D;Global Search^^5
|
|
;;GSE;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;GSE;8;D ^%GSE
|
|
;;GSE;9;d ^%gedit
|
|
;;GSE;17;D ^%GSE
|
|
;;GSE;19;D ^%GSE
|
|
;;GSEL;D;Global Select^^5
|
|
;;GSEL;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
|
;;GSEL;2;D ^%GSEL
|
|
;;GSEL;8;D ^%GSEL
|
|
;;GSEL;9;w $$^%gselect," globals selected"
|
|
;;GSEL;16;D ^%GSEL
|
|
;;GSEL;17;D ^%GSEL
|
|
;;GSEL;18;D ^%GSET
|
|
;;GSEL;19;D ^%GSEL
|
|
;;***
|