home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Amos / AmosCRAFT2Turbo.DMS / in.adf / demos / general / BlitClear.AMOS / BlitClear.amosSourceCode
Encoding:
AMOS Source Code  |  1994-01-29  |  684 b   |  25 lines
  1. 'this little proggy shows the speed of my new command for clearing the screen! 
  2. '!!! at this moment you can't give a colour parameter as with the normal Cls 
  3. '    instruction...I'll change this in the future...                       !!! 
  4. '
  5. '!!! you get the speed in Vertical Blancs...the lesser the faster... 
  6. '
  7. Screen Open 0,320,200,4,Lowres
  8.  Extension_12_0016 
  9. T=Timer
  10. For I=1 To 100
  11.    Cls 0
  12. Next 
  13. Print "AMOS's Cls Time in VBL's";Timer-T
  14. Print "Left mouse button..."
  15. Repeat 
  16. Until Extension_12_0392 
  17. T=Timer
  18. For I=1 To 100
  19.     Extension_12_0380 -1
  20. Next 
  21. Print "TURBO's Blit Clear Time in VBL's";Timer-T
  22. Print "Left mouse button"
  23.  Extension_12_0006 
  24. Repeat 
  25. Until Extension_12_0392