The scripting language controlling the Foxpro database.

** Randy Jean
FOR x = 100 TO 1 STEP -1
	?x,"Bottle(s) of beer on the wall,",x,"bottle(s) of beer"
	?"         Take one down and pass it around,"
	?x-1,"bottle(s) of beer on the wall"
ENDFOR