BeerScript!

::

Option Explicit

Private Sub Office_Off()

dim Cup as Integer

dim TotalCups as Integer

dim Weather as String

TotalCups=Budget/cost of cup

If weather = fine then Goto Beer Shop

For Cup = 1 to TotalCups { Cup+BBQ }

Loop

break

End

Else Goto Home

End if

End Sub.