While within while query

BlitzMax Forums/BlitzMax Beginners Area/While within while query

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Dreamora
 #1
Change it to:
Graphics 800,600
strict
text$=" test....................................................................."
local exit:byte

#mainloop
repeat
  While x <=20000
    Cls
    DrawText text,tickerx#,260
    If MilliSecs() > FrameTimer + 100
      FrameTimer = MilliSecs()
      frame:+1
    EndIf
    x :+ 1
    tickerx=tickerx-5
    Flip
    if keyhit(key_escape)
      exit mainloop
    endif
  Wend
forever