Do Not Try This At Home (aka Too Much VBA Will Kill You)!

Sub UseToilet()
'------------------------------------
'  (c) 1999 by Owl MacDamper, D.I.U.
'
' Written after 3hrs of teaching 
' VISUAL BASIC FOR APPLICATIONS(tm)
'
'
'------------------------------------

Open File Toilet For Output As #1
Open File Zipper For Input As #2
If FileError(1)
  Goto OtherToilet
End If
If FileError(2)
   Panic()
   Bladder.Explode = True
   End
End If

Do
  Piss()
  If Overflow() Then
    Halt(1)
    Close #1
    Close #2
    Goto OtherToilet
  End If
Until EndOfBladder
Pack  #2
Close #2
Flush #1
Close #1

End Sub

© 1995 -2012 Kakk