home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP7.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.8 KB  |  94 lines
  1. 5  REM MAP7
  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 173
  12. 155  READ X(I),Y(I)
  13. 160  NEXT I
  14. 250  IF D = 4  GOTO 300
  15. 251  IF D = 1  GOTO 450
  16. 252  IF D = 2  GOTO 500
  17. 253  IF D = 3  GOTO 600
  18. 254  IF D = 0  GOTO 6000
  19. 300  FOR I= 1 TO 57
  20. 320  PSET (X(I),Y(I))
  21. 330  NEXT I
  22. 340  AA$="JUL 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 -JUL SOUTH-"
  27. 355  LOCATE 1,70: INPUT A$
  28. 360  LOCATE 1,1:RUN
  29. 440  END
  30. 450  FOR I=58 TO 100
  31. 455  PSET (X(I),Y(I))
  32. 460  NEXT I
  33. 462  AA$="JUL WEST"
  34. 464  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION"
  35. 466  LOCATE 1,26:INPUT BB$
  36. 467  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 470
  37. 468  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -JUL WEST-"
  38. 470  LOCATE 1,70: INPUT A$
  39. 480  LOCATE 1,1:RUN
  40. 490  END
  41. 500  FOR I=101 TO 138
  42. 510  PSET (X(I),Y(I))
  43. 520  NEXT I
  44. 540  AA$="JUL NORTH"
  45. 550  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  46. 555  LOCATE 1,26:INPUT BB$
  47. 560  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 580
  48. 570  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -JUL NORTH-"
  49. 580  LOCATE 1,70: INPUT A$
  50. 585  LOCATE 1,1:RUN
  51. 590  END
  52. 600  FOR I=139 TO 173
  53. 610  PSET (X(I),Y(I))
  54. 620  NEXT I
  55. 625  LOCATE 4,38:PRINT CHR$(4)
  56. 630  AA$="JUL 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 -JUL 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 357,2,359,5,366,7,377,7,388,5,392,2,360,20,378,21,365,28
  69. 5001  DATA 358,33,373,35,392,47,380,55,366,62,377,80,343,83,335,83
  70. 5002  DATA 315,98,275,110,240,109,215,96,193,80,165,67,140,55,235,62
  71. 5003  DATA 253,40,286,50,410,95,437,114,417,136,393,108,343,117,350,120
  72. 5004  DATA 359,126,358,134,357,140,332,133,322,136,313,139,300,153
  73. 5005  DATA 302,164,298,164,303,173,290,175,260,174,250,172,253,170
  74. 5006  DATA 256,164,262,163,165,142,160,150,166,153,179,143,195,138
  75. 5007  DATA 207,148,207,162,233,150
  76. 5008  DATA 277,3,268,2,257,3,255,8,254,11,257,17,270,20,282,17
  77. 5009  DATA 328,27,286,22,269,40,250,60,255,70,295,40,320,41
  78. 5010  DATA 195,105,155,119,258,110,237,120,227,128,240,143,270,154
  79. 5011  DATA 318,138,362,142,341,155,340,182,374,187,394,178,398,164
  80. 5012  DATA 410,163,430,166,432,171,267,94,315,82,338,105,337,107
  81. 5013  DATA 338,109,334,105,332,107,334,108,327,107,330,108,331,110
  82. 5014  DATA 194,22,205,44,193,51,179,64,152,71,161,89,189,91
  83. 5015  DATA 225,81,238,76,245,49,272,28,299,26,312,32,338,41
  84. 5016  DATA 355,62,389,67,390,57,375,18,381,14,360,13,355,16
  85. 5017  DATA 290,58,313,62,285,64,310,69,325,78,324,91,317,100,370,107
  86. 5018  DATA 425,105,465,92,438,77,400,83,398,149,417,149,427,141
  87. 5019  DATA 448,143,447,133
  88. 5020  DATA 226,44,252,57,254,77,220,77,288,75,333,68,262,95,263,113
  89. 5021  DATA 215,125,205,145,203,156,224,155,247,140,262,126,155,173
  90. 5022  DATA 122,182,249,178,325,170,324,154,277,178,326,181,329,186
  91. 5023  DATA 322,192,340,186,345,178,389,167,434,151,422,186,462,184
  92. 5024  DATA 485,182,505,173,490,158,470,144,458,140,462,138
  93. 6000  RUN"RANDOM
  94.