home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / UE311CMD.ZIP / BUFDEL.CMD < prev    next >
OS/2 REXX Batch file  |  1990-06-19  |  1KB  |  47 lines
  1. set %obuff $cbufname
  2. set $discmd FALSE
  3. list-buffers
  4. select-buffer "[List]"
  5. end-of-file
  6. set %lline $curline
  7. beginning-of-file
  8. 4 next-line
  9. !while &less $curline %lline
  10.     beginning-of-line
  11.     22 forward-character
  12.     insert-string "=>"
  13.     update-screen
  14.     set $discmd TRUE
  15.     set %resp &upper @"Kill this buffer? (N/Y)"
  16.     set $discmd FALSE
  17.     set %resp &upper %resp
  18.     2 delete-previous-character
  19.     !if &sequal  "Y" &left %resp 1
  20.         set-mark
  21.         beginning-of-line
  22.         36 forward-character
  23.          backward-character    
  24.         !while &equal $curchar 32
  25.              backward-character    
  26.         !endwhile        
  27.         forward-character
  28.         open-line
  29.         exchange-point-and-mark
  30.         set %bname #[List]
  31.         !if ¬ &sequal %bname %obuff
  32.             delete-buffer %bname
  33.         !endif
  34.         delete-previous-character
  35.         beginning-of-line
  36.         4 forward-character
  37.         !if ¬ &sequal %bname %obuff
  38.             overwrite-string "DELETED"
  39.         !else
  40.             overwrite-string "Buffer is being displayed."
  41.     !endif
  42.     next-line
  43. !endwhile
  44. set $discmd TRUE
  45. delete-window
  46. select-buffer %obuff
  47.