To elaborate:
/* cat.p
*
*/
define variable xline as character no-undo.
do while true:
import unformatted xline.
put unformatted xline skip.
end.
And then run it like so:
_progres -1 -b -p cat.p < infile > outfile
or (for example):
cat cat.p | _progres -1 -b -p cat.p | grep unformatted