RosettaCodeData/Task/Loops-Continue/BASIC/loops-continue-9.basic

count()
Prgm
  ""→s
  For i,1,10
    s&string(i)→s
    If mod(i,5)=0 Then
      Disp s
      ""→s
      Cycle
    EndIf
    s&", "→s
  EndFor
EndPrgm