home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug090.ark / MASTER12.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  969b  |  29 lines
  1.      rem This is Master12 the Check-Cash Reciepts-Disbursements Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1020 CONSOLE  
  6. 1025 PRINT clear$:PRINT
  7. 1030 PRINT "*** CHECK-CASH RECEIPTS MENU ***":PRINT
  8. 2000 PRINT "1 - ENTER CHECK RECEIPTS"               REM:GLCKTRAN
  9. 2010 PRINT
  10. 2020 PRINT "2 - POST CHECK RECEIPTS JOURNAL"        REM:GLCKPOST
  11. 2030 PRINT
  12. 2080 PRINT "3 - FINISHED"                           REM:MASTER1
  13. 3000 PRINT
  14. 3010 INPUT Z
  15. 3020 IF Z<1 OR Z>3 THEN 1025
  16. 4000 ON Z GOTO 9000,9050,9100
  17. 9000    print clear$:print
  18.     print "Install appropriate Check Receipts disk in Drive B:"
  19.     print "This file should be on a separate disk from the General Ledger."
  20.     print:Input "Type return to continue.";line temp$:initialize
  21.     chain "GLCKTRAN"
  22. 9050    print clear$:print
  23.     print "Install appropriate General Ledger disk in Drive B:"
  24.     print:Input "Type return to continue.";line temp$:initialize
  25.     chain "GLCKPOST"
  26. 9100 initialize
  27.     CHAIN "MASTER1"
  28. 9600 GOTO 1025
  29.