home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI05.ARJ / ictari.05 / STOS / RASTER.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  3KB  |  38 lines
  1. 10 REM  +----------------------------------------------------------------+
  2. 110 REM +----------------------------------------------------------------+
  3. 120 REM 
  4. 130 REM +---+ SET UP THE COLOUR OF THE BORDER AND THE SIN-WAVE BIT +----+
  5. 140 REM 
  6. 150 KEY
  7. 160 RESERVE
  8. 170 REPEAT
  9. 180 VARNAME
  10. 190 DATA
  11. 20 REM  +--                                                            --+
  12. 200 DATA
  13. 210 DIM
  14. 220 VARNAME
  15. 230 REM 
  16. 240 REM +------------------------+ THE MAIN LOOP +--------------------------+
  17. 250 REM 
  18. 260 REPEAT
  19. 270 VARNAME
  20. 280 GOSUB
  21. 290 DREG
  22. 30 REM  +-                THE NO-BORDER BOUNCE ROUTINE                 --+
  23. 300 DOKE
  24. 310 STOP
  25. 320 REM 
  26. 330 REM +---------------------+ THE RASTER ROUTINE +---------------------+
  27. 340 REM 
  28. 350 DREG
  29. 360 REM 
  30. 370 REM +--------------------------+ THE END +----------------------------+
  31. 380 REM 
  32. 40 REM  +-                  (c) 1993 DIAMOND SOFTWARE                  --+
  33. 50 REM  +--                                                            --+
  34. 60 REM  +--              Written By A.Martin & S.Jordan                --+
  35. 70 REM  +--                                                            --+
  36. 80 REM  +--               RASTER ROUTINE BY BILLY ALLAN                --+
  37. 90 REM  +--                                                            --+
  38.