File header stuf...
22 Private Const strLen = 80
23
24 Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
25   (ByVal lpFileName as String) as Long
26
27 '--------------------------------------------------------
28 ' Purpose:  Donuts
29 ' Author:   not me
30 ' Date:     yesterday
31 '--------------------------------------------------------
32 Private Sub DrainBattery(Byval sPercentage as Single)
Code stuff...