Last change
on this file since 1352 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
627 bytes
|
Line | |
---|
1 | YSHELP ;SLC/DKG-FM WORD PROCESSOR INSTRUCTIONS ; 10/7/88 08:25 ;
|
---|
2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
---|
3 | S (IOP,E1)=0 D ^%ZIS W @IOF,!!?10,"INFORMATION ABOUT WORD PROCESSOR PARAMETERS AND COMMANDS",!!
|
---|
4 | K IOP D ^%ZIS G:POP CLN S T=$S(IOST["P-":2,IOST["C-":1,1:1),P1=$S(IOST["P-":10,IOST["C-":4,1:1) U IO D FF
|
---|
5 | F K1=4:1 G:E1 CLN G:'$D(^YTX(1,1,K1)) CLN D WLN
|
---|
6 | Q
|
---|
7 | WLN ;
|
---|
8 | I $Y+P1>IOSL D WAIT Q:E1 D FF
|
---|
9 | W !?8,^YTX(1,1,K1,0) Q
|
---|
10 | FF ;
|
---|
11 | W !,@IOF F J=1:1:T W !
|
---|
12 | W ?25,"WORD PROCESSOR INSTRUCTIONS",! Q
|
---|
13 | WAIT ;
|
---|
14 | Q:IOST?1"P".E
|
---|
15 | N DTOUT,DUOUT,DIRUT
|
---|
16 | S DIR(0)="E" D ^DIR K DIR Q:'$D(DIRUT)
|
---|
17 | S E1=$D(DIRUT)
|
---|
18 | Q
|
---|
19 | CLN ;
|
---|
20 | K A,E1,J,K1,P1,T D ^%ZISC Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.