PROGRAM GRID
	DATA XGRID, YGRID/1.,1./
	CALL PSEUDO
	SCALEF = .06
	CALL CALPLT(XGRID,YGRID,-3)
	DO 1000 I=0,128
	XP = I*SCALEF
	DO 1000 J=0,128
	YP = J*SCALEF
	CALL CALPLT(XP,YP,3)
1000	CALL CALPLT(XP,YP,2)
C
	CALL CALPLT(0.,0.,999)
	STOP
	END