home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / HPSOURCE / HPSRC_01.MSA / SOURCE_STOS_BUFFSCR2.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  24KB  |  91 lines
  1. 10 REM eddies mega fast buffered scroller
  2. 100 LOGIC
  3. 1000 REM set up the letter data
  4. 10000 REM TEXT MESSAGE GOES HERE
  5. 10010 VARNAME
  6. 10020 FOR
  7. 10030 VARNAME
  8. 10040 IF
  9. 10041 IF
  10. 10042 IF
  11. 10043 IF
  12. 10044 IF
  13. 101 VARNAME
  14. 1010 VARNAME
  15. 10100 MID$
  16. 10110 NEXT
  17. 10120 RETURN
  18. 102 GOSUB
  19. 1020 FOR
  20. 103 VARNAME
  21. 1030 FOR
  22. 104 VARNAME
  23. 1040 VARNAME
  24. 105 GOSUB
  25. 1050 INC
  26. 106 VARNAME
  27. 1060 NEXT
  28. 1061 VARNAME
  29. 107 IF
  30. 1070 RETURN
  31. 108 IF
  32. 110 REPEAT
  33. 120 SCREEN COPY
  34. 130 SCREEN COPY
  35. 140 SCREEN$
  36. 150 SCREEN COPY
  37. 151 INC
  38. 153 IF
  39. 160 SCREEN SWAP
  40. 161 IF
  41. 162 IF
  42. 163 IF
  43. 164 SCREEN COPY
  44. 166 IF
  45. 167 IF
  46. 168 IF
  47. 169 IF
  48. 190 UNTIL
  49. 20 REM uses loads of memory but is bloody fast!!!
  50. 2000 REM sort out shifter font!! using sprite file!
  51. 2030 REM ~~~~~~~~
  52. 2040 FOR
  53. 2050 REM first frame
  54. 2060 CLS
  55. 2070 UPDATE
  56. 2080 VARNAME
  57. 2090 NEXT
  58. 2091 SPRITE
  59. 2100 RETURN
  60. 30 REM coded 16 July 1991 - THB are the best!!!!!
  61. 3000 REM turn sprite bank into a screen
  62. 3010 MODE
  63. 3020 RESERVE
  64. 3030 HIDE
  65. 3040 CURS
  66. 3050 KEY
  67. 3060 CLS
  68. 3080 VARNAME
  69. 3090 REM ~~~~~~~~~~~~~~~~~~~
  70. 3100 FOR
  71. 3110 SPRITE
  72. 3120 REDRAW
  73. 3130 PUT SPRITE
  74. 3140 VARNAME
  75. 3150 IF
  76. 3160 NEXT
  77. 3161 SCREEN COPY
  78. 3170 RETURN
  79. 3180 REM set up screen and colours
  80. 3190 VARNAME
  81. 3200 FOR
  82. 3210 RETURN
  83. 40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  84. 50 KEY
  85. 60 MODE
  86. 70 HIDE
  87. 80 CURS
  88. 81 REM set up screens for font
  89. 90 GOSUB
  90. 99 DIM
  91.