home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAINSTAR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  888 b   |  36 lines
  1. 5  REM PROGRAM MAINSTAR: MENU FOR 12 MONTHS
  2. 6  SCREEN 0
  3. 10  KEY OFF
  4. 20  DIM M$(3)
  5. 25  CLS
  6. 30  LOCATE 10,20:PRINT "ENTER MONTH OF YEAR USING FIRST THREE LETTERS"
  7. 35  LOCATE 12,20:PRINT "       ENTER 'END' TO RETURN TO MAIN MENU"
  8. 40  LOCATE 14,20:PRINT"                   OPTION: ":LOCATE 14,45:INPUT M$
  9. 50  CLS
  10. 100  IF M$="JAN" OR M$="jan" THEN 500
  11. 110  IF M$="FEB" OR M$="feb" THEN 600
  12. 120  IF M$="MAR" OR M$="mar" THEN 700
  13. 130  IF M$="APR" OR M$="apr" THEN 800
  14. 140  IF M$="MAY" OR M$="may" THEN 900
  15. 150  IF M$="JUN" OR M$="jun" THEN 1000
  16. 160  IF M$="JUL" OR M$="jul" THEN 1100
  17. 170  IF M$="AUG" OR M$="aug" THEN 1200
  18. 180  IF M$="SEP" OR M$="sep" THEN 1300
  19. 190  IF M$="OCT" OR M$="oct" THEN 1400
  20. 200  IF M$="NOV" OR M$="nov" THEN 1500
  21. 210  IF M$="DEC" OR M$="dec" THEN 1600
  22. 220  IF M$="END" OR M$="end" THEN 1700
  23. 500  CLOSE:RUN "JANMAP
  24. 600  CLOSE:RUN "FEBMAP
  25. 700  CLOSE:RUN "MARMAP
  26. 800  CLOSE:RUN "APRMAP
  27. 900  CLOSE:RUN "MAYMAP
  28. 1000  CLOSE:RUN "JUNMAP
  29. 1100  CLOSE:RUN "JULMAP
  30. 1200  CLOSE:RUN "AUGMAP
  31. 1300  CLOSE:RUN "SEPMAP
  32. 1400  CLOSE:RUN "OCTMAP
  33. 1500  CLOSE:RUN "NOVMAP
  34. 1600  CLOSE:RUN "DECMAP
  35. 1700  CLOSE:RUN "STARMAP
  36.