home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / MASTER9.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  752 b   |  26 lines
  1.      rem This is Master9 the General Ledger Heading Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1025 PRINT clear$:PRINT:PRINT
  6. 2000 PRINT "1 - CHANGE GENERAL LEDGER HEADINGS"
  7. 2005 PRINT
  8. 2010 PRINT "2 - CHANGE GENERAL LEDGER SUBHEADINGS"
  9. 2015 PRINT
  10. 2020 PRINT "3 - FINISHED"
  11. 3000 PRINT
  12. 3010 INPUT Z
  13. 3020 IF Z<1 OR Z>3 THEN 1025
  14. 4000 ON Z GOTO 9000,9050,9100
  15. 9000    print clear$:print
  16.     print "Install appropriate General Ledger disk in Drive B:"
  17.     print:input "Type return to continue.";line temp$:initialize
  18.     chain "GLHENTRY"
  19. 9050    print clear$:print
  20.     print "Install appropriate General Ledger disk in Drive B:"
  21.     print:input "Type return to continue.";line temp$:initialize
  22.     chain "GLSENTRY"
  23. 9100     initialize
  24.     CHAIN "MASTER7"
  25. 9800 GOTO 1025
  26.