input "Enter rootname of source file (no extension)";rinfl1$
infl$=rinfl1$+".asc"
otfl$=rinfl1$+"_LN.asc"
! rp$=otfl$
open infl$ for input as #1
open otfl$ for output as #2, recordsize 90
on error goto errchk

while 1%=1%
	linput #1, r$
	while left$(r$,1)="*"
		if rp$<>""
		then
			print #2, rp$
			rp$=""
		end if
		print #2, r$
		linput #1, r$
	next
	cn$=left$(r$,7)
	cnpr$=left$(rp$,7)
	! print cnpr$,cn$
	if rp$<>"" then print #2, rp$ end if
	if cn$=cnpr$
	then
		cr$=mid$(r$,8,1)
		crpr$=mid$(rp$,8,1)
		! print ,crpr$,cr$
		! print rp$
		if crpr$ > "0" and cr$ = "0"
		then
			c1$=left$(rp$,3)+mid$(rp$,5,7)
			c2$=left$(r$,3) +mid$(r$,5,7)
			! print rp$
			print #2, "||("+c2$+" is required with "+c1$+")"
			! print r$
		end if

	end if
	rp$=r$
next

errchk:

if err <> 11
then
	on error goto 0
	resume
else
	resume finis
end if

finis:
print #2, rp$
close #1,#2
end