7 lines
96 B
Plaintext
7 lines
96 B
Plaintext
PROC P ()
|
|
VAL size IS 32:
|
|
[100]BYTE src:
|
|
[32]BYTE dest:
|
|
dest := [src FROM 0 FOR size]
|
|
:
|