!
	READY	NNTP$GRP	SHARED	READ
	READY	NNTP$MSG	SHARED	READ
	!
	FIND	GRPLIST IN NNTP$GRP WITH C_SUCKFLAG > 0 AND
					 L_FIRST > 0 AND
					 L_LAST > 0
	PRINT	COUNT OF GRPLIST
	!
	!
	FOR	GRPLIST	WITH NNTP$MSG.MSGREC.T_GID STARTING FN$STR_EXTRACT(T_NAME,0,B_LEN)
	BEGIN
		PRINT	'----------------------------------------------'
		PRINT	FN$STR_EXTRACT(T_NAME,0,B_LEN) USING T(96)
		SELECT	FIRST
		PRINT	T_GID USING T(108)
		SELECT	LAST
		PRINT	T_GID USING T(108)
	END
	!
	!
	FINISH