home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / VMSCR.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  12KB  |  115 lines
  1. 10 REM vertical screen scroll
  2. 100 FOR
  3. 110 REM init game map
  4. 120 RESTORE
  5. 130 READ
  6. 140 READ
  7. 150 FOR
  8. 160 REM get size of sprites
  9. 170 READ
  10. 180 VARNAME
  11. 190 FOR
  12. 20 REM using a mapping techique
  13. 200 FOR
  14. 210 READ
  15. 220 NEXT
  16. 230 IF
  17. 23420 REM set up screen and colours
  18. 23430 VARNAME
  19. 23440 FOR
  20. 23450 RETURN
  21. 240 NEXT
  22. 25 DIM
  23. 250 REM main scrolling loop
  24. 260 VARNAME
  25. 265 REM main loop
  26. 270 REPEAT
  27. 280 REM scroll screen up
  28. 290 IF
  29. 30 MODE
  30. 300 IF
  31. 310 UNTIL
  32. 315 STOP
  33. 316 REM scroll screen down
  34. 320 VARNAME
  35. 330 SCROLL
  36. 340 FOR
  37. 345 IF
  38. 35 RESERVE
  39. 350 NEXT
  40. 355 WAIT VBL
  41. 36 GOSUB
  42. 360 VARNAME
  43. 370 REM scroll 2 : cls physic,0,0,0 to 320,16
  44. 375 SCROLL
  45. 380 FOR
  46. 385 IF
  47. 390 NEXT
  48. 395 WAIT VBL
  49. 40 GOSUB
  50. 400 DEFAULT
  51. 410 STOP
  52. 420 REM enter sprite images into SEG$ array
  53. 430 CLS
  54. 440 FOR
  55. 450 CLS
  56. 460 SPRITE
  57. 470 VARNAME
  58. 480 SPRITE
  59. 490 RETURN
  60. 495 REM new map display code
  61. 496 REM so it uses SCREEN$ for extra SPEEEEEEDDDD!!!
  62. 50 VARNAME
  63. 500 RESTORE
  64. 505 IF
  65. 510 RESTORE
  66. 520 FOR
  67. 530 FOR
  68. 540 READ
  69. 550 IF
  70. 560 NEXT
  71. 60 DEF
  72. 600 DATA
  73. 610 DATA
  74. 620 DATA
  75. 630 DATA
  76. 640 DATA
  77. 650 DATA
  78. 660 DATA
  79. 670 DATA
  80. 680 DATA
  81. 690 DATA
  82. 70 DEF
  83. 700 DATA
  84. 710 DATA
  85. 720 DATA
  86. 730 DATA
  87. 740 DATA
  88. 750 DATA
  89. 760 DATA
  90. 770 DATA
  91. 780 DATA
  92. 790 DATA
  93. 80 DIM
  94. 800 DATA
  95. 810 DATA
  96. 820 DATA
  97. 830 DATA
  98. 840 DATA
  99. 850 DATA
  100. 860 DATA
  101. 870 DATA
  102. 880 DATA
  103. 890 DATA
  104. 90 REM load slots
  105. 900 DATA
  106. 910 DATA
  107. 920 DATA
  108. 930 DATA
  109. 940 DATA
  110. 950 DATA
  111. 960 DATA
  112. 970 DATA
  113. 980 DATA
  114. 990 DATA
  115.