home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 3
/
Merciful_Release_3.bin
/
software
/
b
/
blacksedv1.0.lha
/
BED
/
Rexx
/
RemoveBlankLines.bed
< prev
next >
Wrap
Text File
|
1996-01-28
|
327b
|
25 lines
/*
** $VER: RemoveBlankLines.bed 1.0 (02.01.96)
**
** Remove all empty lines from the current document
*/
OPTIONS RESULTS
SetDisplayLock ON
SetInputLock ON
MoveSOF
SetStatusBar "Removing blank lines..."
DO UNTIL RC ~= 0
GetChar
IF RC ~= 0 THEN DeleteLine; ELSE MoveDown
END
MoveSOF
SetInputLock OFF
SetDisplayLock OFF