make a
make dir

auto 1
lock 1

set  dir,1

:again
rand a,16

jeq dir,0,:right

:left
left
add a,-1
jgt a,0,:left

set dir,0

goto :again

:right
right
add a,-1
jgt a,0,:right

set dir,1

goto :again
