Losing My Way

Experiments with the children's programming language "logo" resulted in these allegorical programs where the turtle (the drawing agent in logo) takes an anxious journey.

cs
ht
make "radius  300
make "JourneyLength 50000
make "step :JourneyLength
make "stride 2
make "adventurousness 3
make "anxiety 50

repeat :step [
	make "lostness ((random 2 * :JourneyLength) 
        - :JourneyLength) / ((:step/:adventurousness + 
        :JourneyLength/:anxiety) )
	left :lostness
  	fd :stride
	if xpos * xpos + ypos * ypos > 
        :radius * :radius [right 180] []
	make "step :step - 1
]