Very Important Code

10 Dim x as boolean
20 x = Seek(ObjectRef “Dinner Table”)
30 If x then
40 Call Eat
50 Else
60 (New Location).Move
70 End If
80 Rem Loops Indefinitely
100 Function Eat()
110 Me.Sit(Chair)
120 Me.Use(Fork)
130 Me.Consume(Food)
140 If Me.Full then Me.Nap(60, Minutes, “Or until Halftime”)
145 If Table(Dinner).FoodState.Empty Then Call ExitTable
150 Goto 130
200 Function ExitTable()
210 If Me.Home Then
213 Me.PassOut : Rem This may result in sleeping on floor.
215 Goto 250
220 If Me.FamilyHome Them
223 Me.PassOut : Rem This may result in sleeping in chair
225 Goto 250
240 (New Location).Move
245 Goto 210
250 End

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.