%BEGIN
%CONST%STRING(15)%ARRAY S(1:3)="ONE ","TWO ","THREE "
%INTEGER I
      PRINTSTRING(S(3))
      %CYCLE I=1,1,3
         PRINTSTRING(S(I))
      %REPEAT
      newline
      printstring("Test is OK if previous line='THREE ONE TWO THREE'")
%ENDOFPROGRAM