/* ... to remove unwanted Compiler generated labels when using HUNK_DEBUG. Output of file created through the use of DropHunk */

BAREED_HOST = GetClip('BAREED')

IF BAREED_HOST = '' THEN DO
	CALL SetClip('BAREED')	/* Remove from ClipNode */
	EXIT 5
	END

ADDRESS VALUE BAREED_HOST

CALL SetClip('BAREED')		/* Remove from ClipNode */

OPTIONS RESULTS

/* ---------------------- MAIN --------------------- */

set tab size 8
set font "courier.font,13"

move cursor archivestart
set find string "  	L"	/* Two blanks, one tab, the capital L */
set findmode

reps = 0

do while RC = 0
	find next string
	if RC ~= 0 then
		break
	delete current line
	move cursor linestart
	reps = reps + 1
end

tell "Found" reps "occurrences to remove!"

move cursor archivestart
set find string "related"	/* Search now for this string */

do while RC = 0
	find next string
	if RC ~= 0 then
		break
	get current column
	xpos = result
	if xpos < 57 then	/* Lower column 57 ? */
		put char '09'x
	
end