home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAYMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.7 KB  |  97 lines
  1. 5  REM MAP FOR MAY 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 147
  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 35
  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 9,22:PRINT "VIRGO"
  26. 346  LOCATE  3,20:PRINT "COMA BERENICES"
  27. 348  LOCATE 18,55:PRINT "HYDRA"
  28. 350  LOCATE  7,55:PRINT "LEO"
  29. 351  LOCATE 20,21:PRINT "LIBRA"
  30. 355  LOCATE 25,1:INPUT A$
  31. 360  LOCATE 1,1:RUN
  32. 440  END
  33. 450  FOR I=36 TO 66
  34. 455  PSET (X(I),Y(I))
  35. 460  NEXT I
  36. 462  GOSUB 1000
  37. 464  IF D$= "WN" OR D$= "wn" THEN GOTO 470
  38. 466  LOCATE 17,22:PRINT "HYDRA"
  39. 467  LOCATE  5,40:PRINT "LEO"
  40. 468  LOCATE 13,55:PRINT "GEMINI"
  41. 470  LOCATE 25,1:INPUT A$
  42. 480  LOCATE 1,1:RUN
  43. 490  END
  44. 500  FOR I=67 TO 101
  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 21,46:PRINT "CASSIOPEIA"
  50. 551  LOCATE 3,53:PRINT "URSA MAJOR"
  51. 552  LOCATE 10,30:PRINT "URSA MINOR"
  52. 553  LOCATE 15,55:PRINT "DRACO"
  53. 580  LOCATE 25,1: INPUT A$
  54. 585  LOCATE 1,1:RUN
  55. 590  END
  56. 600  FOR I=102 TO 147
  57. 610  PSET (X(I),Y(I))
  58. 620  NEXT I
  59. 625  LOCATE 14,22:PRINT CHR$(4)
  60. 630  GOSUB 1000
  61. 635  IF D$="EN" OR D$="en" THEN GOTO 690
  62. 640  LOCATE 18,30:PRINT "OPHIUCHUS"
  63. 641  LOCATE 12,55:PRINT "SERPENS"
  64. 642  LOCATE  9,20:PRINT "HERCULES"
  65. 643  LOCATE  8,45:PRINT "CORONA BOREALIS"
  66. 644  LOCATE  2,35:PRINT "BOOTES"
  67. 645  LOCATE 14,15:PRINT "VEGA"
  68. 690  LOCATE 25,1: INPUT A$
  69. 695  LOCATE 1,1:RUN
  70. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  71. 1001  FOR I=1 TO 5000
  72. 1002  I=I+1
  73. 1003  NEXT I
  74. 1004  RETURN
  75. 5000  DATA 153,142,165,121,130,106,121,123,212,138,268,133,377,151
  76. 5001  DATA 441,115,466,119,482,108,509,107,255,103,245,75,290,67,283,48
  77. 5002  DATA 305,75,335,75,368,70,368,38,410,33,409,17,465,13,466,3
  78. 5003  DATA 490,15,496,22,475,40,268,30,270,3,320,5,317,9,319,9
  79. 5004  DATA 321,9,318,11,320,11,319,13
  80. 5005  DATA 357,190,380,169,415,167,408,165,380,152,405,152,376,122
  81. 5006  DATA 395,120,435,134,370,141,355,150,135,105,174,118,189,105
  82. 5007  DATA 224,110,250,117,258,121,257,127,246,128,243,124,233,89
  83. 5008  DATA 229,74,194,61,245,70,255,60,271,60,290,66,289,74
  84. 5009  DATA 211,31,241,29,203,10
  85. 5010  DATA 278,160,285,168,305,167,314,178,331,170,312,97,340,98
  86. 5011  DATA 358,93,362,80,377,80,358,69,374,67,290,51,315,53,362,43
  87. 5012  DATA 419,46,435,54,430,63,427,78,396,97,405,115,425,110,472,88
  88. 5013  DATA 469,76,490,77,495,84,505,75,510,82,374,8,368,19,329,20
  89. 5014  DATA 301,21,285,15,257,25,267,38
  90. 5015  DATA 302,193,346,185,390,184,428,180,445,167,444,144,433,128
  91. 5016  DATA 432,124,444,110,415,104,413,96,403,88,379,88,365,88,353,88
  92. 5017  DATA 375,96,360,82,353,135,345,156,324,141,242,100,325,101
  93. 5018  DATA 278,93,266,103,278,115,264,90,247,85,225,63,237,101,208,115
  94. 5019  DATA 182,96,318,63,329,64,338,70,337,75,332,79,320,81,309,78
  95. 5020  DATA 411,25,396,39,420,50,345,38,355,49,315,55,310,35,290,43
  96. 6000  RUN "MAINSTAR
  97.