to steer
make "key ascii readchar
if :key = 38 [seth 0]
if :key = 39 [seth 90]
if :key = 40 [seth 180]
if :key = 37 [seth 270]
if :key = 30 [seth 0]
if :key = 29 [seth 90]
if :key = 31 [seth 180]
if :key = 28 [seth 270]
end

to go
forever [steer]
clickon
end