RosettaCodeData/Task/Integer-sequence/PureBasic/integer-sequence.basic

6 lines
54 B
Plaintext

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