GIFTD<-function(qtxt)
{
	cat(qtxt, "\n\n", sep="")
}