// I, Danny Milosavljevic, hereby release this code into the public domain.
uses classes, ASCII85;

var
  vDecoder : ASCII85.TDecoder;
  vInputStream : TStream;
  vItem : Byte;
begin
  vInputStream := TFileStream.Create('test_ASCII85_data', fmOpenRead);
  vDecoder := ASCII85.TDecoder.Create(vInputStream);
  
  while True do begin
    vItem := vDecoder.ReadByte();
    Write(Chr(vItem));
  end;
  Writeln('');
end.