SUBROUTINE HCGLBL( STRING )
C
C	This subroutine annotates the present state of the
C	Hershey Character Generator Program.
C
C+
	COMMON /PLTR/ ILun,IDev,IsTerm,IMode,IXMax,IYmax,
	1  Cnvrsn,CMag,CnvMag,IX0,IY0,KSetNo,IFancy,IBfDv3,
	1  CSize,DeltaH,DeltaV,Upsiln,CosUP,SinUP
	COMMON /HCDB/ ICASE, NVEC, IWIDTH, LL0, LL0D, SCALE, SCALED,
	1  COSUPC, SINUPC, COSUPD, SINUPD, COSUPT, SINUPT, DES, DEF
	COMMON /ETC/ NEWDO, OLDDO, DFAULT, MAPIN(128), SCALEF,
	1  NVCTRS(90), NCHAR, IVCTRS(800), ITIS, H, HD, TABFAC,
	2  ISETAV, TRNFRM, TABON, YWRITE, CHMIN, CHMAX, XMENU, YMENU,
	3  XC, YC, XCH, YCH, IPEN, COSTH, SINTH, XTAB0, YTAB0, 
	4  IXTAB, IYTAB, ICHAR, ISET(2)
	DIMENSION ISCALE(2)
	INTEGER OLDDO
	LOGICAL DFAULT, TRNFRM, TABON
	LOGICAL*1 ICHAR, ISET
	EQUIVALENCE ( SCALE, ISCALE )
C-
	YWRITE = YWRITE - DELTAV
	CALL HCGEN(0.,YWRITE,STRING,999)
C
	RETURN
	END