Saulis,
While you have you hands dirty... :-)
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
Warning W0032 Variable 'NVAR' is assigned but not used in function
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
------------------------------------------------------------------------------
This SF.net email is sponsored by Windows:
Build for Windows Store.
http://p.sf.net/sfu/windows-dev2dev
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
