program undbe; {Convert 'Decimal-Byte-Expansion' file back to a file of bytes}
var
	dbefile: text;
	bytefile: packed file of 0..255;
	b:integer;
begin
write(tty,'Input Decimal-Byte-Expanded file? ');
reset(dbefile,'':@); {User gets to give file name from terminal}
write(tty,'Output binary byte file? ');
rewrite(bytefile,'':@,'/B:8'); {ditto, also 8-bit bytes specified}
readln(dbefile); {Skip the identification line}
read(dbefile,b); {Get the first byte into b}
while b>-1 do begin
	write(bytefile,b);
	read(dbefile,b);
	end;
end.