>SET CLASSLIB TO Local_Store >oBeer = CREATEOBJECT("Buy_Beer") >DO WHILE NOT oBeer.All_Gone() > oBeer.Drink_Up >ENDDO >QUIT