% encode.ps - Don Yang (uguu.org)
%
% binary -> base85 encoder
%
% Usage:
%  gs -q encode.ps < input.bin > output.txt
%
% 09/19/08

% Open output and input
(%stdout) (w) file /ASCII85Encode filter
(%stdin) (r) file

% Encode input to output
{
   dup 65535 string readstring exch
   3 index exch writestring
   not {exit} if
} loop

% Close output
closefile
closefile
quit