RosettaCodeData/Task/Integer-sequence/PureBasic/integer-sequence.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
54 B
Text

OpenConsole()
Repeat
a.q+1
PrintN(Str(a))
ForEver