home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP10.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.7 KB  |  91 lines
  1. 5  REM MAP10
  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 169
  12. 155  READ X(I),Y(I)
  13. 160  NEXT I
  14. 250  IF D = 1  GOTO 300
  15. 251  IF D = 3  GOTO 450
  16. 252  IF D = 2  GOTO 500
  17. 253  IF D = 4  GOTO 600
  18. 254  IF D = 0  GOTO 6000
  19. 300  FOR I= 1 TO 37
  20. 320  PSET (X(I),Y(I))
  21. 330  NEXT I
  22. 340  AA$="OCT SOUTH"
  23. 344  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  24. 346  LOCATE 1,26:INPUT BB$
  25. 348  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 355
  26. 349  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -OCT SOUTH-"
  27. 355  LOCATE 1,70: INPUT A$
  28. 360  LOCATE 1,1:RUN
  29. 440  END
  30. 450  FOR I=38 TO  76
  31. 455  PSET (X(I),Y(I))
  32. 460  NEXT I
  33. 461  LOCATE 10,49:PRINT CHR$(4)
  34. 462  AA$="OCT 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 -OCT WEST-"
  39. 470  LOCATE 1,70: INPUT A$
  40. 480  LOCATE 1,1:RUN
  41. 490  END
  42. 500  FOR I= 77 TO 114
  43. 510  PSET (X(I),Y(I))
  44. 520  NEXT I
  45. 540  AA$="OCT 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 -OCT NORTH-"
  50. 580  LOCATE 1,70: INPUT A$
  51. 585  LOCATE 1,1:RUN
  52. 590  END
  53. 600  FOR I=115 TO 170
  54. 610  PSET (X(I),Y(I))
  55. 620  NEXT I
  56. 630  AA$="OCT 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 -OCT 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 367,119,398,134,415,140,427,148,477,119,479,114,484,115,270,125
  69. 5001  DATA 285,128,302,118,358,78,396,93,450,100,335,80,330,77,318,78,333,74
  70. 5002  DATA 141,44,230,60,244,62,261,59,240,71,256,74,270,70,290,66,220,1
  71. 5003  DATA 208,32,296,41,294,9,315,3,306,17,355,14,385,13,317,49,354,62
  72. 5004  DATA 384,53,303,95
  73. 5005  DATA 459,153,451,157,452,161,458,166,465,168,475,167,482,162
  74. 5006  DATA 405,168,410,159,435,140,452,129,463,126,498,122,348,151,385,137
  75. 5007  DATA 420,133,432,120,410,106,450,94,243,118,245,149,233,164,216,185
  76. 5008  DATA 329,168,293,153,198,125,215,107,269,106,227,89,213,88,170,87
  77. 5009  DATA 312,77,344,43,358,30,375,52,423,48,308,35,285,28,328,148
  78. 5010  DATA 371,29,393,29,394,43,416,44,414,57,302,22,325,40,332,72,290,57
  79. 5011  DATA 271,37,149,75,156,69,170,73,160,78,238,64,256,62,241,79
  80. 5012  DATA 204,89,185,104,180,117,182,125,230,123,274,138,295,145,182,166
  81. 5013  DATA 209,158,236,164,258,167,261,178,298,177,299,164,318,95,302,93
  82. 5014  DATA 278,95,258,103,244,102,242,111,255,111
  83. 5015  DATA 359,138,371,131,387,134,415,125,465,120,486,123,470,102,492,100
  84. 5016  DATA 484,2,466,8,495,8,469,17,490,18,465,22,456,49,430,71,416,78
  85. 5017  DATA 402,94,396,111,386,93,375,78,340,65,325,65,320,60,414,36,346,29
  86. 5018  DATA 333,41,355,51,356,53,294,51,242,62,288,39,279,36,276,32,277,33
  87. 5019  DATA 278,37,279,35,280,35,323,148,309,165,295,154,265,155,258,153
  88. 5020  DATA 254,154,244,153,246,162,257,158,168,160,188,177,244,124,245,126
  89. 5021  DATA 244,128,242,129,249,125,248,127
  90. 6000  RUN "RANDOM
  91.