/**Q-FID Visual***********/
options results
address "CNETREXX0"
key="nj"
key2=""
r=getclip("R")
c1=getclip("c1")
c2=getclip("c2")
saveimed=getclip("saveimed")
save=""
if saveimed=1 then do
	save="S"
end
if r~=1 then do
	c1=1
	c2=8
end

open("i","ram:file_id.diz","R")
	c=0
	do until eof("i")=1
		c=c+1
		zeile.c=readln("i")
	end
close("i")
cr="
"
ca=c1
cb=c2
if c2-c1+1>5 then do
	ca=c1
	cb=c1+4
	cc=c2
	g5=1
end


do a=ca to cb
	if a=1 then do
		key=key""zeile.a
	end
	if a~=1 then do
		key=key""cr""zeile.a
	end
end
if g5=1 then do
	do a=cb+1 to cc
		key2=key2""cr""zeile.a
	end
end

addkeys cr
addkeys key
addkeys key2""save
address command "c:delete ram:file_id.diz >nil:"