kcpmtk/test.pas

program test;

{$I 'binary.pas'}
var
   I : Byte;
begin
   Writeln('ReadByte(''41'')->', ReadByte('41'));
   Writeln('WriteByte($41)->', WriteByte($41));
   Writeln('ReadWord(''4243'')->', ReadWord('4243'));
   Writeln('WriteByte($4243)->', WriteWord($4243));

   for I := 0 to 32 do
   begin
       WriteLn(I, '->', WriteByte(I));
   end;
end.