	CALL BAUD(4800)
	CALL ERASE
	CALL WINDOW('X-ACHSE',500.,-500.,0.,'Y-ACHSE',500.,-500.,0.,-1)
	END
