home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / MONED.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  72KB  |  110 lines
  1. 1 REM NOTE- you need to copy BANK 1 from GAME.BAS into this programm!!!
  2. 10 KEY
  3. 100 IF
  4. 1000 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~
  5. 101 IF
  6. 1010 REM DISPLAY WHOLE MAP
  7. 1020 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~
  8. 1030 VARNAME
  9. 1031 VARNAME
  10. 1040 VARNAME
  11. 1041 REPEAT
  12. 1050 FOR
  13. 1051 VARNAME
  14. 1052 IF
  15. 1060 PLOT
  16. 1070 NEXT
  17. 1080 INC
  18. 1090 UNTIL
  19. 11 DIM
  20. 110 IF
  21. 1100 WAIT KEY
  22. 111 IF
  23. 1110 RETURN
  24. 12 KEY SPEED
  25. 120 IF
  26. 121 IF
  27. 130 IF
  28. 131 IF
  29. 132 IF
  30. 139 WAIT
  31. 140 REDRAW
  32. 20 GET PALETTE
  33. 20000 REM ~~~~~~~~~~~~~~~~~~
  34. 20010 REM find details about sprite
  35. 20020 REM ~~~~~~~~~~~~~~~~~~~
  36. 20021 IF
  37. 20030 INPUT
  38. 20040 INPUT
  39. 20050 INPUT
  40. 20080 POKE
  41. 20090 POKE
  42. 20100 POKE
  43. 20110 POKE
  44. 20120 POKE
  45. 20130 POKE
  46. 20170 VARNAME
  47. 30 VARNAME
  48. 30000 REM ~~~~~~~~~~~~~~~~~~~
  49. 30010 UNKNOWN OP: 0x3A
  50. 30020 VARNAME
  51. 30030 FOR
  52. 30040 VARNAME
  53. 30050 IF
  54. 30060 INC
  55. 30070 VARNAME
  56. 30080 IF
  57. 30090 NEXT
  58. 30100 VARNAME
  59. 40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~
  60. 40210 REM ~~~~~~~~~~~~~~~~~~
  61. 40220 REM CUT OUT SPRITE AS SCREEN BLOCKS
  62. 40230 REM ~~~~~~~~~~~~~~~~~~~~~~~~
  63. 40240 FOR
  64. 40250 SPRITE
  65. 40260 VARNAME
  66. 40270 CLS
  67. 40280 NEXT
  68. 40290 RETURN
  69. 41 LOCATE
  70. 42 GOSUB
  71. 51 FOR
  72. 52 VARNAME
  73. 60 VARNAME
  74. 60000 REM ~~~~~~~~~~~~~~~~~~
  75. 60010 REM place MEANIES in rooms
  76. 60020 REM ~~~~~~~~~~~~~~~~~~
  77. 60030 FOR
  78. 60040 SPRITE
  79. 60050 IF
  80. 60060 IF
  81. 60070 IF
  82. 60080 IF
  83. 60090 IF
  84. 60100 IF
  85. 60110 IF
  86. 60120 IF
  87. 60130 NEXT
  88. 60140 RETURN
  89. 65000 REM ~~~~~~
  90. 65010 REM set up the movement commands!!
  91. 65020 REM ~~~~~~~
  92. 65030 VARNAME
  93. 65040 VARNAME
  94. 65050 SPRITE
  95. 65060 IF
  96. 65070 IF
  97. 65080 MOVE
  98. 65090 RETURN
  99. 70 VARNAME
  100. 71 VARNAME
  101. 80 REPEAT
  102. 81 VARNAME
  103. 82 IF
  104. 83 IF
  105. 84 IF
  106. 85 IF
  107. 86 IF
  108. 9 DIM
  109. 90 SPRITE
  110.