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

12 lines
160 B
Text

a[1]="|"
a[2]="/"
a[3]="-"
a[4]="\"
b=0
While b=0
For c=1 To 4
TextWindow.Clear()
TextWindow.WriteLine(a[c])
Program.Delay(250)
EndFor
EndWhile