	call window(0.,0.,100.,100.)
	call erase
	call endplt
	end
