.DEFINE .BFZ%=512%
	Q$ = "GCL"
	P$ = CR + LF + Q$ + ">"
	PZ% = LEN (P$)
	MAP (CRAP) BUFFER$=.BFZ%
50	CALL GCL. (P$,PZ%,BUFFER$,.BFZ%,GZ%,EG%,EF%,ED%)
	PRINT "SIZEGOT%=",GZ%
	PRINT "GCLERR%=",EG%
	PRINT "FCSERR%=",EF%
	PRINT "DIRERR%=",ED%
	PRINT "BUFFER$=",LEFT$(BUFFER$,GZ%)
	IF EG%=246% THEN 200
	GOTO 50
200	END