home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS2.ARJ / stosbts2.msa / BITS.BAS (.txt) next >
Atari STOS Basic  |  1987-04-22  |  67KB  |  122 lines
  1. 1 KEY
  2. 10 REM STOS BITS ISSUE TWO
  3. 100 REM MAIN MENU - LOAD PRESET/GRAPHICS/MAP.
  4. 10280 REM read map data and draw the current room
  5. 10290 REM all coding by eddie of thb
  6. 10300 REM WE ARE THE BEST!!!
  7. 10310 REM better than the rest
  8. 10320 REM support the right team
  9. 10330 REM and you will be supreme!!!!
  10. 10340 REM now on with the coding!!!
  11. 10341 VARNAME
  12. 10342 VARNAME
  13. 10343 PEN
  14. 10350 CLS
  15. 10360 FOR
  16. 10365 VARNAME
  17. 10370 IF
  18. 10375 VARNAME
  19. 10380 IF
  20. 10385 NEXT
  21. 10391 SCREEN COPY
  22. 10395 VARNAME
  23. 110 REM CUT OUT TILES
  24. 150 ERASE
  25. 155 ERASE
  26. 156 ERASE
  27. 160 ERASE
  28. 170 FILL
  29. 180 DIR$
  30. 190 DIM
  31. 191 FOR
  32. 2 LOGIC
  33. 20 REM MAIN MENU CODED BY EDDIE BRYAN
  34. 200 REM LOAD PRESETS AT ONE GO
  35. 20320 REM read map data and draw the current room
  36. 20330 REM all coding by eddie of thb
  37. 20340 REM WE ARE THE BEST!!!
  38. 20350 REM better than the rest
  39. 20360 REM support the right team
  40. 20370 REM and you will be supreme!!!!
  41. 20380 REM now on with the coding!!!
  42. 20390 VARNAME
  43. 20400 VARNAME
  44. 20410 PEN
  45. 20440 FOR
  46. 20445 VARNAME
  47. 20450 IF
  48. 20455 VARNAME
  49. 20460 IF
  50. 20465 NEXT
  51. 20530 VARNAME
  52. 210 CLS
  53. 220 VARNAME
  54. 230 OPEN IN
  55. 240 FOR
  56. 250 INPUT
  57. 260 NEXT
  58. 270 INPUT
  59. 280 INPUT
  60. 290 CLOSE
  61. 30 REM USES THE THB MAPMAKER
  62. 300 BLOAD
  63. 310 LOAD
  64. 320 REM LOAD TILE DATA
  65. 330 OPEN IN
  66. 340 FOR
  67. 350 FOR
  68. 360 INPUT
  69. 370 NEXT
  70. 380 CLOSE
  71. 390 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~
  72. 40 REM WRITTEN BY EDDIE BRYAN
  73. 400 REM CUT OUT SCREEN$ BLOCKS READY FOR MAP DRAWING
  74. 4000 REM move map right one screen
  75. 4010 VARNAME
  76. 4020 FADE
  77. 4030 GOSUB
  78. 4031 VARNAME
  79. 4040 RETURN
  80. 410 EXTENSION (Index #0) (Token 0x80)
  81. 420 FOR
  82. 430 VARNAME
  83. 440 VARNAME
  84. 450 VARNAME
  85. 460 VARNAME
  86. 470 VARNAME
  87. 480 NEXT
  88. 490 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  89. 50 REM STARTED 28 JULY 1991
  90. 5000 REM move map left one screen
  91. 5010 VARNAME
  92. 5020 FADE
  93. 5030 GOSUB
  94. 5031 VARNAME
  95. 5040 RETURN
  96. 60 REM SHOULD BE READY FOR RELEASE AT CES SHOW IN SEPTEMBER!!!
  97. 600 REM MAIN LOOP CODE
  98. 610 GOSUB
  99. 630 UPDATE
  100. 631 VARNAME
  101. 632 SCREEN COPY
  102. 640 REM NOW THE MAIN LOOP
  103. 650 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  104. 660 REPEAT
  105. 670 SCREEN COPY
  106. 671 VARNAME
  107. 672 IF
  108. 673 IF
  109. 674 IF
  110. 675 IF
  111. 676 SCREEN$
  112. 677 IF
  113. 678 IF
  114. 679 IF
  115. 680 SPRITE
  116. 690 REDRAW
  117. 70 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  118. 700 SCREEN SWAP
  119. 710 UNTIL
  120. 80 REM UPDATE -  28 JULY 1991
  121. 90 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  122.