Maze 10liners

1 print"{clear}{white}    maze by felix - use j,k,l to move{down*2}":a=1186:forz=0to39:poke1104+z,86:poke1984+z,86:poke55376+z,1:poke56256+z,1:next
2 a(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:pokea,4
3 j=int(rnd(0)*4):g=j
4 b=a+a(j)*2:ifpeek(b)=160thenpokeb,j:pokea+a(j),32:a=b:goto3
5 j=(j+1)*-(j<3):ifj<>gthen4
6 j=peek(a):pokea,32:ifj<4thena=a-a(j)*2:goto3
7 x=rnd(1)*720:ifpeek(1223+x)<>32then7
8 l=1223+x:pokel,42:pokea,94:j=3
9 getz$:ifz$<>""thens=asc(z$):e=sand1:c=s-75+e
10 b=a+c*(39*e+1):ifpeek(b)<>86andpeek(b)<>160then12
11 goto9
12 ifpeek(b)=42thenpokel,32:goto7
13 pokeb,94:pokea,32:a=b:goto9