FnOff :PlotsOff :AxesOff:GridOff:ClrDraw
{8,8}üdim([A])
For(R,1,8)
For(C,1,8)
randInt(0,9)ü[A](R,C):Text(R7-6,C5-4,[A](R,C))
End:End

Text(0,45,"BANK")
Text(56,45,"John"):Text(50,45,"Chen")
{8,2}üdim([B])
For(Á,1,8)
randInt(1,8)+randInt(1,8)/10ü[B](Á,1)
0üA:0üB
If randInt(1,2)=1:Then
randInt(ú8,8)üA
If A+[B](Á,1)>8:8-iPart([B](Á,1))üA
If A+[B](Á,1)<1:1-iPart([B](Á,1))üA
Else
randInt(ú8,8)üB
If B+[B](Á,1)>8:8-10fPart([B](Á,1))üB
If B+[B](Á,1)<1:1-10fPart([B](Á,1))üB
End
5BANK
7*5