Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Visual FoxPro stack lister
LOCAL lnLvl, lcStack
lnLvl= PROGRAM( -1 )
lcStack = ""
FOR k= 1 TO lnLvl
lcStack = lcStack + PROGRAM( k )+ CHR( 13 )
ENDFOR
WAIT WINDOW lcStack
RETURN
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment