home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / APRMAP.BAS (.txt) next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.7 KB  |  95 lines
  1. 5  REM MAP FOR APRIL 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 154
  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 31
  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 2,48:PRINT "LEO"
  26. 346  LOCATE 14,51:PRINT "HYDRA"
  27. 348  LOCATE 7,27:PRINT "VIRGO"
  28. 355  LOCATE 25,1: INPUT A$
  29. 360  LOCATE 1,1:RUN
  30. 440  END
  31. 450  FOR I=32 TO 82
  32. 455  PSET (X(I),Y(I))
  33. 460  NEXT I
  34. 461  IF D$="WN" OR D$= "wn" THEN GOTO 470
  35. 462  GOSUB 1000
  36. 464  LOCATE  4,44:PRINT "CANCER"
  37. 465  LOCATE 15,17:PRINT "CANIS MAJOR"
  38. 466  LOCATE 16,35:PRINT "ORION"
  39. 467  LOCATE 10,51:PRINT "GEMINI"
  40. 468  LOCATE 17,55:PRINT "TAURUS"
  41. 470  LOCATE 25,1: INPUT A$
  42. 480  LOCATE 1,1:RUN
  43. 490  END
  44. 500  FOR I=83 TO 116
  45. 510  PSET (X(I),Y(I))
  46. 520  NEXT I
  47. 540  GOSUB 1000
  48. 545  IF D$="NN" OR D$= "nn" THEN GOTO 580
  49. 550  LOCATE 15,25:PRINT "CASSIOPEIA"
  50. 551  LOCATE 3,32:PRINT "URSA MAJOR"
  51. 552  LOCATE 11,35:PRINT "URSA MINOR"
  52. 553  LOCATE 19,55:PRINT "DRACO"
  53. 580  LOCATE 25,1: INPUT A$
  54. 585  LOCATE 1,1:RUN
  55. 590  END
  56. 600  FOR I=117 TO 154
  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 21,31:PRINT "HERCULES"
  62. 641  LOCATE 17,57:PRINT "LIBRA"
  63. 642  LOCATE  7,52:PRINT "COMA BERENICES"
  64. 643  LOCATE 16,37:PRINT "CORONA BOREALIS"
  65. 644  LOCATE 12,52:PRINT "BOOTES"
  66. 690  LOCATE 25,1: INPUT A$
  67. 695  LOCATE 1,1:RUN
  68. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  69. 1001  FOR I=1 TO 5000
  70. 1002  I=I+1
  71. 1003  NEXT I
  72. 1004  RETURN
  73. 5000  DATA 140,140,260,150,310,112,352,104,397,94,388,80,380,76,415,68
  74. 5001  DATA 443,55,460,45,470,46,475,48,470,43,480,45,130,28,130,48,165,76
  75. 5002  DATA 145,90,198,76,230,70,235,32,275,34,276,20,338,22,345,15,363,10
  76. 5003  DATA 375,16,352,34,354,44,385,47,325,53
  77. 5004  DATA 223,38,250,43,265,44,293,33,285,92,308,85,315,67,338,68,374,82
  78. 5005  DATA 310,96,308,115,290,114,330,114,347,116,122,135,133,145,123,155
  79. 5006  DATA 135,175,145,144,185,146,187,135,190,160,240,166,269,183,282,164
  80. 5007  DATA 285,165,288,166,300,142,317,159,320,153,325,152,321,151
  81. 5008  DATA 314,180,320,182,330,180,338,182,345,175,350,168,385,168
  82. 5009  DATA 393,173,399,179,398,186,405,172,406,168,405,126,365,135,446,168
  83. 5010  DATA 445,170,443,172,451,169,453,170
  84. 5011  DATA 230,139,230,151,247,153,248,167,267,166,315,100,330,100
  85. 5012  DATA 358,98,375,93,385,96,380,81,395,85,340,50,362,60,410,62
  86. 5013  DATA 456,76,455,85,450,95,430,108,390,116,381,134,400,134,450,135
  87. 5014  DATA 470,130,475,123,490,124,482,136,336,20,332,35,376,20
  88. 5015  DATA 385,30,412,33,430,39,468,28
  89. 5016  DATA 495,181,426,181,417,163,465,157,251,118,260,117,266,120,265,127
  90. 5017  DATA 255,130,250,130,238,129,241,152,241,183,207,164,206,141
  91. 5018  DATA 195,150,190,135,165,145,123,140,133,155,168,109,361,91
  92. 5019  DATA 356,115,345,98,295,93,296,104,255,82,250,107,232,90
  93. 5020  DATA 380,70,327,62,341,42,347,44,348,43,349,42,350,44,351,43,352,44
  94. 6000  RUN"MAINSTAR
  95.