home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / VERT.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  14KB  |  107 lines
  1. 1 LOGIC
  2. 100 VARNAME
  3. 1000 WEND
  4. 1010 REM ***************************
  5. 110 NEXT
  6. 2 REM *********************************       text screen held in bank 15 logic held in bank 8
  7. 270 CLS
  8. 280 LET
  9. 281 REM ************************************************************************** theses number set where the y position of each screen block is.
  10. 290 FOR
  11. 291 FOR
  12. 3 GOSUB
  13. 30 DIM
  14. 300 LET
  15. 301 REM ***********************************      these lines move the text blocks up screen.
  16. 320 SCREEN COPY
  17. 321 VARNAME
  18. 330 LOGIC
  19. 331 VARNAME
  20. 334 WHILE
  21. 345 SCREEN COPY
  22. 35 DIM
  23. 360 FOR
  24. 370 SCREEN$
  25. 380 VARNAME
  26. 381 IF
  27. 382 IF
  28. 390 NEXT
  29. 40000 REM DRAW 14.BAS
  30. 40010 REM BYWILLIAMBRYAN0.0JUNE1990
  31. 40015 REM ****************************
  32. 40016 LOGIC
  33. 40017 CLS
  34. 40040 VARNAME
  35. 40050 VARNAME
  36. 40060 VARNAME
  37. 40070 VARNAME
  38. 40080 GOSUB
  39. 40090 REPEAT
  40. 40100 VARNAME
  41. 40110 VARNAME
  42. 40111 IF
  43. 40120 IF
  44. 40130 REDRAW
  45. 40140 PUT SPRITE
  46. 40150 IF
  47. 40160 VARNAME
  48. 40170 VARNAME
  49. 40180 UNTIL
  50. 40190 LOGIC
  51. 40200 REM COUNT LETTERS
  52. 40201 VARNAME
  53. 40205 RETURN
  54. 40210 VARNAME
  55. 40220 REPEAT
  56. 40230 VARNAME
  57. 40250 VARNAME
  58. 40260 UNTIL
  59. 40270 RETURN
  60. 40280 REM SET COLOURS(PALETTE)
  61. 40290 VARNAME
  62. 40300 FOR
  63. 40310 RETURN
  64. 40320 REM **********************
  65. 50 VARNAME
  66. 50000 REM eddies alteration to put text in string
  67. 50010 VARNAME
  68. 50020 RETURN
  69. 60 ERASE
  70. 60000 REM 
  71. 60010 FOR
  72. 60020 FOR
  73. 60030 FOR
  74. 60040 FOR
  75. 60050 FOR
  76. 60060 FOR
  77. 60070 FOR
  78. 60080 FOR
  79. 60090 FOR
  80. 60100 FOR
  81. 60110 FOR
  82. 60120 FOR
  83. 60130 FOR
  84. 60140 FOR
  85. 60150 FOR
  86. 60160 FOR
  87. 60170 FOR
  88. 60180 FOR
  89. 60190 FOR
  90. 60200 FOR
  91. 60210 FOR
  92. 60220 FOR
  93. 60230 FOR
  94. 60240 FOR
  95. 60250 FOR
  96. 60260 FOR
  97. 60270 FOR
  98. 60280 FOR
  99. 60290 RETURN
  100. 61 RESERVE
  101. 62 REM *******************************          at this point the text held in          compacted screen 14 is unpacked to screen 14 and cut into screen blocks then the screen is erased. later in the program another text screen is loaded in and the screen blocks changed                 *******************************
  102. 65 GOSUB
  103. 70 VARNAME
  104. 80 FOR
  105. 90 VARNAME
  106. 950 WAIT VBL
  107.