home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / NOVMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  3.1 KB  |  108 lines
  1. 5  REM MAP FOR NOVEMBER 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 ANDROMEDA DIRECTLY ABOVE AT CENTER HEMISPHERE)"
  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 181
  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 45
  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 3,22:PRINT "ARIES"
  27. 345  LOCATE 5,35:PRINT "PISCES"
  28. 346  LOCATE 16,25:PRINT "CETUS"
  29. 348  LOCATE 16,60:PRINT "AQUARIUS"
  30. 349  LOCATE 2,55:PRINT "PEGASUS"
  31. 355  LOCATE 25,1: INPUT A$
  32. 360  LOCATE 1,1:RUN
  33. 440  END
  34. 450  FOR I=46 TO 87
  35. 455  PSET (X(I),Y(I))
  36. 460  NEXT I
  37. 461  LOCATE 15,58: PRINT CHR$(4)
  38. 462  GOSUB 1000
  39. 463  IF D$= "wn" OR D$= "WN" THEN GOTO 470
  40. 464  LOCATE 23,16:PRINT "CAPRICORNUS"
  41. 465  LOCATE 19,46:PRINT "AQUILA"
  42. 466  LOCATE 7,50:PRINT "CYGNUS"
  43. 467  LOCATE 12,27:PRINT "AQUARIUS"
  44. 468  LOCATE 3,38:PRINT "PEGASUS"
  45. 469  LOCATE 15,60:PRINT "VEGA"
  46. 470  LOCATE 25,1: INPUT A$
  47. 480  LOCATE 1,1:RUN
  48. 490  END
  49. 500  FOR I= 88 TO 125
  50. 510  PSET (X(I),Y(I))
  51. 520  NEXT I
  52. 540  GOSUB 1000
  53. 545  IF D$= "nn" OR D$= "NN" THEN GOTO 580
  54. 550  LOCATE 4,46:PRINT "CASSIOPEIA"
  55. 551  LOCATE 23,51:PRINT "URSA MAJOR"
  56. 552  LOCATE 14,41:PRINT "URSA MINOR"
  57. 553  LOCATE 19,18:PRINT "DRACO"
  58. 554  LOCATE  8,38:PRINT "CEPHEUS"
  59. 580  LOCATE 25,1: INPUT A$
  60. 585  LOCATE 1,1:RUN
  61. 590  END
  62. 600  FOR I=126 TO 181
  63. 610  PSET (X(I),Y(I))
  64. 620  NEXT I
  65. 630  GOSUB 1000
  66. 635  IF D$= "EN" OR D$= "en" THEN GOTO 690
  67. 640  LOCATE 4,54:PRINT "ARIES"
  68. 641  LOCATE 4,30:PRINT "PERSEUS"
  69. 642  LOCATE 15,12:PRINT "AURIGA"
  70. 643  LOCATE 20,15:PRINT "GEMINI"
  71. 644  LOCATE 19,50:PRINT "ORION"
  72. 645  LOCATE 14,50:PRINT "TAURUS"
  73. 646  LOCATE  9,45:PRINT "PLEIADES"
  74. 690  LOCATE 25,1: INPUT A$
  75. 695  LOCATE 1,1:RUN
  76. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  77. 1001  FOR I=1 TO 5000
  78. 1002  I=I+1
  79. 1003  NEXT I
  80. 1004  RETURN
  81. 5000  DATA 216,13,224,17,225,28,275,2,261,8,272,14,276,21,256,39
  82. 5001  DATA 238,50,215,64,283,55,298,56,373,55,390,57,405,54,241,59
  83. 5002  DATA 380,68,399,71,411,69,431,65,137,60,169,66,170,76,191,85
  84. 5003  DATA 232,102,238,113,264,95,274,105,308,119,341,96,402,125
  85. 5004  DATA 410,126,435,118,442,94,473,77,494,69,478,72,472,65,460,64
  86. 5005  DATA 483,59,345,40,354,4,420,4,429,32,470,36
  87. 5006  DATA 136,120,124,136,122,150,123,162,200,162,209,163,207,161
  88. 5007  DATA 261,150,295,149,305,148,320,148,345,164,299,166,285,186
  89. 5008  DATA 388,126,404,88,363,88,331,80,415,73,448,92,480,89
  90. 5009  DATA 160,74,175,76,168,77,165,81,174,87,151,82,182,110,207,137
  91. 5010  DATA 195,1,265,3,271,32,215,37,214,47,205,58,202,77,230,88
  92. 5011  DATA 273,39,270,41,295,40,288,59,325,51
  93. 5012  DATA 291,27,310,17,321,31,340,28,351,38,226,36,219,57,249,67
  94. 5013  DATA 298,72,265,48,139,119,146,128,159,126,158,118,209,88
  95. 5014  DATA 226,80,230,98,205,119,206,135,204,145,215,158,270,157
  96. 5015  DATA 315,145,332,144,325,94,289,98,273,107,267,118,251,119
  97. 5016  DATA 258,127,274,124,255,183,274,179,297,179,324,171,340,181
  98. 5017  DATA 362,157,382,169
  99. 5018  DATA 380,32,392,28,408,27,211,22,221,30,235,43,277,44,293,43
  100. 5019  DATA 236,51,260,60,262,67,279,74,299,74,302,70,141,89,175,105
  101. 5020  DATA 208,118,258,97,192,88,164,155,166,167,206,169,229,180
  102. 5021  DATA 225,166,258,166,259,172,241,152,245,143,327,150,329,147
  103. 5022  DATA 331,148,320,163,350,147,368,156,367,158,366,164,388,178
  104. 5023  DATA 395,163,405,163,260,117,279,130,334,103,343,104,347,102
  105. 5024  DATA 360,105,352,108,341,111,378,101,410,89,402,111,335,76
  106. 5025  DATA 333,72,329,73,326,74,332,74,330,75
  107. 6000  RUN"MAINSTAR
  108.