var x=0,p=0,r=0,s="",m=s:do:
if instr(m,"!")=0then read x,p,m:r=p:s=m:if m=""then end
cls:?m:locate 1+p\x,1+p mod x,0:?"@
dim as byte k(7)={-1,1,0,0,0,0,x,-x}:
var i=k(7and((getkey-97)\3)),n=p+i,c=@m[n],d=@m[n+i]
if i then:select case*c\9:case 3:p=n:case 8,4
if*d=32then*d=*c:*c=32:p=n
if*d=33then*c=*d+(*c=79):*d=43:p=n
end select:else p=r:m=s:endif:loop
data 10,71,!" XXXXX   \n X   XXXX\n X   X  X\n XX    !X\n" _
"XXX XXX!X\nX O X X!X\nX OOX XXX\nX   X    \nXXXXX    \n", _
11,29,!"  XXXXXXX \n  X     X \n  X O   X \nXXXXX X X \n" _
"X O     X \nX  XOXX XX\nX!!O  X  X\nX!!      X\nXXXXXXXXXX\n",0,0,"