RosettaCodeData/Task/Integer-sequence/FreeBASIC/integer-sequence.freebasic
2017-09-25 22:28:19 +02:00

14 lines
380 B
Text

' FB 1.05.0 Win64
' FB does not natively support arbitrarily large integers though support can be added
' by using an external library such as GMP. For now we will just use an unsigned integer (32bit).
Print "Press Ctrl + C to stop the program at any time"
Dim i As UInteger = 1
Do
Print i
i += 1
Loop Until i = 0 ' will wrap back to 0 when it reaches 4,294,967,296
Sleep