home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / log / hamsys / mmenu.bas < prev   
BASIC Source File  |  1987-01-02  |  1KB  |  46 lines
  1. 10 ' MMENU TO GET STARTED
  2. 15 'CHANGE DATE - 1/1/87
  3. 20 CLS
  4. 30 PRINT "                 Menu - Page 1"
  5. 40 PRINT
  6. 50 PRINT "Enter your selection"
  7. 60 PRINT
  8. 70 PRINT "1 - Enter data to the log"
  9. 80 PRINT "2 - Edit a log that exists"
  10. 90 PRINT "3 - Renumber/merge files"
  11. 100 PRINT "4 - Contest program"
  12. 110 PRINT "5 - Print mailing labels"
  13. 120 PRINT "6 - Run the configuration program"
  14. 130 PRINT "9 - Return to DOS"
  15. 140 PRINT "0 - Menu Page 2"
  16. 150 PRINT
  17. 160 PRINT "==>";
  18. 170 O$=INKEY$: IF O$ ="" GOTO 170
  19. 180 IF O$= "1" THEN RUN "HAMBLD"
  20. 190 IF O$= "2" THEN RUN "HAMEDIT"
  21. 200 IF O$= "3" THEN RUN "HAMFILED"
  22. 210 IF O$= "4" THEN RUN "HAMCNTST"
  23. 220 IF O$= "5" THEN RUN "HAMprint"
  24. 230 IF O$= "6" THEN RUN "HAMCNFG"
  25. 240 IF O$ ="9" THEN SYSTEM
  26. 250 IF O$<> "0" GOTO 20
  27. 260 CLS
  28. 270 PRINT "                 Menu - Page 2"
  29. 280 PRINT
  30. 290 PRINT "Enter your selection"
  31. 300 PRINT
  32. 310 PRINT "1 - Check the sequence of QSO numbers"
  33. 320 PRINT "2 - Look at entire file without formatting"
  34. 330 PRINT "3 - Manually merge files"
  35. 340 PRINT "9 - Return to DOS"
  36. 350 PRINT "0 - Return to Menu Page 1"
  37. 360 PRINT
  38. 370 PRINT "==>";
  39. 380 O$=INKEY$: IF O$ ="" GOTO 380
  40. 390 IF O$= "1" THEN RUN "HAMSEQ"
  41. 400 IF O$= "2" THEN RUN "HAMDISP"
  42. 410 IF O$= "3" THEN RUN "MANFIX"
  43. 420 IF O$= "0" THEN GOTO 20
  44. 430 IF O$ ="9" THEN SYSTEM
  45. 440 GOTO 380
  46.