C	CLEANUP.FOR
C
C	CLEANUP unlocks any locked records and throws away any unused
C	tokens left on the line.
C
	subroutine  cleanup

	include		'TOKDEF/NOLIST'

	do while (token .ne. NEWLINE .and. token .ne. TEOF)
	    call get_token
	enddo

	return
	end