garyzyriek.com

10.28.2005

My Life in .NET

 Dim yYears As Byte
 Dim yDays As Byte
 Dim yHours As Byte
 Dim oGaryZ As New PersonLivingInMemphell
 Dim oPaper As CommercialAppealNewsPaper
 Dim oWork As Employment

 For yYears = 1 To 75
    For yDays = 1 To 365
       With oGaryZ
         .WakeUp
         oPaper = New CommercialAppealNewsPaper
         With oPaper
            oGaryZ.Read .GangViolenceInMemphis
            oGaryZ.Read .RacialTension
            oGaryZ.Read .GrizzliesLose
            oGaryZ.Read .PublicSchoolsSuck
            oGaryZ.Read .DirtyPoliticians
         End With

         .GoToWork

         For yHours = 1 To 8
            oWork = New Employment
            With oWork

              oGaryZ.Work .BangCode
              oGaryZ.Work .DrinkCoffee
              oGaryZ.Work .ChatAboutSports
              oGaryZ.Work .BangCode
            End With
         Next yHours

         .LeaveWork
         Call functionRandom(action := .DoStuff, hours := 4)
         .GoToBed

       End With
    Next yDays
 Next yYears

 'Cleanup code
 oGaryZ.Die
 oGaryZ.Bury
 oGaryZ.Dispose

1 Comments:

Post a Comment



<< Home