RosettaCodeData/Task/Spinning-rod-animation-Text/BASIC256/spinning-rod-animation-text.basic
2023-07-01 13:44:08 -04:00

10 lines
193 B
Text

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