home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / AUGMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  3.3 KB  |  107 lines
  1. 5  REM MAP FOR AUGUST 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. 31  PRINT "    (LOOK FOR VEGA DIRECTLY ABOVE AT CENTER HEMISHPERE)"
  8. 32  PRINT "    FOLLOW DIRECTIONAL KEY WITH N OR n TO OMIT LABELS"
  9. 35  LOCATE 1,60: INPUT D$
  10. 50  SCREEN 2,,0,0
  11. 125  CLS
  12. 130  RESTORE
  13. 150  FOR I=1 TO 198
  14. 155  READ X(I),Y(I)
  15. 160  NEXT I
  16. 250  IF D$="S" OR D$="s" OR D$= "SN" OR D$= "sn" GOTO 300
  17. 251  IF D$="W" OR D$="w" OR D$= "WN" OR D$= "wn" GOTO 450
  18. 252  IF D$="N" OR D$="n" OR D$= "NN" OR D$= "nn" GOTO 500
  19. 253  IF D$="E" OR D$="e" OR D$= "EN" OR D$= "en" GOTO 600
  20. 254  IF D$="X" OR D$="x" GOTO 6000
  21. 300  FOR I= 1 TO 47
  22. 320  PSET (X(I),Y(I))
  23. 330  NEXT I
  24. 340  GOSUB 1000
  25. 342  IF D$= "SN" OR D$= "sn" THEN GOTO 355
  26. 344  LOCATE 20,18:PRINT "CAPRICORNUS"
  27. 345  LOCATE 12,40: PRINT "SERPENS"
  28. 346  LOCATE 5,20: PRINT "AQUILA"
  29. 348  LOCATE 22,32:PRINT "SAGITTARIUS"
  30. 349  LOCATE 22,57:PRINT "SCORPIUS"
  31. 350  LOCATE  5,55:PRINT "OPHIUCHUS"
  32. 355  LOCATE 25,1:INPUT A$
  33. 360  LOCATE 1,1:RUN
  34. 440  END
  35. 450  FOR I=48 TO 107
  36. 455  PSET (X(I),Y(I))
  37. 460  NEXT I
  38. 461  GOSUB 1000
  39. 462  IF D$= "WN" OR D$= "wn" THEN GOTO 470
  40. 463  LOCATE 15,24:PRINT "LIBRA"
  41. 464  LOCATE  7,45:PRINT "CORONA BOREALIS"
  42. 465  LOCATE 13,52:PRINT "BOOTES"
  43. 466  LOCATE 18,55:PRINT "COMA BERENICES"
  44. 467  LOCATE  3,50:PRINT "HERCULES"
  45. 468  LOCATE 23,45:PRINT "VIRGO"
  46. 469  LOCATE 8,20:PRINT "SERPENS"
  47. 470  LOCATE 25,1: INPUT A$
  48. 480  LOCATE 1,1:RUN
  49. 490  END
  50. 500  FOR I=108 TO 145
  51. 510  PSET (X(I),Y(I))
  52. 520  NEXT I
  53. 540  GOSUB 1000
  54. 545  IF D$= "nn" OR D$= "NN" THEN GOTO 580
  55. 550  LOCATE 17,54:PRINT "CASSIOPEIA"
  56. 551  LOCATE 20,21:PRINT "URSA MAJOR"
  57. 552  LOCATE 19,37:PRINT "URSA MINOR"
  58. 553  LOCATE  2,40:PRINT "DRACO"
  59. 554  LOCATE  5,54:PRINT "CEPHEUS"
  60. 580  LOCATE 25,1: INPUT A$
  61. 585  LOCATE 1,1:RUN
  62. 590  END
  63. 600  FOR I=146 TO 198
  64. 610  PSET (X(I),Y(I))
  65. 620  NEXT I
  66. 630  GOSUB 1000
  67. 635  IF D$= "EN" OR D$= "en" THEN GOTO 690
  68. 640  LOCATE  3,45:PRINT "CYGNUS"
  69. 641  LOCATE 12,41:PRINT "PEGASUS"
  70. 642  LOCATE 14,17:PRINT "ANDROMEDA"
  71. 643  LOCATE 17,56:PRINT "AQUARIUS"
  72. 644  LOCATE 23,41:PRINT "PISCES"
  73. 690  LOCATE 25,1: INPUT A$
  74. 695  LOCATE 1,1:RUN
  75. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  76. 1001  FOR I=1 TO 5000
  77. 1002  I=I+1
  78. 1003  NEXT I
  79. 1004  RETURN
  80. 5000  DATA 122,130,145,137,160,144,179,148,209,112,215,106,215,77,234,59
  81. 5001  DATA 239,52,242,47,295,43,270,69,292,89,310,63,350,80,370,95,395,112
  82. 5002  DATA 424,115,465,104,482,89,392,62,402,45,445,50,305,137,297,139
  83. 5003  DATA 300,148,315,138,335,136,345,148,360,150,339,156,385,164,380,167
  84. 5004  DATA 370,172,380,180,405,183,421,182,423,172,426,164,450,148,460,144
  85. 5005  DATA 470,144,494,157,495,149,500,138,499,128,486,125
  86. 5006  DATA 124,150,175,149,155,121,182,122,125,72,166,84,178,99,212,90
  87. 5007  DATA 225,93,253,93,258,82,270,79,279,75,254,78,283,80
  88. 5008  DATA 225,32,268,27,301,30,319,19,315,1,358,3,257,59,270,51,303,40
  89. 5009  DATA 329,33,335,32,380,36,315,59,303,61,301,67,306,73,308,77,315,76
  90. 5010  DATA 323,74,329,72,290,115,325,121,335,130,334,98,362,102,351,77,390,74
  91. 5011  DATA 395,88,242,178,286,165,317,192,325,181,344,166,356,148,400,133
  92. 5012  DATA 430,151,422,151,425,152,423,153,418,152,421,153,424,154,417,154
  93. 5013  DATA 419,155,415,155
  94. 5014  DATA 150,70,170,80,165,94,175,110,160,120,185,135,209,127,232,111
  95. 5015  DATA 230,102,215,76,215,50,230,44,255,42,285,43,321,58,357,55,342,48
  96. 5016  DATA 298,18,297,13,275,13,278,17,325,110,321,91,305,80,285,76
  97. 5017  DATA 266,77,264,70,285,68,378,90,382,63,409,48,450,55,430,73
  98. 5018  DATA 447,121,465,115,464,106,481,103,471,91
  99. 5019  DATA 255,1,288,12,299,29,269,32,325,44,370,8,471,106,423,118,421,125
  100. 5020  DATA 408,127,403,132,405,122,421,151,462,163,467,177,455,183,373,138
  101. 5021  DATA 365,143,343,142,362,154,348,160,340,154,322,157,282,190,230,188
  102. 5022  DATA 216,170,203,166,185,165,184,159,400,95,401,115,360,120
  103. 5023  DATA 331,125,282,155,235,134,276,110,295,107,282,100,287,79,322,88
  104. 5024  DATA 333,76,218,163,220,158,212,149,205,140,169,142,123,148,166,134
  105. 5025  DATA 161,126,163,122,164,123,165,124,166,125
  106. 6000  RUN"MAINSTAR
  107.