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

6 lines
54 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
OpenConsole()
Repeat
a.q+1
PrintN(Str(a))
ForEver