home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS2.ARJ / stosbts2.msa / PROGRAMS / STOS / BYTEMAKE.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  2KB  |  70 lines
  1. 10 REM EDDIES STOS BYTE BENDER
  2. 100 REM SET UP TABLE
  3. 1000 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  4. 1010 REM MOVE FROM B TO A
  5. 1020 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  6. 1030 VARNAME
  7. 1040 VARNAME
  8. 1050 FOR
  9. 1060 POKE
  10. 1070 VARNAME
  11. 1080 VARNAME
  12. 1090 NEXT
  13. 110 REM WORD VALUES EACH HOLDS SCREEN OFFSET
  14. 1100 RETURN
  15. 120 DIM
  16. 130 FOR
  17. 131 VARNAME
  18. 140 VARNAME
  19. 150 VARNAME
  20. 160 NEXT
  21. 170 REM SET SCREEN Z AXIS
  22. 180 VARNAME
  23. 190 FOR
  24. 20 REM ~~~~~~~~~~~~~~~~~~~~~~~
  25. 200 VARNAME
  26. 2000 REM ~~~~~~~~~~~~~~~~~~~~~~~~
  27. 2010 REM DRAW CHECK PATTERN
  28. 2020 REM ~~~~~~~~~~~~~~~~~~~~~~~~
  29. 2030 VARNAME
  30. 2040 FOR
  31. 2050 POKE
  32. 2060 POKE
  33. 2070 VARNAME
  34. 2080 NEXT
  35. 2090 RETURN
  36. 210 VARNAME
  37. 220 VARNAME
  38. 230 NEXT
  39. 240 REM COMPLETE TABLE
  40. 250 FOR
  41. 270 VARNAME
  42. 280 NEXT
  43. 290 REM ~~~~~~~~~~~~~~~~~~~~
  44. 30 MODE
  45. 300 REM TEST BENDER +SAVE TO BANK 1 80 BYTES LONG
  46. 310 REM ~~~~~~~~~~~~~~~~~~~~
  47. 320 VARNAME
  48. 321 DOKE
  49. 330 VARNAME
  50. 340 FOR
  51. 350 POKE
  52. 355 VARNAME
  53. 360 NEXT
  54. 370 NEXT
  55. 380 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  56. 390 REM THE ACTUAL SCROLL ROUTINE
  57. 40 HIDE
  58. 400 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  59. 410 FOR
  60. 420 FOR
  61. 430 VARNAME
  62. 440 GOSUB
  63. 450 NEXT
  64. 460 NEXT
  65. 50 CURS
  66. 60 KEY
  67. 70 COLOUR
  68. 80 COLOUR
  69. 90 REM ~~~~~~~~~~~~~~~~~~~~~~~~~
  70.