home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug089.ark / MASTER2.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.3 KB  |  66 lines
  1.      rem This is Master2 The Accounts Receivable/Customer Menu
  2.  
  3. %INCLUDE ALL
  4.      RESTORE
  5. 1025 PRINT clear$:PRINT
  6. 1030 PRINT "*** SALES ORDER ENTRY / CUSTOMER RECEIVABLES MENU ***"
  7. 1035 PRINT
  8. 2000 PRINT "1 - ENTER NEW CUSTOMER INFORMATION"
  9. 2005 PRINT
  10. 2010 PRINT "2 - ENTER CUSTOMER ORDERS"
  11. 2015 PRINT
  12. 2020 PRINT "3 - LIST CUSTOMER ORDERS"
  13. 2025 PRINT
  14. 2030 PRINT "4 - PRINT PLAIN PAPER (FORMATTED) INVOICES"
  15. 2035 PRINT
  16. 2040 PRINT "5 - PRINT PRE-PRINTED INVOICES"
  17. 2045 PRINT
  18. 2050 PRINT "6 - POST ORDERS TO GENERAL LEDGER"
  19. 2055 PRINT
  20. 2060 PRINT "7 - PRINT AGED ACCOUNTS RECEIVABLE REPORT"
  21. 2065 PRINT
  22. 2070 PRINT "8 - PRINT CUSTOMER LABELS"
  23. 2075 PRINT
  24. 2080 PRINT "9 - FINISHED"
  25. 3000 PRINT
  26. 3010 INPUT Z
  27. 3020 IF Z<1 OR Z>9 THEN 1025
  28. 4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400
  29. 9000    print clear$:print
  30.     print "Install appropriate Customer Information disk in Drive B:"
  31.     print:Input "Type return to continue.";line temp$:initialize
  32.     chain "CRENTRY"
  33. 9050    print clear$:print
  34.     print "Install appropriate Invoice Register disk in Drive B:"
  35.     print "This file should be on a separate disk from the Customer"
  36.     print "Information disk."
  37.     print:Input "Type return to continue.";line temp$:initialize
  38.     chain "CRJOTRAN"
  39. 9100    print clear$:print
  40.     print "Install appropriate Customer Information disk in Drive B:"
  41.     print:Input "Type return to continue.";line temp$:initialize
  42.     chain "CRJOLIST"
  43. 9150    print clear$:print
  44.     print "Install appropriate Customer Information disk in Drive B:"
  45.     print:Input "Type return to continue.";line temp$:initialize
  46.     chain "CRFMINV"
  47. 9200    print clear$:print
  48.     print "Install appropriate Customer Information disk in Drive B:"
  49.     print:Input "Type return to continue.";line temp$:initialize
  50.     chain "CRPPINV"
  51. 9250 CHAIN "CRJOPOST"
  52. 9300    print clear$:print
  53.     print "Install appropriate Customer Information disk in Drive B:"
  54.     print:Input "Type return to continue.";line temp$:initialize
  55.     chain "CRRPT"
  56. 9350    print clear$:print
  57.     print "Install appropriate Customer Information disk in Drive B:"
  58.     print:Input "Type return to continue.";line temp$:initialize
  59.     chain "CRLABELS"
  60. 9400 print clear$:print:print "Replace disk #5 in drive A."
  61.      print "Type return to continue."
  62.      input line temp$
  63.      initialize
  64.      chain "bizmii"
  65. 9800 GOTO 1025
  66.