Spinning rod animation/Text: Difference between revisions

Content added Content deleted
(Spinning rod animation/Text in True BASIC)
(Spinning rod animation/Text in BASIC-256)
Line 143: Line 143:
done</syntaxhighlight>
done</syntaxhighlight>
(Added an indent in the printf to better see the spinning rod).
(Added an indent in the printf to better see the spinning rod).

=={{header|BASIC256}}==
<syntaxhighlight lang="freebasic">spinning$ = "|/-" + chr(92)
c = 1

while key = ""
cls
print chr(10) + " hit any key to end program "; mid(spinning$,c,1)
c += 1
pause .250 # in milliseconds
if c = 4 then c = 1
end while</syntaxhighlight>


=={{header|C}}==
=={{header|C}}==