>Yea, Friday. That also means:

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

George:

When I run the above code, I get an error message on the last line:
'Cannot quit Drinking Binge'

???