Skip to content

Instantly share code, notes, and snippets.

@StevenBlack

StevenBlack/vfpStackLister.prg

Created May 6, 2013 02:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save StevenBlack/5523018 to your computer and use it in GitHub Desktop.
Save StevenBlack/5523018 to your computer and use it in GitHub Desktop.
Download ZIP
Visual FoxPro stack lister
Raw
vfpStackLister.prg
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