home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / MASTER4.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  2.0 KB  |  60 lines
  1.      rem This is Master4 the Inventory Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1025 PRINT clear$:PRINT
  6. 1030 PRINT "*** FINISHED / CAPITAL / RAW GOODS INVENTORY MENU ***":PRINT
  7. 2000 PRINT "1 - UPDATE FINISHED GOODS INVENTORY"
  8. 2010 PRINT
  9. 2020 PRINT "2 - UPDATE RAW GOODS INVENTORY"
  10. 2030 PRINT
  11. 2040 PRINT "3 - PRINT FINISHED GOODS REPORT"
  12. 2050 PRINT
  13. 2060 PRINT "4 - PRINT RAW GOODS REPORT"
  14. 2070 PRINT
  15. 2080 PRINT "5 - PRINT FINISHED GOODS ALERT"
  16. 2090 PRINT
  17. 2100 PRINT "6 - PRINT RAW GOODS ALERT"
  18. 2110 PRINT
  19. 2120 PRINT "7 - FIXED ASSET OPERATIONS"
  20. 2130 PRINT
  21. 2140 PRINT "8 - FINISHED"
  22. 3000 PRINT
  23. 3010 INPUT Z
  24. 3020 IF Z<1 OR Z>8 THEN 1025
  25. 4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350
  26. 9000    print clear$:print
  27.     print "Install appropriate Finished Goods disk in Drive B:"
  28.     print:input "Type return to continue.";line temp$:initialize
  29.     chain "FGENTRY"
  30. 9050    print clear$:print
  31.     print "Install appropriate Raw Goods disk in Drive B:"
  32.     print:input "Type return to continue.";line temp$:initialize
  33.     chain "RGENTRY"
  34. 9100    print clear$:print
  35.     print "Install appropriate Finished Goods disk in Drive B:"
  36.     print:input "Type return to continue.";line temp$:initialize
  37.     chain "FGRPT"
  38. 9150    print clear$:print
  39.     print "Install appropriate Raw Goods disk in Drive B:"
  40.     print:input "Type return to continue.";line temp$:initialize
  41.     chain "RGRPT"
  42. 9200    print clear$:print
  43.     print "Install appropriate Finished Goods disk in Drive B:"
  44.     print:input "Type return to continue.";line temp$:initialize
  45.     chain "FGALERT"
  46. 9250    print clear$:print
  47.     print "Install appropriate Raw Goods disk in Drive B:"
  48.     print:input "Type return to continue.";line temp$:initialize
  49.     chain "RGALERT"
  50. 9300    print clear$:print
  51.     print "Install appropriate Capital Goods disk in Drive B:"
  52.     print:input "Type return to continue.";line temp$:initialize
  53.     chain "MASTER16"
  54. 9350 print clear$:print:print "Replace program disk #5 in drive A."
  55.      print "Type return to continue."
  56.      input line temp$
  57.      initialize
  58.      chain "bizmii"
  59. 9800 GOTO 1025
  60.