home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERDC90.MSA / STOS.ARC / MAZEGAME.BAS (.txt) < prev   
Atari STOS Basic  |  1987-04-22  |  10KB  |  102 lines
  1. 10 REM 3d-maze game
  2. 100 EXTENSION (Index #0) (Token 0x80)
  3. 1000 DATA
  4. 1010 DATA
  5. 110 REM INITIALISE THE ARRAYS
  6. 120 REM *********************
  7. 130 DIM
  8. 140 RESTORE
  9. 150 FOR
  10. 160 FOR
  11. 170 READ
  12. 180 VARNAME
  13. 190 REM DRAW THE SCREEN
  14. 20 REM by Phil Lawson for Atari ST User (c) 1990
  15. 200 REM ***************
  16. 210 CLS
  17. 220 REM Put the back line in first
  18. 230 REM ==========================
  19. 240 SCREEN COPY
  20. 250 SCREEN COPY
  21. 260 REM Now put in line 3
  22. 270 REM =================
  23. 280 VARNAME
  24. 290 IF
  25. 30 MODE
  26. 300 SCREEN COPY
  27. 310 IF
  28. 320 IF
  29. 330 RETURN
  30. 340 REM Now put in line 2
  31. 350 REM =================
  32. 360 IF
  33. 370 IF
  34. 380 VARNAME
  35. 390 IF
  36. 40 REM SET UP THE SCREENS
  37. 400 SCREEN$
  38. 410 SCREEN COPY
  39. 420 VARNAME
  40. 430 IF
  41. 440 REM Now the position directly in front
  42. 450 REM ==================================
  43. 460 SCREEN$
  44. 470 REM Draw the pieces directly left and right
  45. 480 REM =======================================
  46. 490 IF
  47. 50 REM ******************
  48. 500 IF
  49. 510 REM NOW DRAW THE BORDER AROUND THE IMAGE
  50. 520 REM ************************************
  51. 530 VARNAME
  52. 540 REM NOW COPY THE DRAWN SCREEN TO THE DISPLAY
  53. 550 REM ****************************************
  54. 560 WAIT VBL
  55. 570 SCREEN COPY
  56. 580 VARNAME
  57. 590 VARNAME
  58. 60 RESERVE
  59. 600 IF
  60. 610 IF
  61. 620 VARNAME
  62. 630 IF
  63. 640 IF
  64. 650 IF
  65. 660 IF
  66. 670 IF
  67. 680 IF
  68. 690 GOTO
  69. 70 RESERVE
  70. 700 DATA
  71. 710 DATA
  72. 720 DATA
  73. 730 DATA
  74. 740 DATA
  75. 750 DATA
  76. 760 DATA
  77. 770 DATA
  78. 780 DATA
  79. 790 DATA
  80. 80 RESERVE
  81. 800 DATA
  82. 810 DATA
  83. 820 DATA
  84. 830 DATA
  85. 840 DATA
  86. 850 DATA
  87. 860 REM data for direction 1
  88. 870 DATA
  89. 880 DATA
  90. 890 DATA
  91. 90 EXTENSION (Index #0) (Token 0x80)
  92. 900 REM data for direction 2
  93. 910 DATA
  94. 920 DATA
  95. 930 DATA
  96. 940 REM data for direction 3
  97. 950 DATA
  98. 960 DATA
  99. 970 DATA
  100. 980 REM data for direction 4
  101. 990 DATA
  102.