home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / SEPMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.8 KB  |  101 lines
  1. 5  REM MAP FOR SEPTEMBER 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 156
  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 30
  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 4,45:PRINT "AQUILA"
  26. 345  LOCATE  7,18: PRINT "AQUARIUS"
  27. 346  LOCATE 19,31: PRINT "CAPRICORNUS"
  28. 348  LOCATE 15,50:PRINT "SAGITTARIUS"
  29. 355  LOCATE 25,1: INPUT A$
  30. 360  LOCATE 1,1:RUN
  31. 440  END
  32. 450  FOR I=31 TO  75
  33. 455  PSET (X(I),Y(I))
  34. 460  NEXT I
  35. 461  LOCATE 4,41:PRINT CHR$(4)
  36. 462  GOSUB 1000
  37. 463  IF D$= "WN" OR D$= "wn" THEN GOTO 470
  38. 464  LOCATE 14,50:PRINT "CORONA BOREALIS"
  39. 465  LOCATE 22,54:PRINT "BOOTES"
  40. 466  LOCATE  8,50:PRINT "HERCULES"
  41. 467  LOCATE 22,30:PRINT "SERPENS"
  42. 468  LOCATE 10,22:PRINT "OPHIUCHUS"
  43. 469  LOCATE 4,43:PRINT "VEGA"
  44. 470  LOCATE 25,1: INPUT A$
  45. 480  LOCATE 1,1:RUN
  46. 490  END
  47. 500  FOR I= 76 TO 109
  48. 510  PSET (X(I),Y(I))
  49. 520  NEXT I
  50. 540  GOSUB 1000
  51. 545  IF D$= "NN" OR D$= "nn" THEN GOTO 580
  52. 550  LOCATE  5,54:PRINT "CASSIOPEIA"
  53. 551  LOCATE 23,22:PRINT "URSA MAJOR"
  54. 552  LOCATE 14,38:PRINT "URSA MINOR"
  55. 553  LOCATE  4,34:PRINT "DRACO"
  56. 580  LOCATE 25,1: INPUT A$
  57. 585  LOCATE 1,1:RUN
  58. 590  END
  59. 600  FOR I=110 TO 156
  60. 610  PSET (X(I),Y(I))
  61. 620  NEXT I
  62. 630  GOSUB 1000
  63. 635  IF D$= "EN" OR D$= "en" THEN GOTO 690
  64. 640  LOCATE  9,22:PRINT "ANDROMEDA"
  65. 641  LOCATE  5,45:PRINT "PEGASUS"
  66. 642  LOCATE 14,55:PRINT "PISCES"
  67. 643  LOCATE 19,20:PRINT "PLEIADES"
  68. 644  LOCATE 22,57:PRINT "CETUS"
  69. 690  LOCATE 25,1: INPUT A$
  70. 695  LOCATE 1,1:RUN
  71. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  72. 1001  FOR I=1 TO 5000
  73. 1002  I=I+1
  74. 1003  NEXT I
  75. 1004  RETURN
  76. 5000  DATA 354,77,408,68,426,40,381,47,375,52,415,142,418,150,426,140
  77. 5001  DATA 437,145,455,140,457,155,475,159,451,166,236,116,265,132
  78. 5002  DATA 281,135,299,138,335,110,340,106,345,106,132,133,152,134
  79. 5003  DATA 160,119,157,96,210,77,255,90,308,96,177,75
  80. 5004  DATA 183,77,192,73
  81. 5005  DATA 153,81,145,99,130,120,148,133,193,147,227,149,239,149
  82. 5006  DATA 250,161,278,149,294,151,325,152,321,138,318,133,330,133
  83. 5007  DATA 342,134,340,126,208,95,250,111,240,91,261,99,303,87,338,86
  84. 5008  DATA 354,74,335,54,384,50,313,118,320,111,349,92,381,82,422,80
  85. 5009  DATA 370,110,357,115,358,122,365,125,372,126,388,125,395,119
  86. 5010  DATA 360,167,401,168,410,178,407,144,430,147,416,123,448,118
  87. 5011  DATA 459,132
  88. 5012  DATA 131,126,170,128,180,137,200,147,199,159,230,163,242,152
  89. 5013  DATA 256,134,243,122,203,107,176,82,183,74,200,66,227,61
  90. 5014  DATA 274,63,300,50,285,48,269,46,215,37,197,37,186,32,205,28
  91. 5015  DATA 323,96,305,91,287,87,264,88,245,93,237,88,258,80,435,53
  92. 5016  DATA 453,58,444,68,451,75,440,86
  93. 5017  DATA 179,171,182,172,181,174,178,173,179,169,179,175
  94. 5018  DATA 443,134,462,159,418,163,400,166,395,182,420,185,345,185
  95. 5019  DATA 260,110,265,119,275,119,292,121,307,137,330,166,337,153
  96. 5020  DATA 322,151,350,138,362,133,398,103,415,95,417,89,425,100
  97. 5021  DATA 438,94,437,87,445,77,393,66,358,100,340,55,306,81
  98. 5022  DATA 276,94,288,96,296,106,295,111,240,100,236,91,227,82
  99. 5023  DATA 183,107,231,77,232,78,233,79,234,80,235,80
  100. 6000  RUN"MAINSTAR
  101.