'Text Spinner Animation 'Note: Using a String of OldSpinner$="\|/-" or OldSpinner$=chr$(92)+chr$(124)+chr$(47)+chr$(45) 'or NewSpinner$=chr$(17)+chr$(30)+chr$(16)+chr$(31) does not work with SecondBASIC Studio v3.9.58 Cls Dim OldSpinner(4) As Integer OldSpinner(0)=92 OldSpinner(1)=124 OldSpinner(2)=47 OldSpinner(3)=45 Dim NewSpinner(4) As Integer NewSpinner(0)=17 NewSpinner(1)=30 NewSpinner(2)=16 NewSpinner(3)=31 'Uncomment next line to see problem with NewSpinner 'NewSpinner$=Chr$(17)+Chr$(30)+Chr$(16)+Chr$(31) While 1 For x=0 To 3 'Uncomment the next 3 lines to see the problem with OldSpinner & NewSpinner as a String 'Locate 1,1 'Print "\|/-" 'Print NewSpinner$ Locate 10,17 Print " "; Locate 10,17 Print Chr$(OldSpinner(x)); Locate 10,19 Print Chr$(NewSpinner(x)); Sleep 5 Next x Wend