home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / STARMAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  461 b   |  21 lines
  1. 10  REM PROGRAM NAME: STARMAP - OPTIONS MENU
  2. 50  SCREEN 0
  3. 101  KEY OFF
  4. 110  CLS
  5. 120  LOCATE  8,30:PRINT "ENTER PROGRAM OPTIONS HERE"
  6. 140  LOCATE 11,30:PRINT "OPTION (1) FOR STAR MAPS"
  7. 160  LOCATE 13,30:PRINT "OPTION (2) FOR CHALLENGE MAPS"
  8. 180  LOCATE 15,30:PRINT "OPTION (3) FOR QUICK-MAPS"
  9. 190  LOCATE 17,30:PRINT "OPTION (4) TO EXIT PROGRAM"
  10. 200  LOCATE 25,35:PRINT "OPTION:   "
  11. 220  LOCATE 25,43:INPUT A
  12. 250  CLS
  13. 300  IF A=1 THEN 600
  14. 310  IF A=2 THEN 700
  15. 320  IF A=3 THEN 800
  16. 330  IF A=4 THEN 900
  17. 600  CLOSE:RUN"MAINSTAR"
  18. 700  CLOSE:RUN"random
  19. 800  CLOSE: RUN"STAR3"
  20. 900  CLOSE:RUN"ENDMAP
  21.