%BEGIN
%INTEGER I
      I=0
      %CYCLE
         WRITE(I,2)
         I=I+1
      %REPEAT %UNTIL  I=4
      printstring("
Test OK")
%ENDOFPROGRAM