[BACK]Return to %MESS.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / contrib
File:  [Coherent Logic Development] / freem / contrib / %MESS.m
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jan 19 02:04:04 2025 UTC (6 months, 1 week ago) by snw
Branches: MAIN, CoherentLogicDevelopment
CVS tags: v0-63-1-rc1, v0-63-0-rc1, v0-63-0, v0-62-3, v0-62-2, v0-62-1, v0-62-0, start, HEAD
FreeM

    1: %MESS(y,t,len) ; A.Trocha ; display text box [1999/01/31-22:52:31]
    2: 	; $Source: /home/cvsroot/freem/contrib/%MESS.m,v $
    3: 	; $Revision: 1.1.1.1 $ $Date: 2025/01/19 02:04:04 $
    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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>