PROGRAM SYM
	COMMON /PLTR/ ILun, IDev, IsTerm, IMode, IXMax, IYMax,
	1  Cnvrsn, CMag, CnvMag, IX0, IY0, KSetNo, IFancy, IBfDv3,
	1  CSize, DeltaH, DeltaV, Upsiln, CosUp, SinUp, WidAdj
C
	CALL PSEUDO(1,"13)
C
C - SYMBOLS, -4, -3, -2, -1
	CALL FRAME
	R = 2.5
	CALL ABSPLT( IXMAX/2, 0, 3 )
	CALL ABSPLT( IXMAX/2, IYMAX, 2 )
	DO 1000 I=0,360,360/18
	XP = R*COSD( I )
	YP = R*SIND( I )
	CALL CALPLT(0.,0.,3)
1000	CALL CALPLT(XP,YP,2)
	THETA = ATAN( 1.61803 )
	XP = R*COS( THETA )
	YP = R*SIN( THETA )
	CALL CALPLT(XP,YP,3)
	CALL CALPLT(XP,-YP,2)
	CALL CALPLT(-XP,YP,3)
	CALL CALPLT(-XP,-YP,2)
	CALL CALPLT(YP,XP,3)
	CALL CALPLT(-YP,XP,2)
	CALL CALPLT(-YP,-XP,3)
	CALL CALPLT(YP,-XP,2)
C
	READ(5,1010) IWAIT
1010	FORMAT(A2)
C
	CALL FRAME
	IPEN = 3
	DO 2000 I=0,360,90
	XP = R*COSD( I+45 )
	YP = R*SIND( I+45 )
	CALL CALPLT(XP,YP,IPEN)
2000	IPEN = 2
	IPEN = 3
	DO 3000 I=0,720,720/5
	XP = R*COSD( I+90 )
	YP = R*SIND( I+90 )
	CALL CALPLT( XP,YP,IPEN)
3000	IPEN = 2
	IPEN = 3
	DO 4000 I=0,360,60
	XP = R*COSD( I+90 )
	YP = R*SIND( I+90 )
	CALL CALPLT(XP,YP,IPEN)
4000	IPEN = 2
	XP = R*COSD( 45 )
	YP = R*SIND( 45 )
	RR = 2.*XP
	CALL CALPLT(-XP,-YP,-3)
	DO 5000 I=0,90,15
	XP = RR*COSD(I)
	YP = RR*SIND(I)
	CALL CALPLT(XP,YP,3)
5000	CALL CALPLT(XP,YP,2)
C
	READ(5,1010) IWAIT
	CALL FRAME
	CALL HCUSE( 10 )
	CALL SIZEUP( 5., 0. )
	CALL HCGEN( 0., 0., 'C', 1 )
	READ(5,1010) IWAIT
	CALL FRAME
	CALL SIZEUP( 4.6, 0. )
	CALL HCGEN( 0., -.15, 'H', 1 )
	READ(5,1010) IWAIT
	CALL FRAME
	CALL SIZEUP( 5., 0. )
	CALL HCGEN( 0., 0., 'S', 1 )
	READ(5,1010) IWIAT
	CALL FRAME
	CALL SIZEUP( 4.75, 0. )
	CALL HCGEN( 0., 0., 'K', 1 )
	READ(5,1010) IWAIT
C
	READ(5,1010)
	CALL CALPLT(0.,0.,999)
	STOP
	END
	SUBROUTINE FRAME
	COMMON /PLTR/ ILun, IDev, IsTerm, IMode, IXMax, IYMax,
	1  Cnvrsn, CMag, CnvMag, IX0, IY0, KSetNo, IFancy, IBfDv3,
	1  CSize, DeltaH, DeltaV, Upsiln, CosUp, SinUp, WidAdj
	CALL ERASE
	CALL ABSPLT( IXMAX/2, IYMAX/2, -3 )
	R = 2.5
	IPEN = 3
	DO 1000 I=0,360,2
	XP = R*COSD( I )
	YP = R*SIND( I )
	CALL CALPLT(XP,YP,IPEN)
1000	IPEN = 2
	CALL ABSPLT(0, IYMAX/2, 3 )
	CALL ABSPLT(IXMAX, IYMAX/2, 2 )
	RETURN
	END
	FUNCTION COSD( I )
	COSD = COS( I*.0174533 )
	RETURN
	END
	FUNCTION SIND( I )
	SIND = SIN( I*.0174533 )
	RETURN
	END