RosettaCodeData/Task/Pointers-and-references/COBOL/pointers-and-references-4.cob
2026-04-30 12:34:36 -04:00

2 lines
49 B
COBOL

SET ptr1 UP BY 10
SET ptr2 DOWN BY LENGTH OF foo