Select Code to Download

/
...
 )                               #End capture
/sx

File header stuf...
22 Private Const strLen = 80
...
31 '--------------------------------------------------------
32 Private Sub DrainBattery(Byval sPercentage as Single)
Code stuff...