p201p910p54*11p220p92+2*21p930pv
     v                         <
v    < <>
 >v
 p0
 g0   >|
 1g>v `3
 01p2 g0
 -011 0g
 gg0g 01
 0++0 g0
01011 0g
0g1gg 3+
g0g1` p3
00p0>|00
1">^ 20p
g    0+>^
g"   g1
>^   0g
     10
     p0
     >^

00=cur x (0)
01=cur y (2)
10=width (9)
11=height (20)
20=y reset value (2)
21=y upper value (22)
30=x upper value (9)
1. load char from cx,cy
2. store space at cx-w,cy
3. store char at cx+w,cy
4. cy++
5. if cy<yu goto 1
6. cy=yr
7. cx++
8. if cx<xu goto 1
9. xu+=w
10. goto 1, but in next copy