%BEGIN
%owninteger fail=0
%STRING(5) %ARRAY a(1:10)
%STRING(5) %NAME ap
%INTEGER i
%ROUTINE conc(%STRING(5) %NAME x)
      x=x."a"
%END
      a(i)=tostring(i+'0') %FOR i=1,1,10
      conc(a(i)) %FOR i=1,1,10
      %FOR i=1,1,10 %CYCLE
         ap==a(i)
         ap=ap."b"
         printstring(a(i)) %and fail=1 %UNLESS a(i)=tostring(i+'0')."ab"
      %REPEAT
      printstring("TEST OK") %if fail=0
%ENDOFPROGRAM
