program prsegfile(inseg,input,output);
imports code from code;
type chrblock=packed array[0..511] of char;
var inseg:segfiletype;
    i,j,k:integer;
    byte:chrblock;
    objname,outname:fnstring;
{ *auto-}
begin
writeln('enter name of file to dump');
reset(input);
readln(objname);
writeln('enter name of dump file');
readln(outname);
reset(inseg,objname);
rewrite(output,outname);
write('modulename is ',inseg^.modulename);
writeln('  filename is ',inseg^.filename);
write('segblkfiller is ',inseg^.segblkfiller);
writeln('  qversion is ',inseg^.qversion);
write('numseg is ',inseg^.numseg);
writeln('  import block is ',inseg^.importblock);
write('gdbsize is ',inseg^.gdbsize);
writeln('  sum of locals is ',inseg^.sumoflocals);
while not eof(inseg) do
  begin
  get(inseg);
  byte:=recast(inseg^.block,chrblock);
  for i:=0 to 31 do
    begin
    k:=i*16;
    for j:=0  to 15 do begin
      write(ord(byte[k+j]):2:-16);
      write('   ');
    end;
    writeln;
    end;
  end;
close(output);
end.