0 readc,d,e,w,j,n,v,a$,b$:print"{blk}{clr}{rvon}a{rvof}pex $100";b$:pokev,11:pokev+1,15:deffnr(x)=int(rnd(1)*x)
    1 getc$:pokee+x+y*w,d:a=(c$="{left}")-(c$="{rght}"):b=(c$="{up}")-(c$="{down}"):t=1-t*(t<5):data2000,32
    2 x=x-a*(x+a>=0andx+a<w):y=y-b*(y+b>=0andy+b<24):d=peek(e+x+y*w):pokee+x+y*w,160:data1064
    3 c=c-m*(t=1):print"{home}{blk}"tab(25)"$ {left}"c"{left} /"m"{left}  ":i=0:on-(c$="a")goto9:i=1:on-(c$="w")goto9
    4 on-(fnr(10)<>5)goto5:i=fnr(2):a=fnr(39):b=fnr(23):on-(i=0andg=20)goto5:l=g*2:u=1:goto7
    5 on-(g=0)goto1:k=-(k+2)*(k+2<g*2):a=peek(n+k):p=1-fnr(3):a=a-p*(a+p>=0anda+p<w):data40
    6 b=peek(n+k+1):l=k:u=0:q=1-fnr(3):b=b-q*(b+q>=0andb+q<24):i=0:on-(m<250)goto7:printa$:end
    7 f=e+a+b*w:h=peek(f):m=m+(h=52):on-(i=0)goto8:pokef,42:goto1:data1043,8192,53280,"{home}{rvon}nice!
    8 on-(h=61)goto1:pokef,102:poken+l,a:poken+l+1,b:g=g-(u=1):u=0:goto1:data"  {rvon}w{rvof}all $50{gry3}{CBM-@}24=
    9 h=peek(j+i):on-(c-h<0)or-(d>42)goto1:c=c-h:d=peek(j+2+i):pokee+x+y*w,d:m=m-(i=0):goto1