kcpmtk/test.pas

program test;

{$I 'binary.pas'}

begin
   Writeln('ReadByte(''41'')->', ReadByte('41'));
   Writeln('WriteByte($41)->', WriteByte($41));
   Writeln('ReadWord(''4243'')->', ReadWord('4243'));
   Writeln('WriteByte($4243)->', WriteWord($4243));
end.