This is a sample (the 3rd SAY won't show):
#command MYSAY [<txt>];
[ROW <row>];
[COL <col>];
=> MySayText( <txt>, <row>, <col> )
FUNCTION MAIN()
PRIVATE cVar1 := "This is a test"
PRIVATE n := 1
CLS
@ 8, 0 SAY &( "cVar" + LTRIM( STR( n ) ) )
MYSAY ROW 10 COL 0 "" + &( "cVar" + LTRIM( STR( n ) ) )
// This SAY won't show
MYSAY ROW 12 COL 0 &( "cVar" + LTRIM( STR( n ) ) )
INKEY( 0 )
RETURN NIL
FUNCTION MYSAYTEXT( cTxt, nRow, nCol )
@ nRow, nCol SAY cTxt
RETURN NIL
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG Music page: http://www.emagsoftware.it/emgmusic
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
------------------------------------------------------------------------------
Dive into the World of Parallel Programming The Go Parallel Website, sponsored
by Intel and developed in partnership with Slashdot Media, is your hub for all
things parallel software development, from weekly thought leadership blogs to
news, videos, case studies, tutorials and more. Take a look and join the
conversation now. http://goparallel.sourceforge.net/
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
