# barnMan &!ферма- клетки муж.
gs "printer","printMan" 

# barnWim  &!ферма- клетки жен.
gs "printer","printWim" 

# printer  &!здесь вывод по гендеру. 

if args['variant']<>2:
	if $args[0]="printWim":
	! блок вывода на экран
		*clr
		*pl "Список девочек "
		*p '<table  border="1" cellpadding="10">'
		args['i']=0
		:for_printWim
		if args['i']<arrsize('$Trace'):
			*p '<tr>'
				*p '<th>'+args['i']+'</th>'
				*p '<th>'+$PhermRace[args['i']]+'</th>'
				*p '<th>'+$PhermGender[args['i']]+'</th>'
				*p '<th>'+PhermPrice[args['i']]+'</th>'
				*p '<th><font color="#BC8F8F">Преобретено</font></th>'
			*p '</tr>'
			args['i']+=1
			jump 'for_printWim'
		end
		*pl '</table>'
	end
	elseif args['variant']=2:
		if $args[0]="printMan":
		! блок вывода на экран
			*clr
			*pl "список мальчиков"
			*p '<table  border="1" cellpadding="10">'
			args['i']=0
			:for_printMan
			if args['i']<arrsize('$Trace'):
				*p '<tr>'
					*p '<th>'+args['i']+'</th>'
					*p '<th>'+$PhermRace[args['i']]+'</th>'
					*p '<th>'+$PhermGender[args['i']]+'</th>'
					*p '<th>'+PhermPrice[args['i']]+'</th>'
					*p '<th><font color="#BC8F8F">Преобретено</font></th>'
				*p '</tr>'
				args['i']+=1
				jump 'for_printMan'
			end
			*pl '</table>'
		end
	end
end