:.SCROLL
:[0101010101010101010101010101010101010101]→GDB1  //<--------note that it's 20 tiles long
:[...more hex stuff..........................................]
:[......(all consisting of 01's and 02's).................]
:[................................................................]
:[................................................................]
:[................................................................]
:[................................................................]
:[................................................................]
:[................................................................]
:[0101010101010101010101010101010101010101]
:GDB1→W
:[FFFFFFFFFFFFFFFF]→Pic1
:[0000000000000000]

Note: This assumes your xposition is S, yposition is T (uninflated)


:Repeat getKey(15)
:S/8→E
:T/8→D
:S^8→F
:T^8→G
:For(A,0,12)
:A*8-F→C
:For(B,0,8)
:Pt-Off(C,B*8-G,{B+D*20+A+E+W}*8+Pic1)
:End:End
:DispGraph
:End