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 / MAINTAIN.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  37 lines
  1. *MAINTAIN.PRG
  2. * A PROGRAM TO ADD OR DELETE DATA FROM RECORDS
  3. DO WHILE T
  4. SET CONSOLE ON
  5. ERASE
  6. RELEASE ALL
  7. @ 1,0 SAY '*******************************************************************'
  8. @ 2,0 SAY '        A PROGRAM TO ALTER DATA BASE FILES'
  9. @ 3,0
  10. @ 4,0 SAY '    PRESS THE KEY REQUIRED TO ENTER THE APPROPRIATE ACTION'
  11. @ 5,0
  12. @ 6,0 SAY '         1 =  TO ADD A NEW RECORD TO A FILE'
  13. @ 7,0 SAY '         2 =  TO EDIT, OR UPDATE A FILE'
  14. @ 8,0 SAY '                                                               '
  15. @ 9,0 SAY '                                                               '
  16. @ 10,0 SAY '          R =  RETURN TO MAIN MENU'
  17. @ 15,0 SAY '******************************************************************'
  18. SET CONSOLE OFF
  19. SET TALK  ON
  20. WAIT TO DEC
  21. STORE !(DEC) TO DEC
  22. SET CONSOLE ON
  23. DO CASE
  24. CASE DEC='1'
  25. DO a:ADD
  26. CASE DEC='2'
  27. DO A:EDIT1
  28. CASE DEC='R'
  29. SET TALK OFF
  30. RETURN
  31. ENDCASE
  32. ENDDO
  33. RETURN
  34. ********************************************************'
  35. WAIT TO DEC
  36. STORE !(DEC) TO DEC
  37. S