Understanding powers and indices (simply)

[bplus]

Code: (Select All)

_Title "Grains of Rice" ' b+ 2022-10-28
Dim x As _Unsigned _Integer64
$Console:Only
'_Font 8
x = 1
Print 1, x
For i = 2 To 64
    x = x * 2
    s$ = Str$(x)
    Print i,
    For j = 1 To Len(s$)
        c$ = Mid$(s$, j, 1)
        If c$ = "0" Then
            Color 10
        ElseIf s$ <> " " Then
            Color Val(c$)
        End If
        Print c$;
    Next
    Print
Next