home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug077.arc / MENU.LBR / COPY.CMD next >
OS/2 REXX Batch file  |  1979-12-31  |  512b  |  44 lines
  1. quit to 'copy b:=a:','dbase redo'
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23. us on the screen
  24. *
  25. *  It uses the menu data base
  26. *
  27. use menu index menu
  28. set talk off
  29. set intensity off
  30. store 'MAIN    ' to cur:name
  31. *
  32. *  The following loop is executed once for each menu screen
  33. *
  34. do while 1=1
  35.   erase
  36.   store cur:name+'00' to search:key
  37.   find &search:key
  38.   store trim (desc) to tdescr
  39.   store len (tdescr) to x
  40.   store x/2 to x
  41.   store 40-x to x
  42.   @ 2,x say desc
  43. *
  44. *  the following loop is execut