PROGRAM SIZE
	COMMON /PLTR/ ILun,IDev,IsTerm,IMode,IXMax,IYmax,
	1  Cnvrsn,CMag,CnvMag,IX0,IY0,KSetNo,IFancy,IBfDv3,
	1  CSize,DeltaH,DeltaV,Upsiln,CosUP,SinUP
	CALL PSEUDO
	CALL ABSPLT(0,0,3)
	CALL ABSPLT(IXMAX,0,2)
	CALL ABSPLT(IXMAX,IYMAX,2)
	CALL ABSPLT(0,IYMAX,2)
	CALL ABSPLT(0,0,2)
	CALL ABSPLT(IXMAX/2,IYMAX/2,2)
	CALL HCUSE(8)
	CALL SIZEUP(.25,0.)
	CALL HCGEN(IXMAX/(2.*CNVMAG),IYMAX/(2.*CNVMAG),
	1  ' L<OWER> L<EFT>',999)
	CALL HLABEL
	X = IXMAX/CNVMAG
	Y = IYMAX/CNVMAG
	D = SQRT( X*X + Y*Y )
	WRITE(5,*) 'DIAGONAL =',D
	CALL CALPLT(0.,0.,999)
	STOP
	END