home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
epm603b.zip
/
EPMSMP.ZIP
/
DELBLANK.E
< prev
next >
Wrap
Text File
|
1995-12-11
|
487b
|
25 lines
; A command to delete all blank lines in a file. EPM 6.0x only.
; by Larry Margolis
compile if not defined(SMALL)
defmain
'delblanklines'
compile endif
compile if EVERSION >= 6.03
defc delblanklines
0
display -2
getsearch save_search
do forever
'xcom l /^:o$/x'
if rc then leave; endif
delete
up
enddo
display 2
setsearch save_search
compile else
*** Error: Newer version of EPM is required.
compile endif