10→A //A and B are also the dimensions of [A]
8→B
For(X,1,A
For(Y,1,B
For(θ,1,5
Text(55,7,X
Text(55,1,Y
If Y=0
1→Y
If [A](Y,X)≠0
Then
If [A](Y1,X1)=1
"[)))["→Str1
If [A](Y1,X1)=2
" '! "→Str1
If [A](Y1,X1)=3
"°²1²°"→Str1
If [A](Y1,X1)=4
"X:X"→Str1
End
If [A](Y1,X1)>0
Text(6(Y-1),θ+6(X-1),sub(Str1,θ,1
End
Text(6(Y-1),θ+6(X-1)," "
End
End