home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / RASTER3.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  1KB  |  31 lines
  1. 1 REM another raster routine by ah-YEAH
  2. 10 KEY
  3. 100 GOTO
  4. 1000 REM raster time !!!!!!!
  5. 1010 WAIT VBL
  6. 1020 FOR
  7. 1030 FOR
  8. 1040 NEXT
  9. 1041 FOR
  10. 1050 GOTO
  11. 1060 REM only cycles 28 colours
  12. 1070 REM $ff8242 is the colour index 1:if you want the background to
  13. 1080 REM cycle then change to $ff8240
  14. 110 DATA
  15. 111 DATA
  16. 2 REM requires a screen in bank 14
  17. 20 MODE
  18. 3 REM needs to be compiled to lokk wicked
  19. 30 HIDE
  20. 4 REM moving the mouse interupts rasters!!
  21. 40 CURS
  22. 5 REM this one cycles the colour bars
  23. 50 DIM
  24. 6 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  25. 60 GET PALETTE
  26. 61 SCREEN COPY
  27. 62 REM bext bit reads the colour chart into COL(??) array
  28. 70 FOR
  29. 80 READ
  30. 90 NEXT
  31.