RosettaCodeData/Task/Stack-traces/PureBasic/stack-traces.purebasic

18 lines
167 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
Procedure Three()
a=7
ShowCallstack()
CallDebugger
EndProcedure
Procedure Two()
a=4
Three()
EndProcedure
Procedure One()
a=2
Two()
EndProcedure
One()