home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / STAR3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  808 b   |  25 lines
  1. 100  REM PROGRAM STAR3: MINI-MAP WITH CONSTELLATIONS IN MOTION - MENU
  2. 101  KEY OFF
  3. 110  CLS
  4. 120  SCREEN 0
  5. 150  LOCATE  5,20:PRINT "ENTER NUMBER TO OBSERVE CONSTELLATIONS YEAR-ROUND"
  6. 160  LOCATE  8,25:PRINT " (1)    URSA MAJOR AND CASSIOPEIA"
  7. 170  LOCATE 10,25:PRINT " (2)    VEGA, BOOTES AND CORONA BOREALIS"
  8. 180  LOCATE 12,25:PRINT " (3)    ORION AND GEMINI"
  9. 181  LOCATE 14,25:PRINT " (4)    TAURUS AND PLEIADES"
  10. 182  LOCATE 16,25:PRINT " (5)    ANDROMEDA (OUR CLOSEST GALAXEY)"
  11. 183  LOCATE 18,25:PRINT " (6)    CYGNUS (THE NORTHERN CROSS)"
  12. 184  LOCATE 20,25:PRINT " (7)    URSA MINOR AND THE NORTH STAR"
  13. 195  LOCATE 22,25:PRINT " (8)    TO RETURN TO MENU"
  14. 200  LOCATE 25,30:PRINT " ENTER OPTION NUMBER __"
  15. 210  LOCATE 25,50:INPUT A
  16. 250  CLS
  17. 300  IF A=1 THEN RUN "MINIMAP1
  18. 310  IF A=2 THEN RUN "MINIMAP2
  19. 320  IF A=3 THEN RUN "MINIMAP3
  20. 322  IF A=4 THEN RUN "MINIMAP4
  21. 326  IF A=5 THEN RUN "MINIMAP5
  22. 328  IF A=6 THEN RUN "MINIMAP6
  23. 330  IF A=7 THEN RUN "MINIMAP7
  24. 340  IF A=8 THEN RUN "STARMAP
  25.