RosettaCodeData/Task/Copy-a-string/OPL/copy-a-string.opl

9 lines
107 B
Plaintext

PROC main:
LOCAL src$(6),dst$(5)
src$="Hello"
dst$=src$
src$="world!"
PRINT dst$,src$
GET
ENDP