17 lines
345 B
ObjectPascal
17 lines
345 B
ObjectPascal
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.
|