home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / in_the_mag / emulation / ql / qdos4amiga3.lha / BLITTER_bas < prev    next >
Text File  |  1995-09-20  |  575b  |  19 lines
  1. 100 REMark Blitter demonstration
  2. 110 REMark SNG 29-12-92 - 8/2/93
  3. 120 SCR_PRIORITY 8,1
  4. 130 x=ALCHP(100)
  5. 140 LBYTES flp1_blitter_bin,x
  6. 150 LIST : LIST  : LIST #1
  7. 160 PAUSE 50
  8. 170 REPeat poll
  9. 180   CALL x:REMark Get blitting
  10. 190   PAUSE 2:REMark Let Amiga screen catch up
  11. 200   IF CODE(INKEY$(#0,2)) >0 : EXIT poll
  12. 210 END REPeat poll
  13. 220 REMark N.B. Returns NOT COMPLETE if the blitter has no spare time
  14. 230 RECHP x
  15. 240 REMark This example uses the blitter
  16. 250 REMark to invert the colours of a 16K
  17. 260 REMark half of the Qdos screen.
  18. 270 REMark HOLD DOWN any key to stop it.
  19.