home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / MAPED.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  66KB  |  70 lines
  1. 1 REM this is the map editor- written by eddie
  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 UNTIL
  32. 20 GET PALETTE
  33. 30 VARNAME
  34. 30000 REM ~~~~~~~~~~~~~~~~~~~
  35. 30010 UNKNOWN OP: 0x3A
  36. 30020 VARNAME
  37. 30030 FOR
  38. 30040 VARNAME
  39. 30050 IF
  40. 30060 INC
  41. 30070 VARNAME
  42. 30080 IF
  43. 30090 NEXT
  44. 30100 VARNAME
  45. 40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~
  46. 40210 REM ~~~~~~~~~~~~~~~~~~
  47. 40220 REM CUT OUT SPRITE AS SCREEN BLOCKS
  48. 40230 REM ~~~~~~~~~~~~~~~~~~~~~~~~
  49. 40240 FOR
  50. 40250 SPRITE
  51. 40260 VARNAME
  52. 40270 CLS
  53. 40280 NEXT
  54. 40290 RETURN
  55. 41 LOCATE
  56. 42 GOSUB
  57. 51 REM for K=1 to 24000 : poke start(10)+K,72 : next K
  58. 52 VARNAME
  59. 60 VARNAME
  60. 70 VARNAME
  61. 71 VARNAME
  62. 80 REPEAT
  63. 81 VARNAME
  64. 82 IF
  65. 83 IF
  66. 84 IF
  67. 85 IF
  68. 86 IF
  69. 90 SPRITE
  70.