Cham	start 30   :CALCULATE X^2 + Y^2 -- store into memloc 35
	Using
	LD-BR *
	skip-mem 10
	READ-NUM 33
	READ-NUM 37
moon	LD-AC 33
	MUL-AC 33
sun	ST-AC 32
	LD-AC 37
	MUL-AC 37
	ADD-AC 32
	ST-AC 35
	COMP	moon+sun
	END