home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / MASTER6.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  1.5 KB  |  48 lines
  1.      rem This is Master6 the Mailing List Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1025 PRINT clear$:PRINT
  6. 1030 PRINT "*** MAILING LIST MENU ***":PRINT
  7. 2000 PRINT "1 - UPDATE MAILING LIST"
  8. 2010 PRINT
  9. 2020 PRINT "2 - PRINT MAILING LABELS"
  10. 2030 PRINT
  11. 2040 PRINT "3 - PRINT CUSTOMER LABELS"
  12. 2050 PRINT
  13. 2060 PRINT "4 - PRINT VENDOR LABELS"
  14. 2070 PRINT
  15. 2080 PRINT "5 - PRINT EMPLOYEE LABELS"
  16. 2090 PRINT
  17. 2100 PRINT "6 - FINISHED"
  18. 3000 PRINT
  19. 3010 INPUT Z
  20. 3020 IF Z<1 OR Z>6 THEN 1025
  21. 4000 ON Z GOTO 9000,9050,9100,9150,9200,9250
  22. 9000    print clear$:print
  23.     print "Install appropriate Mailing List disk in Drive B:"
  24.     print:input "Type return to continue.";line temp$:initialize
  25.     chain "MAENTRY"
  26. 9050    print clear$:print
  27.     print "Install appropriate Mailing List disk in Drive B:"
  28.     print:input "Type return to continue.";line temp$:initialize
  29.     chain "MALABELS"
  30. 9100    print clear$:print
  31.     print "Install appropriate Customer Information disk in Drive B:"
  32.     print:input "Type return to continue.";line temp$:initialize
  33.     chain "CRLABELS"
  34. 9150    print clear$:print
  35.     print "Install appropriate Vendor Information disk in Drive B:"
  36.     print:input "Type return to continue.";line temp$:initialize
  37.     chain "VPLABELS"
  38. 9200    print clear$:print
  39.     print "Install appropriate Employee Information disk in Drive B:"
  40.     print:input "Type return to continue.";line temp$:initialize
  41.     chain "EPLABELS"
  42. 9250 print clear$:print:print "Replace program disk #5 in drive A."
  43.      print "Type return to continue."
  44.      input line temp$
  45.      initialize
  46.      chain "bizmii"
  47. 9800 GOTO 1025
  48.