Try running this code in Basic:
.AA
Data(|pi|11111111,|pi|01111111,|pi|00111111,|pi|00011111,|pi|00001111,|pi|00000111,|pi|00000011,|pi|00000001,|pi|00000000)->GDB0
L1->°AA
L1+3->°BB
ClrDraw(L1)
While 1
BB+getKey(3)-getKey(2)+96^96->BB
AA+getKey(1)-getKey(4)^64->AA
65535->Q
For(8 )
Select({BB^8+GDB0},->{Q+++AA^64*12+(BB/8->r3)+L6->r2}) xor |pi|11111111
->{r3-11??r2-11,r2+1}
End
DispGraphClrDraw
EndIf getKey(15)
Basic is interpreted and Axe is compiled, so usually, Basic is slower than Axe in games but smaller. However, Basic is more apropriate for maths program.