home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / MASTER8.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  702 b   |  27 lines
  1.      rem This is Master8 the Periodic Maintenance Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1025 PRINT clear$:PRINT
  6. 1030 PRINT "*** PERIODIC MAINTENANCE MENU ***":PRINT
  7. 2000 PRINT "1 - DO MONTHLY FILE MAINTENANCE"
  8. 2010 PRINT
  9. 2020 PRINT "2 - DO QUARTERLY FILE MAINTENANCE"
  10. 2030 PRINT
  11. 2040 PRINT "3 - DO YEARLY FILE MAINTENANCE"
  12. 2050 PRINT
  13. 2060 PRINT "4 - FINISHED"
  14. 3000 PRINT
  15. 3010 INPUT Z
  16. 3020 IF Z<1 OR Z>4 THEN 1025
  17. 4000 ON Z GOTO 9000,9050,9100,9150
  18. 9000 CHAIN "MMAINT"
  19. 9050 CHAIN "QMAINT"
  20. 9100 CHAIN "YMAINT"
  21. 9150 print clear$:print:print "Replace disk #5 in drive A"
  22.      print "Type return to continue."
  23.      input line temp$
  24.      initialize
  25.      chain "bizmii"
  26. 9800 GOTO 1025
  27.