To stroll :TIMES
PU
If :TIMES < 0 [STOP]
( Local "X "Y "R )
Make "X 10 - Random 31
Make "Y 10 - Random 21
Make "R Random 360
SetPos Sentence 10 * :X 10 * :Y
SetHeading :R
Stamp
STROLL :TIMES - 1
End

