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 / MAINMENU.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  76 lines
  1. *MAINMENU.PRG
  2. set talk off
  3. SET ESCAPE OFF
  4. SET DEFAULT TO B
  5. DO WHILE T
  6. USE
  7. SELECT PRIMARY
  8. USE
  9. SELECT SECONDARY
  10. USE
  11. SET DELETE ON
  12. SET PRINT OFF
  13. SET CONSOLE ON
  14. STORE DATE() TO DATED
  15. SET FORMAT TO SCREEN
  16. ERASE
  17. RESTORE FROM A:NAME ADDI
  18. @ 1,10 SAY'     MAIN MENU FOR DATAFLOW SMALL BUSINESS SYSTEM '
  19. STORE ((80-LEN(TRIM(LINE1)))/2)-5 TO PPOS
  20. @ 2,PPOS SAY 'FOR '+LINE1
  21. @ 4,30 SAY 'DATE ' GET DATED
  22. @ 5,4 SAY'PRESS THE KEY REQUIRED TO START THE PROCESSES LISTED'
  23. @ 6,0 SAY'------------------------------------------------------------------;
  24. ---------'
  25. ?'          1       ENTER ORDERS                            '
  26. ?'          2       PRINT ORDERS                          '
  27. ?'          3       ENTER BACKORDERS AND FREIGHT                '
  28. ?'          4       PRINT INVOICES                              '
  29. ?'          5       PRINT STATEMENTS                '
  30. ?'          6       FILE MAINTENANCE                       '
  31. ?'          7       CREDITS                         '
  32. ?'          8       GENERAL LEDGER                        '
  33. ?'          9       BACK ORDER MAINTENANCE                  '
  34. ?'          A       ENTER STOCK RECEIVED                                 '
  35. ?'          B       REPORTS                                    '
  36. ?'          C       INSTALLATION  '
  37. ?'                                                     '
  38. ?'          H       HELP '
  39. ?'          E       EXIT PROGRAM '
  40. ? '*************************************************************************'
  41. WAIT TO DEC
  42. STORE !(DEC) TO DEC
  43. SET ESCAPE ON
  44. DO CASE
  45.    CASE DEC='1'
  46. DO  A:WORDERS
  47.    CASE DEC='2'
  48. DO  A:PACK
  49.    CASE DEC='3'
  50. DO  A:MENU4
  51.    CASE DEC='4'
  52. DO  A:INVOICE
  53.    CASE DEC='5'
  54. DO  A:LEDGER
  55.    CASE DEC='6'
  56. DO  A:MENU7
  57.    CASE DEC='7'
  58. DO  A:MENU2
  59.    CASE DEC='8'
  60. DO A:MENU6
  61.    CASE DEC='9'
  62. DO  A:MENU5
  63.    CASE DEC='A'
  64. DO  A:STOCKIN
  65.    CASE DEC='B'
  66. DO  A:REPORTS
  67.    CASE DEC='C'
  68. DO  A:INSTALL
  69.    CASE DEC='H'
  70. DO  A:HELP
  71.    CASE DEC='E'
  72. ERASE
  73. QUIT
  74. ENDCASE
  75. ENDDO
  76. '          3                           EDI