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 / MBUG / MBUG102.ARC / MENU2.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  768b  |  27 lines
  1. *MENU2.PRG
  2. *PROGRAM FOR INSERTING DATA AFFECTING SALES I.E. CHEQUES R.F.C. ETC.
  3. DO WHILE T
  4. ERASE
  5. ? '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
  6. ?
  7. ?
  8. ? '           MENU FOR CREDITS AFFECTING SALES                              '
  9. ?
  10. ?
  11. ? '            1    TO ENTER RECEIPTS                                        '
  12. ? '            2    TO ENTER RETURNS FOR CREDIT                              '
  13. ? '            R    TO RETURN'
  14. ? '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
  15. WAIT TO DEC
  16. STORE !(DEC) TO DEC
  17. DO CASE
  18. CASE DEC='1'
  19. DO A:CHEQCRED
  20. CASE DEC='2'
  21. DO A:RFCREDIT
  22. CASE DEC='R'
  23. RETURN
  24. ENDCASE
  25. ENDDO
  26. RETURN
  27.