home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / emulation / qlboot-data / blitter_bas < prev    next >
Encoding:
Text File  |  1998-02-12  |  575 b   |  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.