11 lines
185 B
Plaintext
11 lines
185 B
Plaintext
'external' (
|
|
'procedure' write (
|
|
'value''integer', 'byte''array', 'value''integer');
|
|
)
|
|
|
|
'begin'
|
|
'byte''array' Buf [1:12] := "Hello World", 10;
|
|
|
|
write (1, Buf, 12);
|
|
'end'
|