DIWE11 ; IHS/ADC/GTH:KEU - WORD PROCESSING UTILITY FUNCTION 3/4/92 9:55 AM ;
;;5.0;AZHLSC;;JUL 10, 1996
; IHS/GTH - 02.08.93 - Added tie-in to SAC Checker Spell Checking.
S DWOU="EFST" ; IHS/GTH - 02.08.93
1 R !,"UTILITY Option: ",X:DTIME S:'$T DTOUT=1 G QQ:U[X!(X=".")
LC I X?1L S X=$C($A(X)-32)
S J="^DOPT(""DIWE11""," I X?1U S I=$F(DWOU,X)-1 I I>0 S ^DISV(DUZ,J)=I S I=I*2-1 G OPT
I X=" ",$D(^DISV(DUZ,J)) S I=^(J),X=$E(DWOU,I) I X]"" W X S I=I*2-1 G OPT
W !?5,"Choose, by first letter, a Utility Command"
I X?2"?".E W " from the following:" F I=1:1 S J=$E(DWOU,I) Q:J="" I DWOU[J W !?10,$P($T(@J),";",4) ; IHS/GTH 02.16.92
; I X?2"?".E W " from the following:" F I=1:2 S Y=$T(OPT+I),J=$E(Y,1) Q:J=" " I DWOU[J W !?10,$P(Y,";",4)
G 1
;
; Q:$D(DTOUT) S X1=$T(OPT+I),X=$P(X1,";",3) W $E(X,'$X)_$E(X,2,99) G @$E(X1,1)
OPT Q:$D(DTOUT) S X1=$T(@X),X=$P(X1,";",3) W $E(X,'$X)_$E(X,2,99) G @$E(X1,1) ; IHS/GTH 02.16.92
E ;;Editor;Editor Change
G ^DIWE12
F ;;File transfer;File Transfer from Foreign CPU
G NA:'$D(^%ZOSF("EON"))!'$D(^("EOFF")) D X^DIWE5 G QQ
S ;;Spell Checker;Spell check this WP field ; IHS/GTH - 02.08.93
NEW AZHL,AZHLROOT,AZHLTERM,AZHLX,D,Q ; IHS/GTH - 02.08.93
S AZHLROOT=DIC,$P(AZHLROOT,",",$L(DIC,",")-1)=$S(DV:DV,1:""""_DV_""""),AZHLROOT(1)=AZHLROOT_"0)",AZHLROOT(2)="",AZHLROOT(3)="0",$P(%,U,4)=@(AZHLROOT(1)),AZHLROOT(1)="%",AZHLTERM=1,D(3)="",Q=0 ; IHS/GTH - 02.08.93
G CHECK^AZHLSCS ; IHS/GTH - 02.08.93
T ;;Text-Terminator;Text-Terminator-String Change
D TT G QQ
;;
TT ;
W !,"Text-Terminator: ",$S(DIWPT="":"<NULL-STRING>",1:DIWPT),"//"
R X:DTIME S:'$T DTOUT=1 Q:U[X
K:$L(X)>5!(X'?.ANP)!(X["?")!(X["^") X
I '$D(X) W !?5,"Answer must be 1 to 5 Characters, no question marks or up-arrows,",!?5,"to go back to the Null-String just type ""@"" !",*7 G TT
I X="@" W !?5,"Text-Terminator is now Null-String !" S X=""
S DIWPT=X Q
QQ K DWOU Q
ASK W ! S DIR("A")="MAXIMUM string length? "
S DIR("B")=75,DIR(0)="N^3:245:0" D ^DIR K DIR I $D(DIRUT) S X="" G XQ1
W !!,"You have 30 seconds to start sending text."
W !,"An End Of File is assumed on 30 second time-out."
W !!,"TABs are converted to 1 thru 9 spaces to start the next character"
W !,"at a column evenly divisable by 9 plus 1. (10,19,28,37...)"
W !!,"End of Line = Carriage Return/$C(13) or Escape/$C(27)."
W !,"All other control characters will be stripped.",!!
Q
XQ X ^%ZOSF("EON") W !!,"File Transfer Complete",*7,!
XQ1 K %,%1,%2,%B,%0,DIWL,DIR,DIRUT,DIROUT,DTOUT,DUOUT
Q
NA W !!,"This option is not available without the rest of the KERNEL"
G QQ
DIWE11 ; IHS/ADC/GTH:KEU - WORD PROCESSING UTILITY FUNCTION 3/4/92 9:55 AM ;
+1 ;;5.0;AZHLSC;;JUL 10, 1996
+2 ; IHS/GTH - 02.08.93 - Added tie-in to SAC Checker Spell Checking.
+3 ; IHS/GTH - 02.08.93
SET DWOU="EFST"
1 READ !,"UTILITY Option: ",X:DTIME
IF '$TEST
SET DTOUT=1
IF U[X!(X=".")
GOTO QQ
LC IF X?1L
SET X=$CHAR($ASCII(X)-32)
+1 SET J="^DOPT(""DIWE11"","
IF X?1U
SET I=$FIND(DWOU,X)-1
IF I>0
SET ^DISV(DUZ,J)=I
SET I=I*2-1
GOTO OPT
+2 IF X=" "
IF $DATA(^DISV(DUZ,J))
SET I=^(J)
SET X=$EXTRACT(DWOU,I)
IF X]""
WRITE X
SET I=I*2-1
GOTO OPT
+3 WRITE !?5,"Choose, by first letter, a Utility Command"
+4 ; IHS/GTH 02.16.92
IF X?2"?".E
WRITE " from the following:"
FOR I=1:1
SET J=$EXTRACT(DWOU,I)
IF J=""
QUIT
IF DWOU[J
WRITE !?10,$PIECE($TEXT(@J),";",4)
+5 ; I X?2"?".E W " from the following:" F I=1:2 S Y=$T(OPT+I),J=$E(Y,1) Q:J=" " I DWOU[J W !?10,$P(Y,";",4)
+6 GOTO 1
+7 ;
+8 ; Q:$D(DTOUT) S X1=$T(OPT+I),X=$P(X1,";",3) W $E(X,'$X)_$E(X,2,99) G @$E(X1,1)
OPT ; IHS/GTH 02.16.92
IF $DATA(DTOUT)
QUIT
SET X1=$TEXT(@X)
SET X=$PIECE(X1,";",3)
WRITE $EXTRACT(X,'$X)_$EXTRACT(X,2,99)
GOTO @$EXTRACT(X1,1)
E ;;Editor;Editor Change
+1 GOTO ^DIWE12
F ;;File transfer;File Transfer from Foreign CPU
+1 IF '$DATA(^%ZOSF("EON"))!'$DATA(^("EOFF"))
GOTO NA
DO X^DIWE5
GOTO QQ
S ;;Spell Checker;Spell check this WP field ; IHS/GTH - 02.08.93
+1 ; IHS/GTH - 02.08.93
NEW AZHL,AZHLROOT,AZHLTERM,AZHLX,D,Q
+2 ; IHS/GTH - 02.08.93
SET AZHLROOT=DIC
SET $PIECE(AZHLROOT,",",$LENGTH(DIC,",")-1)=$SELECT(DV:DV,1:""""_DV_"""")
SET AZHLROOT(1)=AZHLROOT_"0)"
SET AZHLROOT(2)=""
SET AZHLROOT(3)="0"
SET $PIECE(%,U,4)=@(AZHLROOT(1))
SET AZHLROOT(1)="%"
SET AZHLTERM=1
SET D(3)=""
SET Q=0
+3 ; IHS/GTH - 02.08.93
GOTO CHECK^AZHLSCS
T ;;Text-Terminator;Text-Terminator-String Change
+1 DO TT
GOTO QQ
+2 ;;
TT ;
+1 WRITE !,"Text-Terminator: ",$SELECT(DIWPT="":"<NULL-STRING>",1:DIWPT),"//"
+2 READ X:DTIME
IF '$TEST
SET DTOUT=1
IF U[X
QUIT
+3 IF $LENGTH(X)>5!(X'?.ANP)!(X["?")!(X["^")
KILL X
+4 IF '$DATA(X)
WRITE !?5,"Answer must be 1 to 5 Characters, no question marks or up-arrows,",!?5,"to go back to the Null-String just type ""@"" !",*7
GOTO TT
+5 IF X="@"
WRITE !?5,"Text-Terminator is now Null-String !"
SET X=""
+6 SET DIWPT=X
QUIT
QQ KILL DWOU
QUIT
ASK WRITE !
SET DIR("A")="MAXIMUM string length? "
+1 SET DIR("B")=75
SET DIR(0)="N^3:245:0"
DO ^DIR
KILL DIR
IF $DATA(DIRUT)
SET X=""
GOTO XQ1
+2 WRITE !!,"You have 30 seconds to start sending text."
+3 WRITE !,"An End Of File is assumed on 30 second time-out."
+4 WRITE !!,"TABs are converted to 1 thru 9 spaces to start the next character"
+5 WRITE !,"at a column evenly divisable by 9 plus 1. (10,19,28,37...)"
+6 WRITE !!,"End of Line = Carriage Return/$C(13) or Escape/$C(27)."
+7 WRITE !,"All other control characters will be stripped.",!!
+8 QUIT
XQ XECUTE ^%ZOSF("EON")
WRITE !!,"File Transfer Complete",*7,!
XQ1 KILL %,%1,%2,%B,%0,DIWL,DIR,DIRUT,DIROUT,DTOUT,DUOUT
+1 QUIT
NA WRITE !!,"This option is not available without the rest of the KERNEL"
+1 GOTO QQ
