RosettaCodeData/Task/Loops-N-plus-one-half/PureBasic/loops-n-plus-one-half.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

7 lines
79 B
Text

x=1
Repeat
Print(Str(x))
x+1
If x>10: Break: EndIf
Print(", ")
ForEver