home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / MENU.LBR / REDO.CMD < prev   
OS/2 REXX Batch file  |  1979-12-31  |  512b  |  41 lines
  1. set default to b
  2. * insert other initialization here
  3. do menu
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23. = cur:name) .and. (.not. eof)
  24.     if .not. *
  25.       @ line, 2 say seq
  26.       @ line, 5 say desc
  27.       store line + 1 to line
  28.     endif
  29.     skip
  30.   enddo
  31. *
  32.   store '??' to cur:seq
  33.   @ line+1, 0 say 'Enter your choice ->' get cur:seq
  34.   read
  35.   if cur:seq = 'GO' .or. cur:seq = 'go'
  36.     erase
  37.     store '        ' to cur:name
  38.     @ 2,10 say "Enter menu name " get cur:name
  39.     loop
  40.   endif
  41.   store