13 lines
154 B
Plaintext
13 lines
154 B
Plaintext
|
program test;
|
||
|
|
|
||
|
|
{$I 'binary.inc'}
|
||
|
|
|
||
|
|
var
|
||
|
|
bstr : String[2] = '41';
|
||
|
|
bval : Byte;
|
||
|
|
|
||
|
|
begin
|
||
|
|
bval := ReadByte(bstr);
|
||
|
|
Writeln('hello', Char(bval));
|
||
|
|
end.
|