PROGRAM SQUARE
	COMMON /PLTR/ ILun,IDev,IsTerm,IMode,IXMax,IYmax,
	1  Cnvrsn,CMag,CnvMag,IX0,IY0,KSetNo,IFancy,IBfDv3,
	1  CSize,DeltaH,DeltaV,Upsiln,CosUP,SinUP
	LOGICAL IBROKE
	CALL PSEUDO
	IXC = IXMAX/2
	IYC = IYMAX/2
	L = IYMAX/2
	CALL SVCTR(11)
100	CALL ABSPLT(IXC-L,IYC-L,3)
	CALL ABSPLT(IXC+L,IYC-L,2)
	CALL ABSPLT(IXC+L,IYC+L,2)
	CALL ABSPLT(IXC-L,IYC+L,2)
	CALL ABSPLT(IXC-L,IYC-L,2)
	CALL ABSPLT(0,0,3)
	CALL ABSPLT(IXMAX,IYMAX,2)
	CALL ABSPLT(0,IYMAX,3)
	CALL ABSPLT(IXMAX,0,2)
	CALL ABSPLT(IXC,0,3)
	CALL ABSPLT(IXC,IYMAX,2)
	CALL ABSPLT(0,IYC,3)
	CALL ABSPLT(IXMAX,IYC,2)
	CALL BREAK( IBROKE )
	IF( IBROKE ) GO TO 200
	GO TO 100
200	CALL HLABEL
	CALL EXIT
	END