Return to DIWE11.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIWE11.m, revision 1.1

1.1     ! snw         1: DIWE11 ;SFISC/GFT,MWE-WORD PROCESSING UTILITY FUNCTION ;3/4/92  9:55 AM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        S DWOU="EFT"
        !             5: 1      R !,"UTILITY Option: ",X:DTIME S:'$T DTOUT=1 G QQ:U[X!(X=".")
        !             6: LC     I X?1L S X=$C($A(X)-32)
        !             7:        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
        !             8:        I X=" ",$D(^DISV(DUZ,J)) S I=^(J),X=$E(DWOU,I) I X]"" W X S I=I*2-1 G OPT
        !             9:        W !?5,"Choose, by first letter, a Utility Command"
        !            10:        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)
        !            11:        G 1
        !            12:        ;
        !            13: OPT    Q:$D(DTOUT)  S X1=$T(OPT+I),X=$P(X1,";",3) W $E(X,'$X)_$E(X,2,99) G @$E(X1,1)
        !            14: E      ;;Editor;Editor Change
        !            15:        G ^DIWE12
        !            16: F      ;;File transfer;File Transfer from Foreign CPU
        !            17:        G NA:'$D(^%ZOSF("EON"))!'$D(^("EOFF")) D X^DIWE5 G QQ
        !            18: T      ;;Text-Terminator;Text-Terminator-String Change
        !            19:        D TT G QQ
        !            20:        ;;
        !            21: TT     ;
        !            22:        W !,"Text-Terminator: ",$S(DIWPT="":"<NULL-STRING>",1:DIWPT),"//"
        !            23:        R X:DTIME S:'$T DTOUT=1 Q:U[X
        !            24:        K:$L(X)>5!(X'?.ANP)!(X["?")!(X["^") X
        !            25:        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 ""@"" !",$C(7) G TT
        !            26:        I X="@" W !?5,"Text-Terminator is now Null-String !" S X=""
        !            27:        S DIWPT=X Q
        !            28: QQ     K DWOU Q
        !            29: ASK    W ! S DIR("A")="MAXIMUM string length? "
        !            30:        S DIR("B")=75,DIR(0)="N^3:245:0" D ^DIR K DIR I $D(DIRUT) S X="" G XQ1
        !            31:        W !!,"You have 30 seconds to start sending text."
        !            32:        W !,"An End Of File is assumed on 30 second time-out."
        !            33:        W !!,"TABs are converted to 1 thru 9 spaces to start the next character"
        !            34:        W !,"at a column evenly divisable by 9 plus 1. (10,19,28,37...)"
        !            35:        W !!,"End of Line = Carriage Return/$C(13) or Escape/$C(27)."
        !            36:        W !,"All other control characters will be stripped.",!!
        !            37:        Q
        !            38: XQ     X ^%ZOSF("EON") W !!,"File Transfer Complete",$C(7),!
        !            39: XQ1    K %,%1,%2,%B,%0,DIWL,DIR,DIRUT,DIROUT,DTOUT,DUOUT
        !            40:        Q
        !            41: NA     W !!,"This option is not available without the rest of the KERNEL"
        !            42:        G QQ