Maze 10liners_2

1print"{clear}{white}  maze by felix    use i,j,k,l to move{down*2}":a=1186:forz=0to39:poke1104+z,86:poke1984+z,86:poke55376+z,1:poke56256+z,1:next
2a(0)=-1:a(1)=-40:a(2)=1:a(3)=40:forf=1to21:print"V{reverse on}{yellow}{space*38}{white}{reverse off}V";:next
3j=int(rnd(0)*4):g=j
4b=a+a(j)*2:ifpeek(b)=160thenpokeb,j:pokea+a(j),32:a=b:goto3
5j=(j+1)*-(j<3):on-(j<>g)goto4:l=1223:j=peek(a):pokea,32:ifj<4thena=a-a(j)*2:goto3
6pokel,32:x=rnd(1)*720:on-(peek(1223+x)<>32)goto6:l=1223+x:pokel,42:pokea,94:j=3
7getz$:ifz$<>""thens=asc(z$):e=sand1:c=s-75+e
8b=a+c*(39*e+1):on-(peek(b)<>86andpeek(b)<>160)goto9:goto7
9on-(peek(b)=42)goto6:pokeb,94:pokea,32:a=b:goto7