%BEGIN
%STRING(255) S
%CONSTSTRING(20)%ARRAY CONSTR (1:2) = 'CONST STRING', '2ND CONST STR'
S=FROMSTRING(CONSTR(1),1,3)
PRINTSTRING(CONSTR(1).S)
NEWLINE
%ENDOFPROGRAM