clear
	s=@scale
	s=s*.8
:zoom
	scale s
	redraw
:end
	exit