| 1 | XQLOCK1 ;MJM/SEA - Utilities for keys in the tree ;04/07/95 11:08
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | EDIT ;Edit the set of keys we're working with
|
|---|
| 5 | W !!,"Enter one of the following codes followed by key name(s): ",!!?5,"'-' (minus) to remove a key from the set",!?8,"(For example ""-XQJUNK"" or ""-XQJUNK,XQMOREJUNK"")"
|
|---|
| 6 | ;W !?5,"'+' (plus) to add a key to this set of keys",!?8,"(For example ""+XQJUNK"" or ""+XQJUNK,XQKEY2"")"
|
|---|
| 7 | W !?5,"'S' to show the current key set"
|
|---|
| 8 | W !?5,"'RETURN' to end the editing session",!?5,"'^' to quit thiogram altogether",!
|
|---|
| 9 | R !!,"Enter -KEY, S, or ^ :",XQUR:DTIME Q:XQUR=""!(XQUR=U)!("-+^"'[$E(XQUR))
|
|---|
| 10 | I $E(XQUR,1)="-" S XQUR=$P(XQUR,"-",2) S %=1 F S XQK=$P(XQUR,",",%) Q:XQK="" S %=%+1 D KEY^XQLOCK I XQ>0 K XQKEY(XQK)
|
|---|
| 11 | I "Ss"[XQUR D SHOW^XQLOCK G EDIT
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | PAUSE ;Hold screen so it doesn't run off
|
|---|
| 15 | W !!,"Hit 'RETURN' to continue, '^' to stop." R XQDUMMY:DTIME
|
|---|
| 16 | I XQDUMMY=U S XQI=-1 K XQDUMMY Q
|
|---|
| 17 | W !!," Option Name",?23,"Option Text",?62,"Locked With",!
|
|---|
| 18 | K XQDUMMY
|
|---|
| 19 | Q
|
|---|
