home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS2.ARJ / stosbts2.msa / PROGRAMS / STOS / BUFFSCR.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  23KB  |  76 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. 10050 IF
  10. 10060 IF
  11. 10070 IF
  12. 10080 IF
  13. 10090 IF
  14. 10091 IF
  15. 101 VARNAME
  16. 1010 VARNAME
  17. 10100 MID$
  18. 10110 NEXT
  19. 10120 RETURN
  20. 102 GOSUB
  21. 1020 FOR
  22. 103 VARNAME
  23. 1030 FOR
  24. 104 VARNAME
  25. 1040 VARNAME
  26. 105 GOSUB
  27. 1050 INC
  28. 106 VARNAME
  29. 1060 NEXT
  30. 107 IF
  31. 1070 RETURN
  32. 108 IF
  33. 110 REPEAT
  34. 120 SCREEN COPY
  35. 130 SCREEN COPY
  36. 140 SCREEN$
  37. 150 SCREEN COPY
  38. 151 INC
  39. 153 IF
  40. 160 SCREEN SWAP
  41. 161 IF
  42. 162 IF
  43. 163 IF
  44. 164 SCREEN COPY
  45. 166 IF
  46. 167 IF
  47. 168 IF
  48. 169 IF
  49. 190 UNTIL
  50. 20 REM uses loads of memory but is bloody fast!!!
  51. 2000 REM second set of letters
  52. 2010 VARNAME
  53. 2020 FOR
  54. 2030 FOR
  55. 2040 VARNAME
  56. 2041 VARNAME
  57. 2050 INC
  58. 2060 NEXT
  59. 2061 REM SET UP DUMMY LETTER (SPACES!!)
  60. 2062 VARNAME
  61. 2063 VARNAME
  62. 2064 VARNAME
  63. 2070 RETURN
  64. 30 REM coded 16 July 1991 - THB are the best!!!!!
  65. 40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  66. 50 KEY
  67. 60 MODE
  68. 70 HIDE
  69. 80 CURS
  70. 81 REM set up screens for font
  71. 82 RESERVE
  72. 83 EXTENSION (Index #0) (Token 0x80)
  73. 84 EXTENSION (Index #0) (Token 0x80)
  74. 90 GET PALETTE
  75. 99 DIM
  76.