RosettaCodeData/Task/Loops-Continue/Simula/loops-continue.simula

! Loops/Continue - simula67 - 07/03/2017;
begin
    integer i;
    for i:=1 step 1 until 10 do begin
        outint(i,5);
        if mod(i,5)=0 then begin
            outimage;
            goto loop
        end;
        outtext(", ");
    loop:
    end
 end