RosettaCodeData/Task/Integer-sequence/FreeBASIC/integer-sequence.freebasic

15 lines
380 B
Text
Raw Permalink Normal View History

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