*afo
color
if (bx-260/40=0)&(by-200/40=0) {
if b=1 : if bg=2 : b=4 : l+1 : color 255
if b=2 : if bg=3 : b=4 : l+1 : color 255
if b=3 : if bg=1 : b=4 : l+1 : color 255
}
pos 260,200
if (bs=4)|(bs=1) : mes "｜" : bg=1
if (bs=2)|(bs=8) : mes "―" : bg=2
if (bs=6)|(bs=9) : mes "＼" : bg=3
if (bs=12)|(bs=3) : mes "／" : bg=4
if bs=0 : mes "人" : bg=0
stick bs,15
if b=1 : bx+l : by+l
if b=2 : bx-l : by+l
if b=3 : bx-l : by-l
if b=4 : bx+l : by-l
if (by<0) | (by>480) | (bx>640) | (bx<0) : b=0
if b=0 {
randomize : rnd b,3 : b+1
if b=1 : bx=70 : by=1
if b=2 : bx=470 : by=1
if b=3 : bx=470 : by=400
}
pos bx,by : if b=4 : color 255
mes "●"
redraw 1 : redraw
await 20
color 255,255,255
boxf bx,by,bx+30+l,by+30+l : boxf 260,200,290,230
goto *afo