home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / JUNMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  3.1 KB  |  107 lines
  1. 5  REM MAP FOR JUNE  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 175
  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 39
  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 355
  25. 344  LOCATE 12,57:PRINT "VIRGO"
  26. 346  LOCATE 2,37:PRINT "CORONA BORIALIS"
  27. 348  LOCATE 19,50:PRINT "HYDRA"
  28. 349  LOCATE 5,35:PRINT "SERPENS"
  29. 350  LOCATE 10,36:PRINT "LIBRA"
  30. 351  LOCATE 20,30:PRINT "SCORPIUS"
  31. 355  LOCATE 25,1: INPUT A$
  32. 360  LOCATE 1,1:RUN
  33. 440  END
  34. 450  FOR I=40 TO 89
  35. 455  PSET (X(I),Y(I))
  36. 460  NEXT I
  37. 462  GOSUB 1000
  38. 463  IF D$= "WN" OR D$= "wn" THEN GOTO 470
  39. 464  LOCATE 23,50:PRINT "GEMINI"
  40. 465  LOCATE 16,54:PRINT "CANCER"
  41. 466  LOCATE 20,17:PRINT "HYDRA"
  42. 467  LOCATE 11,43:PRINT "LEO"
  43. 468  LOCATE  6,50:PRINT "URSA MAJOR"
  44. 469  LOCATE 4,20:PRINT "COMA BERENICES"
  45. 470  LOCATE 25,1: INPUT A$
  46. 480  LOCATE 1,1:RUN
  47. 490  END
  48. 500  FOR I=90 TO 127
  49. 510  PSET (X(I),Y(I))
  50. 520  NEXT I
  51. 540  GOSUB 1000
  52. 545  IF D$= "NN" OR D$= "nn" THEN GOTO 580
  53. 550  LOCATE 22,40:PRINT "CASSIOPEIA"
  54. 551  LOCATE 2,20:PRINT "URSA MAJOR"
  55. 552  LOCATE 10,30:PRINT "URSA MINOR"
  56. 553  LOCATE  7,57:PRINT "DRACO"
  57. 554  LOCATE 15,62:PRINT "CEPHESUS"
  58. 580  LOCATE 25,1: INPUT A$
  59. 585  LOCATE 1,1:RUN
  60. 590  END
  61. 600  FOR I=128 TO 175
  62. 610  PSET (X(I),Y(I))
  63. 620  NEXT I
  64. 625  LOCATE 9,30:PRINT CHR$(4)
  65. 630  GOSUB 1000
  66. 635  IF D$= "EN" OR D$= "en" THEN GOTO 690
  67. 640  LOCATE 19,22:PRINT "CYGNUS"
  68. 641  LOCATE 19,45:PRINT "AQUILA"
  69. 642  LOCATE 11,39:PRINT "OPHIUCHUS"
  70. 643  LOCATE 16,65:PRINT "SERPENS"
  71. 644  LOCATE  4,24:PRINT "HERCULES"
  72. 645  LOCATE 1,37:PRINT "CORONA BOREALIS"
  73. 646  LOCATE 3,65:PRINT "SERPENS"
  74. 647  LOCATE 9,20:PRINT "VEGA"
  75. 690  LOCATE 25,1: INPUT A$
  76. 695  LOCATE 1,1:RUN
  77. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  78. 1001  FOR I=1 TO 5000
  79. 1002  I=I+1
  80. 1003  NEXT I
  81. 1004  RETURN
  82. 5000  DATA 225,3,232,6,240,7,250,6,256,2,220,17,239,21,230,25,218,32
  83. 5001  DATA 232,33,248,46,238,57,225,61,230,81,202,81,273,93,255,107
  84. 5002  DATA 303,112,287,134,208,120,217,121,225,128,227,136,228,144
  85. 5003  DATA 207,136,195,140,187,145,181,164,184,177,190,176,195,186
  86. 5004  DATA 435,44,442,63,452,75,413,98,392,74,350,135,405,130,508,160
  87. 5005  DATA 368,3,405,7,415,15,427,26,481,33,467,45,425,40,225,30,280,25
  88. 5006  DATA 295,50,288,48,287,50,288,51,291,52,285,48,286,51,285,53
  89. 5007  DATA 280,50,284,53,248,81,271,100,296,92,325,118,335,118,355,120
  90. 5008  DATA 356,122,324,127,305,134,312,150,272,125,359,128,177,148
  91. 5009  DATA 182,158,212,161,251,177,268,165,305,171,325,175,332,181
  92. 5010  DATA 333,190,322,187,345,166,380,161,395,157,418,145,453,183
  93. 5011  DATA 463,165,480,163,495,172,496,194
  94. 5012  DATA 280,3,270,17,255,22,233,32,208,29,195,47,215,54,251,64
  95. 5013  DATA 272,60,304,39,360,27,379,30,380,40,393,52,388,75,415,89
  96. 5014  DATA 425,78,440,35,450,28,470,32,458,40,320,100,340,93
  97. 5015  DATA 348,82,345,70,357,66,340,55,328,63,358,118,405,108
  98. 5016  DATA 407,130,452,133,445,110,335,159,358,165,373,160,388,166,400,156
  99. 5017  DATA 347,10,358,8,370,10,371,16,371,19,363,25,346,24,392,28
  100. 5018  DATA 399,18,409,22,420,29,424,21,448,13,470,18,482,25
  101. 5019  DATA 262,22,292,37,322,42,374,44,393,40,238,52,290,51,320,50
  102. 5020  DATA 340,64,393,74,268,68,160,82,173,102,172,121,180,138
  103. 5021  DATA 138,119,208,120,252,120,325,127,308,150,355,150,311,155
  104. 5022  DATA 320,160,337,175,370,135,415,125,453,123,495,118,505,105
  105. 5023  DATA 485,70,420,73,389,83,411,98
  106. 6000  RUN "MAINSTAR
  107.