Return to %MESS.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%MESS.m, revision 1.1

1.1     ! snw         1: %MESS(y,t,len) ; A.Trocha ; display text box [1999/01/31-22:52:31]
        !             2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%MESS.m,v $
        !             3:        ; $Revision: 1.2 $ $Date: 2000/02/18 15:13:41 $
        !             4:        ; <y> row to start with
        !             5:        ; <t> text to display
        !             6:        ; <len> length of text-info ... default: len=$L(t)+2
        !             7:        ;
        !             8:        N %X,%Y
        !             9:        I $G(len)="" S len=$L(t)+2
        !            10:        S %X=80-len\2
        !            11:        S %Y=y
        !            12:        X %GO W @%C,"l",$TR($J("",len)," ","q"),"k"
        !            13:        S %Y=y+1
        !            14:        W @%C,"x" X %GF W $$z^%MEN(t,len) X %GO W "x"
        !            15:        S %Y=y+2
        !            16:        W @%C,"m",$TR($J("",len)," ","q"),"j" X %GF
        !            17:        Q