RosettaCodeData/Task/Copy-a-string/PL-I/copy-a-string.pli
2023-07-01 13:44:08 -04:00

3 lines
83 B
Text

declare (s1, s2) character (20) varying;
s1 = 'now is the time';
s2 = s1;