home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP11.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.8 KB  |  95 lines
  1. 5  REM MAP11
  2. 10  KEY OFF
  3. 11  SCREEN 0
  4. 20  DIM X(200),Y(200)
  5. 25  CLS
  6. 30  PRINT "ENTER NUMBER FROM 1 TO 4 (0 TO RETURN TO MENU) "
  7. 35  LOCATE 1,60: INPUT D
  8. 50  SCREEN 2,,0,0
  9. 125  CLS
  10. 130  RESTORE
  11. 150  FOR I=1 TO 181
  12. 155  READ X(I),Y(I)
  13. 160  NEXT I
  14. 250  IF D = 3 GOTO 300
  15. 251  IF D = 1 GOTO 450
  16. 252  IF D = 4 GOTO 500
  17. 253  IF D = 2 GOTO 600
  18. 254  IF D = 0 GOTO 6000
  19. 300  FOR I= 1 TO 45
  20. 320  PSET (X(I),Y(I))
  21. 330  NEXT I
  22. 340  AA$="NOV SOUTH"
  23. 342  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_______"
  24. 344  LOCATE 1,26:INPUT BB$
  25. 346  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 355
  26. 348  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -NOV SOUTH-"
  27. 355  LOCATE 1,70: INPUT A$
  28. 360  LOCATE 1,1:RUN
  29. 440  END
  30. 450  FOR I=46 TO 87
  31. 455  PSET (X(I),Y(I))
  32. 460  NEXT I
  33. 461  LOCATE 15,58: PRINT CHR$(4)
  34. 462  AA$="NOV WEST"
  35. 464  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION________"
  36. 466  LOCATE 1,26:INPUT BB$
  37. 467  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 470
  38. 468  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -NOV WEST-"
  39. 470  LOCATE 1,70: INPUT A$
  40. 480  LOCATE 1,1:RUN
  41. 490  END
  42. 500  FOR I= 88 TO 125
  43. 510  PSET (X(I),Y(I))
  44. 520  NEXT I
  45. 540  AA$="NOV NORTH"
  46. 550  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  47. 555  LOCATE 1,26:INPUT BB$
  48. 560  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 580
  49. 570  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -NOV NORTH-"
  50. 580  LOCATE 1,70: INPUT A$
  51. 585  LOCATE 1,1:RUN
  52. 590  END
  53. 600  FOR I=126 TO 181
  54. 610  PSET (X(I),Y(I))
  55. 620  NEXT I
  56. 630  AA$="NOV EAST"
  57. 640  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  58. 650  LOCATE 1,26:INPUT BB$
  59. 660  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 690
  60. 670  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -NOV EAST-"
  61. 690  LOCATE 1,70: INPUT A$
  62. 695  LOCATE 1,1:RUN
  63. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  64. 1001  FOR I=1 TO 5000
  65. 1002  I=I+1
  66. 1003  NEXT I
  67. 1004  RETURN
  68. 5000  DATA 216,13,224,17,225,28,275,2,261,8,272,14,276,21,256,39
  69. 5001  DATA 238,50,215,64,283,55,298,56,373,55,390,57,405,54,241,59
  70. 5002  DATA 380,68,399,71,411,69,431,65,137,60,169,66,170,76,191,85
  71. 5003  DATA 232,102,238,113,264,95,274,105,308,119,341,96,402,125
  72. 5004  DATA 410,126,435,118,442,94,473,77,494,69,478,72,472,65,460,64
  73. 5005  DATA 483,59,345,40,354,4,420,4,429,32,470,36
  74. 5006  DATA 136,120,124,136,122,150,123,162,200,162,209,163,207,161
  75. 5007  DATA 261,150,295,149,305,148,320,148,345,164,299,166,285,186
  76. 5008  DATA 388,126,404,88,363,88,331,80,415,73,448,92,480,89
  77. 5009  DATA 160,74,175,76,168,77,165,81,174,87,151,82,182,110,207,137
  78. 5010  DATA 195,1,265,3,271,32,215,37,214,47,205,58,202,77,230,88
  79. 5011  DATA 273,39,270,41,295,40,288,59,325,51
  80. 5012  DATA 291,27,310,17,321,31,340,28,351,38,226,36,219,57,249,67
  81. 5013  DATA 298,72,265,48,139,119,146,128,159,126,158,118,209,88
  82. 5014  DATA 226,80,230,98,205,119,206,135,204,145,215,158,270,157
  83. 5015  DATA 315,145,332,144,325,94,289,98,273,107,267,118,251,119
  84. 5016  DATA 258,127,274,124,255,183,274,179,297,179,324,171,340,181
  85. 5017  DATA 362,157,382,169
  86. 5018  DATA 380,32,392,28,408,27,211,22,221,30,235,43,277,44,293,43
  87. 5019  DATA 236,51,260,60,262,67,279,74,299,74,302,70,141,89,175,105
  88. 5020  DATA 208,118,258,97,192,88,164,155,166,167,206,169,229,180
  89. 5021  DATA 225,166,258,166,259,172,241,152,245,143,327,150,329,147
  90. 5022  DATA 331,148,320,163,350,147,368,156,367,158,366,164,388,178
  91. 5023  DATA 395,163,405,163,260,117,279,130,334,103,343,104,347,102
  92. 5024  DATA 360,105,352,108,341,111,378,101,410,89,402,111,335,76
  93. 5025  DATA 333,72,329,73,326,74,332,74,330,75
  94. 6000  RUN"RANDOM
  95.