cls.bmx 271 B

123456789101112131415
  1. ' cls.bmx
  2. ' a spinning text message
  3. ' remove the call to cls to illustrate the
  4. ' need for clearing the screen every frame
  5. Graphics 640,480
  6. SetOrigin 320,240
  7. While Not KeyHit(KEY_ESCAPE)
  8. Cls
  9. SetRotation frame
  10. DrawText "Press Escape To Exit",0,0
  11. Flip
  12. frame:+1
  13. Wend