set date Italian
set softseek on
use GROUP new
index on Ngr to GROUP
use STUD new
set relation to Ngr into GROUP
set softseek on

?"----------1-----------"
index on fio to fio.ntx
do while(!eof())
  ? fio, Ngr, GROUP->spec
	skip
enddo
?

?"----------2-----------"
index on fio to fio.ntx
testNgr = Ngr
?Ngr
?"   ",fio,GROUP->spec
skip
do while(!eof())
	if testNgr # Ngr
		?
		?Ngr
		endif
	testNgr = Ngr
  ?"   ",fio,GROUP->spec
	skip
enddo
?

?"----------3-----------"

index on str(Ngr)+fio to fio.ntx
testNgr = Ngr
testSpec = GROUP->spec
?Ngr,GROUP->spec
skip
do while(!eof())
	if testNgr # Ngr
		?Ngr,GROUP->spec
	elseif testSpec # GROUP->spec
		?Ngr,GROUP->spec
		endif
  ?"    ",fio
	skip
enddo
?

?"----------4-----------"
index on str(GROUP->spec)+fio to fio.ntx
testNgr = Ngr
testSpec = GROUP->spec
?
?GROUP->spec, Ngr
do while(!eof())
	if testSpec # GROUP->spec
		?GROUP->spec,Ngr
	elseif testNgr # Ngr
		?GROUP->spec,Ngr
		endif

	testNgr = Ngr
	testSpec = GROUP->spec
  ?"           ",fio
	skip
enddo
?

?"----------5-----------"
index on str(GROUP->spec)+str(Ngr)+fio to fio.ntx
testSpec = GROUP->spec
testNgr = Ngr
?GROUP->spec,"   ",Ngr,"   ",fio
skip
do while(!eof())
	if testSpec # GROUP->spec
		?
		?GROUP->spec
		endif
	if testNgr # Ngr
		?
		?"            ",Ngr
		endif
	testSpec = GROUP->spec
	testNgr = Ngr
	?"               ",fio
	skip

enddo
?

?"----------6-----------"
index on str(GROUP->spec)+fio to fio.ntx
testSpec = GROUP->spec
?GROUP->spec,"            ",fio,Ngr
skip
do while(!eof())
	if testSpec # GROUP->spec
		?GROUP->spec
		endif
	testSpec = GROUP->spec
  ?"                    ",fio,Ngr
	skip
enddo
?