home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE28.MSA / GIVEAWAY.028_DEANO_DEANO.ZIP / EXITS.BAS (.txt) next >
Atari STOS Basic  |  1989-07-29  |  2KB  |  56 lines
  1. 10 KEY
  2. 100 BOX
  3. 1000 REM EXIT VALUES FOR EACH OF THE FIVE ROOMS IN MAZE
  4. 1010 DATA
  5. 1020 DATA
  6. 1030 DATA
  7. 1040 DATA
  8. 1050 DATA
  9. 110 SET ZONE
  10. 115 PRINT
  11. 120 NEXT
  12. 125 REM WAIT FOR PLAYER TO CHOOSE A ZONE
  13. 130 REPEAT
  14. 140 VARNAME
  15. 150 UNTIL
  16. 155 REM SET ROOM VALUE TO NEW ROOM
  17. 160 VARNAME
  18. 20 DIM
  19. 2000 REM ZONE CO-ORDINATES FOR ROOM ONE
  20. 2010 DATA
  21. 2020 DATA
  22. 2030 DATA
  23. 2040 DATA
  24. 2060 REM ZONE CO-ORDINATES FOR ROOM TWO
  25. 2070 DATA
  26. 2080 DATA
  27. 2090 DATA
  28. 2100 DATA
  29. 2120 REM ZONE CO-ORDINATES FOR ROOM THREE
  30. 2130 DATA
  31. 2140 DATA
  32. 2150 DATA
  33. 2160 DATA
  34. 2170 REM ZONE CO-ORDINATES FOR ROOM FOUR
  35. 2180 DATA
  36. 2190 DATA
  37. 2200 DATA
  38. 2210 DATA
  39. 2220 REM ZONE CO-ORDINATES FOR ROOM FIVE
  40. 2230 DATA
  41. 2240 DATA
  42. 2250 DATA
  43. 2260 DATA
  44. 25 REM SET UP MAP EXIT VALUES
  45. 30 FOR
  46. 40 READ
  47. 50 NEXT
  48. 52 REM SET UP ZONE CO-ORDINATES FOR EACH ROOM
  49. 55 FOR
  50. 66 READ
  51. 70 VARNAME
  52. 75 NEXT
  53. 76 REM DRAW EXIT BOXES AND INFO OF WHERE EACH ONE GOES
  54. 80 HOME
  55. 90 FOR
  56.