//
//Forte TOOL. By Lee Fuller 06/02/2003
//
lBeerstring : string = '%1 Bottles of beer on the wall';
lBeerstring2 : string = '%1 bottles of beer';
lDrink : string = 'Take one down, pass it around.';

for i in 99 to 1 by -1 do

	task.lgr.putline(textdata().ReplaceParameters(lBeerstring, integerdata(value = i)));
	task.lgr.putline(textdata().ReplaceParameters(lBeerstring2, integerdata(value = i)));
	task.lgr.putline(lDrink);
	task.lgr.putline(textdata().ReplaceParameters(lBeerstring, integerdata(value = i-1)));
	task.lgr.putline();
end for;