to checkhit
	(if :guess = :distance [print [Safe Landing!!!] stop])
	print [Missed, try again!] back :guess
	playgame
end

to drawtarget
	penup
	forward :distance
	pendown
	left 90
	forward 5
	right 90
	repeat 3 [fd 10 rt 90]
	forward 5
	right 90
	penup
	back :distance
end

to getguess
	print [How far is the target:]
	make "guess readword
end

to launch
	pendown
	forward :guess
end

to pickdistance
	make "distance 40
end

to playgame
	getguess
	launch
	checkhit
end

to rocket
	setup
	playgame
end

to setup
	pickdistance
	drawtarget
end