SUB GCL. (P$,PZ%,B$,BZ%,GZ%,ERRG%,ERRF%,ERRD%)
	!patch to correct pashunfingaz blunder
	!no user routine should call FCSINI
	!GCL. will call FCSINI if nothing else has done so
	! calling FCSINI when any FCS is in use will scramble buffers .
	! one day (ho hum) we will look at FCS's UIC rather than use INI%
	! as a flag to know when FCSINI has been done.
	{FCSCOM.B4S}
	IF INI%<>-1% THEN CALL FCSINI BY REF \ INI% = -1%
	MAP (GCLERR) ED$=1%,EF$=1%,EG$=1%
	CALL ADR BY REF (P$,PA%)
	CALL ADR BY REF (ED$,EA%)
	CALL ADR BY REF (B$,BA%)
	CALL GCLGCL BY REF (PA%,PZ%,EA%,BA%,BZ%,GZ%)
	ERRG% = ASCII(EG$)
	ERRF% = ASCII(EF$)
	ERRD% = ASCII(ED$)
	SUBEND