program JOYCEcharacter(input,output);

procedure hex(x:integer);

  procedure nibb(b:integer);
  const
    hx : array[0..15] of char='0123456789ABCDEF';
  begin
    write(hx[b and $0F]);
  end;

Begin {hex}
  nibb(x shr 4);
  nibb(  x    );
End;

procedure PutLine(ch1,ch2:integer);
var
  i,j          : integer;
Begin
  i:=ch1;
  repeat
    hex(i);
    write(': ');
    for j:=0 to 15 do
    begin
      if (i+j)<ord(' ') then write(chr(27));
      write(chr(i+j),'  ');
    end;
    writeln;
    i:=i+16;
  until i>ch2;
  writeln;
End;

BEGIN
  writeln('    JOYCE Zeichensatz');
  writeln('    00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F');
  writeln('    -----------------------------------------------');
  writeln('    (ESCape vorweg)');
  PutLine($00,$1F);
  writeln('   (ASCII Spezial)');
  writeln('7F:                                              ',chr($7F));
  writeln('   (Erweiterte Zeichen)');
  PutLine($80,$FF);
END.