FUNCTION MAIN()
? TEST()
INKEY( 0 )
RETURN NIL
STATIC FUNCTION TEST()
LOCAL nVar := 1
LOCAL lVar := .T.
BEGIN SEQUENCE
IF lVar
nVar = 2
BREAK
ENDIF
nVar = 3
END SEQUENCE
RETURN nVar
test.prg(26) Warning W0032 Variable 'NVAR' is assigned but not used in
function 'TEST(18)'
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
------------------------------------------------------------------------------
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
