home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmsmp.zip / DELBLANK.E < prev    next >
Text File  |  1995-12-11  |  487b  |  25 lines
  1. ; A command to delete all blank lines in a file.  EPM 6.0x only.
  2. ; by Larry Margolis
  3.  
  4. compile if not defined(SMALL)
  5. defmain
  6.       'delblanklines'
  7. compile endif
  8.  
  9. compile if EVERSION >= 6.03
  10. defc delblanklines
  11.    0
  12.    display -2
  13.    getsearch save_search
  14.    do forever
  15.       'xcom l /^:o$/x'
  16.       if rc then leave; endif
  17.       delete
  18.       up
  19.    enddo
  20.    display 2
  21.    setsearch save_search
  22. compile else
  23.    *** Error: Newer version of EPM is required.
  24. compile endif
  25.