home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MARMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.7 KB  |  96 lines
  1. 5  REM MAP FOR MARCH SKY
  2. 10  KEY OFF
  3. 11  SCREEN 0
  4. 20  DIM X(200),Y(200)
  5. 25  CLS
  6. 30  PRINT "ENTER DIRECTION YOU ARE FACING (N S E W) OR X FOR NEW MONTH"
  7. 32  PRINT "   FOLLOW DIRECTIONAL KEY WITH N OR n TO OMIT LABELS"
  8. 35  LOCATE 1,60: INPUT D$
  9. 50  SCREEN 2,,0,0
  10. 125  CLS
  11. 130  RESTORE
  12. 150  FOR I=1 TO 153
  13. 155  READ X(I),Y(I)
  14. 160  NEXT I
  15. 250  IF D$="S" OR D$="s" OR D$= "SN" OR D$= "sn" GOTO 300
  16. 251  IF D$="W" OR D$="w" OR D$= "WN" OR D$= "wn" GOTO 450
  17. 252  IF D$="N" OR D$="n" OR D$= "nn" OR D$ = "NN" GOTO 500
  18. 253  IF D$="E" OR D$="e" OR D$= "EN" OR D$= "en" GOTO 600
  19. 254  IF D$="X" OR D$="x" GOTO 6000
  20. 300  FOR I= 1 TO 27
  21. 320  PSET (X(I),Y(I))
  22. 330  NEXT I
  23. 340  GOSUB 1000
  24. 342  IF D$= "SN" OR D$= "sn" THEN GOTO 350
  25. 344  LOCATE 2,45:PRINT "CANCER"
  26. 346  LOCATE 24,50:PRINT "CANIS MAJOR"
  27. 348  LOCATE 12,40:PRINT "HYDRA"
  28. 350  LOCATE 25,1:INPUT A$
  29. 355  REM INPUT A$
  30. 360  LOCATE 1,1:RUN
  31. 440  END
  32. 450  FOR I=28 TO 75
  33. 455  PSET (X(I),Y(I))
  34. 460  NEXT I
  35. 462  GOSUB 1000
  36. 463  IF D$="WN" OR D$= "wn" THEN GOTO 470
  37. 464  LOCATE  2,40:PRINT "GEMINI"
  38. 465  LOCATE 8,50:PRINT "AURIGA"
  39. 466  LOCATE 17,20:PRINT "ORION"
  40. 467  LOCATE 15,50:PRINT "TAURUS"
  41. 468  LOCATE 25,50:PRINT "ARIES"
  42. 470  LOCATE 25,1: INPUT A$
  43. 480  LOCATE 1,1:RUN
  44. 490  END
  45. 500  FOR I=76 TO 110
  46. 510  PSET (X(I),Y(I))
  47. 520  NEXT I
  48. 540  GOSUB 1000
  49. 545  IF D$= "nn" OR D$= "NN" THEN GOTO 580
  50. 550  LOCATE 20,10:PRINT "CASSIOPEIA"
  51. 551  LOCATE 5,60:PRINT "URSA MAJOR"
  52. 552  LOCATE 12,35:PRINT "URSA MINOR"
  53. 553  LOCATE 17,60:PRINT "DRACO"
  54. 580  LOCATE 25,1: INPUT A$
  55. 585  LOCATE 1,1:RUN
  56. 590  END
  57. 600  FOR I=111 TO 153
  58. 610  PSET (X(I),Y(I))
  59. 620  NEXT I
  60. 630  GOSUB 1000
  61. 635  IF D$= "EN" OR D$= "en" THEN GOTO 690
  62. 640  LOCATE 7,45:PRINT "LEO"
  63. 641  LOCATE 17,55:PRINT "VIRGO"
  64. 642  LOCATE 11,20:PRINT "COMA BERENICES"
  65. 643  LOCATE 23,10:PRINT "CORONA BOREALIS"
  66. 644  LOCATE 20,30:PRINT "BOOTES"
  67. 690  LOCATE 25,1: INPUT A$
  68. 695  LOCATE 1,1:RUN
  69. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  70. 1001  FOR I=1 TO 5000
  71. 1002  I=I+1
  72. 1003  NEXT I
  73. 1004  RETURN
  74. 5000  DATA 123,158,152,164,175,112,220,104,265,94,247,75,285,67
  75. 5001  DATA 307,60,315,55,312,62,315,64,320,61
  76. 5002  DATA 290,43,308,31,315,19,308,8,400,144,410,140,418,137,422,140
  77. 5003  DATA 424,143,428,155,465,155,435,128,459,115,480,120,435,108
  78. 5004  DATA 150,108,175,123,182,105,188,107,195,110,206,90,224,107,225,92
  79. 5005  DATA 225,96,230,94,210,52,223,58,241,36,260,15,235,30,215,31
  80. 5006  DATA 285,18,301,35,265,43,250,57,265,63,345,90,332,58,370,48,395,64
  81. 5007  DATA 273,145,310,158,302,138,304,132,300,124,315,124,295,116,320,118
  82. 5008  DATA 280,81,315,80,355,126,355,128,359,125,360,129,362,128,366,128
  83. 5009  DATA 405,180,415,175,422,167,505,193,495,186,500,167,494,136
  84. 5010  DATA 197,140,180,137,190,128,177,123,185,113,375,55,380,68,425,80
  85. 5011  DATA 450,113,445,119,420,127,395,131,355,129,328,137,345,147,375,153
  86. 5012  DATA 420,153,408,155,430,155,418,167,332,95,320,100,343,104,367,100
  87. 5013  DATA 373,108,390,104,385,96,505,76,470,74,460,70,450,60,435,51
  88. 5014  DATA 385,42,400,29,445,32,152,166,155,169,160,171,168,171
  89. 5015  DATA 175,169,180,163,175,158,168,156,255,148,212,148,210,135
  90. 5016  DATA 170,147,153,130,180,125,415,165,395,134,362,133,340,130
  91. 5017  DATA 410,123,420,108,303,125,255,110,285,92,286,94
  92. 5020  DATA 286,95,290,94,287,100,290,98,292,95,292,101,296,98,297,103
  93. 5021  DATA 373,90,389,73,370,65,390,38,378,35,375,20,388,17,422,34
  94. 5022  DATA 444,35,447,59,455,17
  95. 6000  RUN"MAINSTAR
  96.