RosettaCodeData/Task/Loops-Continue/SNOBOL4/loops-continue.sno

          line =
          i = 1
LOOP      le(i, 10)          :F(LOOP.END)
          line = line i
          eq(remdr(i, 5), 0) :S(LOOP.OUT)
          line = line ', '   :(LOOP.INC)
LOOP.OUT  OUTPUT = line
          line =
LOOP.INC  i = i + 1          :(LOOP)
LOOP.END  OUTPUT = line

END