10 lines
552 B
Mathematica
10 lines
552 B
Mathematica
ZINDXH ;ISC/GRK - Move out %INDEX routines for safe keeping ;2/28/91 07:18 ;
|
|
;;7.3;TOOLKIT;;Apr 25, 1995
|
|
SAVE S A="%IND",B="ZIND" D MOVE Q
|
|
RESTORE S A="ZIND",B="%IND" D MOVE Q
|
|
MOVE W !,"Move ",A,"* routines to ",B,"* routines. Proceed ? " R X:$S($G(DTIME):DTIME,1:360) I X=""!("Yes,Y,y,yes"'[X) W !,"No routines moved." Q
|
|
MV2 F J="EX","X1","X10","X11","X2","X3","X4","X5","X51","X52","X53","X6","X8","X9" X "ZL @(A_J) W !,""Loaded "",A,J ZS @(B_J) W ?20,""Saved as "",B,J"
|
|
Q
|
|
WINDEX S A="WIND",B="ZIND" D MOVE Q
|
|
INSTALL S A="ZIND",B="%IND" D MV2 Q
|