Procedure CountTheBottles Trigger Open Enabled Secure
var bottles integer
for (bottles from 99 to 1 step -1) do
if bottles eq 1 then
print bottles (" bottle of beer on the wall")
print bottles (" bottle of beer...");
 else
print bottles (" bottles of beer on the wall")
print bottles (" bottles of beer...");
 end_if

print ("Take one down and pass it around...")
end_for

print ("No Bottles of beer on the wall")
End_Procedure

Call CountTheBottles