PROGRAM L
	CALL PSEUDO
	CALL HCUSE
	CALL CALPLT(2.,2.,-3)
	CALL LAXES(0.,0.,0.,10.,10000.,10.,1,'FREQ',-1,.1,'C')
	CALL CALPLT(0.,0.,999)
	STOP
	END