Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
627 bytes
|
Rev | Line | |
---|
[613] | 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.