home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / JANMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.7 KB  |  96 lines
  1. 5  REM DATA FOR JANUARY SKY
  2. 6  SCREEN 0
  3. 10  KEY OFF
  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 "   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 37
  21. 320  PSET (X(I),Y(I))
  22. 330  NEXT I
  23. 335  GOSUB 1000
  24. 337  IF D$="SN" OR D$="sn" THEN GOTO 350
  25. 340  LOCATE 20,30:PRINT "CANIS MAJOR"
  26. 341  LOCATE 2,44:PRINT "TAURUS"
  27. 342  LOCATE  12,40:PRINT "ORION"
  28. 350  LOCATE 25,1:INPUT A$
  29. 355  LOCATE 1,1:RUN
  30. 440  END
  31. 450  FOR I=38 TO 91
  32. 455  PSET (X(I),Y(I))
  33. 460  NEXT I
  34. 465  GOSUB 1000
  35. 466  IF D$="WN" OR D$="wn" THEN GOTO 475
  36. 470  LOCATE 18,52:PRINT "PEGASUS"
  37. 471  LOCATE 11,52:PRINT "ANDROMEDA"
  38. 472  LOCATE 16,30:PRINT "PISCES"
  39. 473  LOCATE 22,16:PRINT "CETUS"
  40. 474  LOCATE  9,30:PRINT "ARIES"
  41. 475  LOCATE 25,1: INPUT A$
  42. 480  LOCATE 1,1:RUN
  43. 490  END
  44. 500  FOR I=91 TO 123
  45. 510  PSET (X(I),Y(I))
  46. 520  NEXT I
  47. 530  GOSUB 1000
  48. 535  IF D$="NN" OR D$="nn" THEN GOTO 580
  49. 540  LOCATE 10,16:PRINT "CASSIOPEIA"
  50. 541  LOCATE 12,40:PRINT "URSA MINOR"
  51. 542  LOCATE 23,25:PRINT "DRACO"
  52. 543  LOCATE 19,60:PRINT "URSA MAJOR"
  53. 580  LOCATE 25,1: INPUT A$
  54. 585  LOCATE 1,1:RUN
  55. 590  END
  56. 600  FOR I=124 TO 156
  57. 610  PSET (X(I),Y(I))
  58. 620  NEXT I
  59. 630  GOSUB 1000
  60. 635  IF D$="en" OR D$="EN" THEN GOTO 690
  61. 640  LOCATE 20,20:PRINT "LEO"
  62. 641  LOCATE 20,50:PRINT "HYDRA"
  63. 642  LOCATE  4,40:PRINT "GEMINI"
  64. 643  LOCATE 13,35:PRINT "CANCER"
  65. 690  LOCATE 25,1: INPUT A$
  66. 695  LOCATE 1,1:RUN
  67. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS FOR SPECIFIED TIME
  68. 1001  FOR I=1 TO 5000
  69. 1002  I=I+1
  70. 1003  NEXT I
  71. 1004  RETURN
  72. 5000  DATA 150,125,175,131,195,135,170,140,165,150,160,160
  73. 5001  DATA 140,170,170,170,180,175,200,165
  74. 5002  DATA 235,112,275,112,245,95,265,95,230,72,267,76,255,68
  75. 5003  DATA 210,67,195,62,210,57,240,98
  76. 5004  DATA 245,38,268,20,325,52,335,45,335,55,345,50,348,60,360,65
  77. 5005  DATA 360,75,415,70,380,30,382,29,384,28,382,33,386,32,388,30
  78. 5006  DATA 210,165,150,160,160,137,122,128,165,128,135,115,140,98,145,85
  79. 5007  DATA 165,82,160,72,315,185,300,175,273,172,273,165,311,155,303,163
  80. 5008  DATA 285,155,235,128,235,103,205,100,180,95,222,97,250,98,290,100
  81. 5009  DATA 305,95,310,87,320,70,250,82,260,80,265,72,345,188,350,172
  82. 5010  DATA 345,165,390,150,388,162,425,169,410,152,445,155,305,140,355,125
  83. 5011  DATA 345,103,330,105,315,108,310,105,345,85,350,55,365,90,385,88
  84. 5012  DATA 388,90,390,88,392,86,394,84,396,82
  85. 5013  DATA 169,68,160,52,200,58,200,50,225,50,262,184,250,182
  86. 5014  DATA 286,175,255,172,240,140,238,128,270,135,285,155,310,165
  87. 5015  DATA 332,170,355,170,375,145,390,120,405,110,332,137,310,135
  88. 5016  DATA 340,130,315,128,305,120,300,110,300,95,425,170,420,155
  89. 5017  DATA 435,147,440,133,465,130,465,110,440,107
  90. 5020  DATA 208,195,235,183,213,172,287,156,272,151,248,151,242,147
  91. 5021  DATA 244,135,260,132,330,130,320,118,310,110,284,107
  92. 5022  DATA 400,193,396,170,355,167,365,150,360,135,370,129,375,133
  93. 5023  DATA 380,131,375,125,315,45,310,63,325,75,363,70,375,80
  94. 5024  DATA 370,63,415,52,419,60,350,52,388,45,386,34
  95. 6000  RUN "MAINSTAR
  96.