home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / JULMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  3.0 KB  |  105 lines
  1. 5  REM MAP FOR JULY  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 173
  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 57
  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,50:PRINT "SERPENS"
  26. 345  LOCATE 12,19: PRINT "SERPENS"
  27. 346  LOCATE 4,23: PRINT "OPHIUCHUS"
  28. 348  LOCATE 20,10:PRINT "SAGITTARIUS"
  29. 349  LOCATE 22,40:PRINT "SCORPIUS"
  30. 350  LOCATE 12,57:PRINT "LIBRA"
  31. 351  LOCATE 1,27: PRINT "CORONA BOREALIS"
  32. 355  LOCATE 25,1: INPUT A$
  33. 360  LOCATE 1,1:RUN
  34. 440  END
  35. 450  FOR I=58 TO 100
  36. 455  PSET (X(I),Y(I))
  37. 460  NEXT I
  38. 462  GOSUB 1000
  39. 463  IF D$= "WN" OR D$= "wn" THEN GOTO 470
  40. 464  LOCATE  1,41:PRINT "CORONA BOREALIS"
  41. 465  LOCATE 5,47:PRINT "BOOTES"
  42. 466  LOCATE 17,50:PRINT "LEO"
  43. 467  LOCATE 10,45:PRINT "COMA BERENICES"
  44. 468  LOCATE 17,20:PRINT "VIRGO"
  45. 470  LOCATE 25,1: INPUT A$
  46. 480  LOCATE 1,1:RUN
  47. 490  END
  48. 500  FOR I=101 TO 138
  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 21,50:PRINT "CASSIOPEIA"
  54. 551  LOCATE  8,10:PRINT "URSA MAJOR"
  55. 552  LOCATE 15,30:PRINT "URSA MINOR"
  56. 553  LOCATE  3,51:PRINT "DRACO"
  57. 554  LOCATE 10,57:PRINT "CEPHEUS"
  58. 580  LOCATE 25,1: INPUT A$
  59. 585  LOCATE 1,1:RUN
  60. 590  END
  61. 600  FOR I=139 TO 173
  62. 610  PSET (X(I),Y(I))
  63. 620  NEXT I
  64. 625  LOCATE 4,38:PRINT CHR$(4)
  65. 630  GOSUB 1000
  66. 635  IF D$= "EN" OR D$= "en" THEN GOTO 690
  67. 640  LOCATE 13,38:PRINT "CYGNUS"
  68. 641  LOCATE 17,15:PRINT "PEGASUS"
  69. 642  LOCATE 15,57:PRINT "CAPRICORNUS"
  70. 643  LOCATE 25,45:PRINT "AQUARIUS"
  71. 644  LOCATE  3,32:PRINT "VEGA"
  72. 690  LOCATE 25,1: INPUT A$
  73. 695  LOCATE 1,1:RUN
  74. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  75. 1001  FOR I=1 TO 5000
  76. 1002  I=I+1
  77. 1003  NEXT I
  78. 1004  RETURN
  79. 5000  DATA 357,2,359,5,366,7,377,7,388,5,392,2,360,20,378,21,365,28
  80. 5001  DATA 358,33,373,35,392,47,380,55,366,62,377,80,343,83,335,83
  81. 5002  DATA 315,98,275,110,240,109,215,96,193,80,165,67,140,55,235,62
  82. 5003  DATA 253,40,286,50,410,95,437,114,417,136,393,108,343,117,350,120
  83. 5004  DATA 359,126,358,134,357,140,332,133,322,136,313,139,300,153
  84. 5005  DATA 302,164,298,164,303,173,290,175,260,174,250,172,253,170
  85. 5006  DATA 256,164,262,163,165,142,160,150,166,153,179,143,195,138
  86. 5007  DATA 207,148,207,162,233,150
  87. 5008  DATA 277,3,268,2,257,3,255,8,254,11,257,17,270,20,282,17
  88. 5009  DATA 328,27,286,22,269,40,250,60,255,70,295,40,320,41
  89. 5010  DATA 195,105,155,119,258,110,237,120,227,128,240,143,270,154
  90. 5011  DATA 318,138,362,142,341,155,340,182,374,187,394,178,398,164
  91. 5012  DATA 410,163,430,166,432,171,267,94,315,82,338,105,337,107
  92. 5013  DATA 338,109,334,105,332,107,334,108,327,107,330,108,331,110
  93. 5014  DATA 194,22,205,44,193,51,179,64,152,71,161,89,189,91
  94. 5015  DATA 225,81,238,76,245,49,272,28,299,26,312,32,338,41
  95. 5016  DATA 355,62,389,67,390,57,375,18,381,14,360,13,355,16
  96. 5017  DATA 290,58,313,62,285,64,310,69,325,78,324,91,317,100,370,107
  97. 5018  DATA 425,105,465,92,438,77,400,83,398,149,417,149,427,141
  98. 5019  DATA 448,143,447,133
  99. 5020  DATA 226,44,252,57,254,77,220,77,288,75,333,68,262,95,263,113
  100. 5021  DATA 215,125,205,145,203,156,224,155,247,140,262,126,155,173
  101. 5022  DATA 122,182,249,178,325,170,324,154,277,178,326,181,329,186
  102. 5023  DATA 322,192,340,186,345,178,389,167,434,151,422,186,462,184
  103. 5024  DATA 485,182,505,173,490,158,470,144,458,140,462,138
  104. 6000  RUN"MAINSTAR
  105.