home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG089.ARK / MASTER3.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  64 lines
  1.      rem This is Master3 The Accounts Payable/Vendor Menu
  2.  
  3. %INCLUDE ALL.BAS
  4. 1025 PRINT clear$:PRINT
  5. 1030 PRINT "*** PURCHASE ORDER ENTRY / VENDOR PAYABLES MENU ***":PRINT
  6. 2000 PRINT "1 - ENTER NEW VENDOR INFORMATION"
  7. 2005 PRINT
  8. 2010 PRINT "2 - ENTER PURCHASE ORDERS"
  9. 2015 PRINT
  10. 2020 PRINT "3 - LIST PURCHASE ORDERS"
  11. 2025 PRINT
  12. 2030 PRINT "4 - PRINT PLAIN PAPER (FORMATTED) PURCHASE ORDERS"
  13. 2035 PRINT
  14. 2040 PRINT "5 - PRINT PRE-PRINTED PURCHASE ORDERS"
  15. 2045 PRINT
  16. 2050 PRINT "6 - POST PURCHASE ORDERS TO GENERAL LEDGER"
  17. 2055 PRINT
  18. 2060 PRINT "7 - PRINT AGED ACCOUNTS PAYABLE REPORT"
  19. 2065 PRINT
  20. 2070 PRINT "8 - PRINT VENDOR LABELS"
  21. 2075 PRINT
  22. 2080 PRINT "9 - FINISHED"
  23. 3000 PRINT
  24. 3010 INPUT Z
  25. 3020 IF Z<1 OR Z>9 THEN 1025
  26. 4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400
  27. 9000    print clear$:print
  28.     print "Install appropriate Vendor Information disk in Drive B:"
  29.     print:Input "Type return to continue.";line temp$:initialize
  30.     chain "VPENTRY"
  31. 9050    print clear$:print
  32.     print "Install appropriate Pur Order Register disk in Drive B:"
  33.     print "This file should be on a separate disk from the Vendor"
  34.     print "Information disk."
  35.     print:Input "Type return to continue.";line temp$:initialize
  36.     chain "VPJOTRAN"
  37. 9100    print clear$:print
  38.     print "Install appropriate Vendor Information disk in Drive B:"
  39.     print:Input "Type return to continue.";line temp$:initialize
  40.     chain "VPJOLIST"
  41. 9150    print clear$:print
  42.     print "Install appropriate Vendor Information disk in Drive B:"
  43.     print:Input "Type return to continue.";line temp$:initialize
  44.     chain "VPFMPO"
  45. 9200    print clear$:print
  46.     print "Install appropriate Vendor Information disk in Drive B:"
  47.     print:Input "Type return to continue.";line temp$:initialize
  48.     chain "VPPPPO"
  49. 9250 CHAIN "VPJOPOST"
  50. 9300    print clear$:print
  51.     print "Install appropriate Vendor Information disk in Drive B:"
  52.     print:Input "Type return to continue.";line temp$:initialize
  53.     chain "VPRPT"
  54. 9350    print clear$:print
  55.     print "Install appropriate Vendor Information disk in Drive B:"
  56.     print:Input "Type return to continue.";line temp$:initialize
  57.     chain "VPLABELS"
  58. 9400 print clear$:print:print "Replace disk #5 in drive A."
  59.      print "Type return to continue."
  60.      input line temp$
  61.      initialize
  62.      chain "bizmii"
  63. 9800 GOTO 1025
  64.