Axeman wrote: ↑Thu Oct 07, 2021 10:00 amthe code is in a loop and you don't want to show the message each time the loop is run
Here's a crappy workaround I made... does it do what you want, and help for now? Obviously it's not meant for high-speed apps, lol.
To use it, call DebugOnce() with the text to show, and the loop name as a string.
Code: Select all
Global debugonce$,debugloopname$
Procedure DebugOnce(text$,loopname$)
If debugloopname$<>loopname$
debugloopname$=loopname$
t$=Chr(1)+loopname$+Chr(255)
If FindString(debugonce$,t$)=0
debugonce$+t$
Debug text$
EndIf
EndIf
EndProcedure
For a = 1 To 10
DebugOnce("a = "+Str(a),"a")
For b = 1 To 10
DebugOnce("b = "+Str(b),"b")
For c = 1 To 10
DebugOnce("c = "+Str(c),"c")
Next
Next
Next