RosettaCodeData/Task/Loops-Infinite/FreeBASIC/loops-infinite.basic

' FB 1.05.0

'Using Do loop
Do                'Alternatively this could have a conditional, "Do While 1"
    Print "SPAM"
Loop

'Using While loop
While 1
    Print "SPAM"
Wend