home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP12.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.9 KB  |  94 lines
  1. 5  REM MAP12
  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 199
  12. 155  READ X(I),Y(I)
  13. 160  NEXT I
  14. 250  IF D = 4 GOTO 300
  15. 251  IF D = 3 GOTO 450
  16. 252  IF D = 2 GOTO 500
  17. 253  IF D = 1 GOTO 600
  18. 254  IF D = 0 GOTO 6000
  19. 300  FOR I= 1 TO 49
  20. 320  PSET (X(I),Y(I))
  21. 330  NEXT I
  22. 340  AA$="DEC 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 -DEC SOUTH-"
  27. 355  LOCATE 1,70: INPUT A$
  28. 360  LOCATE 1,1:RUN
  29. 440  END
  30. 450  FOR I=50 TO 106
  31. 455  PSET (X(I),Y(I))
  32. 460  NEXT I
  33. 462  AA$="DEC WEST"
  34. 464  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION:"
  35. 465  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 -DEC WEST-"
  38. 470  LOCATE 1,70: INPUT A$
  39. 480  LOCATE 1,1:RUN
  40. 490  END
  41. 500  FOR I=107 TO 144
  42. 510  PSET (X(I),Y(I))
  43. 520  NEXT I
  44. 530  LOCATE 23,5 :PRINT CHR$(4)
  45. 540  AA$="DEC 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 -DEC NORTH-"
  50. 580  LOCATE 1,70: INPUT A$
  51. 585  LOCATE 1,1:RUN
  52. 590  END
  53. 600  FOR I=145 TO 199
  54. 610  PSET (X(I),Y(I))
  55. 620  NEXT I
  56. 630  AA$="DEC 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 -DEC 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 146,84,155,82,165,85,192,91,216,108,170,109,185,151,185,153
  69. 5001  DATA 208,161,238,164,222,183,285,65,307,66,310,75,332,82,362,102
  70. 5002  DATA 375,116,399,95,414,103,441,122,478,103,346,17,360,22,359,29
  71. 5003  DATA 399,1,389,4,404,10,410,16,392,38,375,50,355,65,380,57,419,53
  72. 5004  DATA 433,55,492,39,207,62,211,44,251,55,192,31,179,25,168,22,188,18
  73. 5005  DATA 190,21,193,23,230,6,233,6,235,7,236,7,239,8,460,171,461,154
  74. 5006  DATA 468,130,474,117,509,134,430,135,395,131,301,149,269,139
  75. 5007  DATA 269,120,272,110,270,103,315,90,314,100,345,118,369,95
  76. 5008  DATA 378,106,228,69,298,59,296,42,283,42,251,34,300,25,319,29
  77. 5009  DATA 332,31,324,2,336,29,335,30,334,31,333,32,252,171,250,149
  78. 5010  DATA 235,143,239,140,251,139,230,135,196,135,160,143,126,141
  79. 5011  DATA 125,134,227,117,215,110,191,105,226,103,198,97,219,97,212,88
  80. 5012  DATA 158,43,162,32,152,15,141,3,168,14,192,20,238,29,249,26,258,18
  81. 5013  DATA 278,25,241,39,252,28,272,36,283,32,302,39,191,69,201,88,240,89
  82. 5014  DATA 238,65,290,77,199,163,208,164,224,158,204,152,229,117,238,107
  83. 5015  DATA 260,122,260,143,272,156,282,167,298,170,346,157,378,138,397,134
  84. 5016  DATA 311,138,320,134,297,133,308,127,307,115,312,105,325,94,370,194
  85. 5017  DATA 376,177,392,170,414,163,435,165,453,149,437,137
  86. 5018  DATA 193,151,220,161,230,168,242,184,426,165,449,156,465,148,464,178
  87. 5019  DATA 472,183,482,181,508,167,452,117,471,98,432,106,433,103,434,97,385
  88. 5020  DATA 104,410,89,390,89,394,91,391,92,375,107,349,106,349,107,302,133
  89. 5021  DATA 270,124,234,125,288,120,327,113,328,121,228,115,242,96,312,105,313
  90. 5022  DATA 95,182,47,230,60,240,45,261,70,305,48,318,64,371,77,381,43,390,50
  91. 5023  DATA 391,43,399,46,408,41,394,40,432,33,460,32,450,10,365,17,361,19,358
  92. 5024  DATA 20,368,18,363,19
  93. 6000  RUN"RANDOM
  94.