YSHELP ;SLC/DKG-FM WORD PROCESSOR INSTRUCTIONS ; 10/7/88  08:25 ;
 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
 S (IOP,E1)=0 D ^%ZIS W @IOF,!!?10,"INFORMATION ABOUT WORD PROCESSOR PARAMETERS AND COMMANDS",!!
 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
 F K1=4:1 G:E1 CLN G:'$D(^YTX(1,1,K1)) CLN D WLN
 Q
WLN ;
 I $Y+P1>IOSL D WAIT Q:E1  D FF
 W !?8,^YTX(1,1,K1,0) Q
FF ;
 W !,@IOF F J=1:1:T W !
 W ?25,"WORD PROCESSOR INSTRUCTIONS",! Q
WAIT ;
 Q:IOST?1"P".E
 N DTOUT,DUOUT,DIRUT
 S DIR(0)="E" D ^DIR K DIR Q:'$D(DIRUT)
 S E1=$D(DIRUT)
 Q
CLN ;
 K A,E1,J,K1,P1,T D ^%ZISC Q