$rc = open (1, "c:\somefile.bat",2)
$rc = open (2, "c:\somenewfile.bat", 5)
;
$line = readline (1)
;
While @error = 0
	if $line <> "contents of the line to beremoved"
		$rc = writeline (2, $line + @crlf)
	else
		?$line + " has not been written to the new file."
	endif
	$line = Readline (1)
loop
;
$rc = close(1)
$rc = close(2)
;
move "c:\somefile.bat" "c:\somefile.old"
move "c:\somenewfile.bat" "c:\somefile.bat"