Fixing a few errors. Also, some reformatting and optimizations.
.TILEMAPR
.Tileset
[]→Pic0T
[F0F0F0F0]Zeros(4)[F0F0F0F0]Zeros(4)
[C0C0C0C0]Zeros(4)[00000000]Zeros(4)
.Tilemap
[]→Pic0M
[01010101]
[01000001]
[01000001]
[01010101]
While 1
4*4+Pic0M→C
16
While 1
-4→B
16
While 1
-4→A
If {C-1→C}
*16+Pic0T→D
Pt-On(A,B,D)
Pt-On(A,B,D+8)ʳ
End
End!If A
End!If B
DispGraphʳ
EndIf getKey(15)
