Graeme McLaren wrote:
Public Sub House()
On Error Resume drink
If Pint.empty = True Then
Pint.refill
Else
Pint.drink
End if
stomach.add Pint
MsgBox " I've had .... " & stomach.count & " Pints"
MsgBox "VERY DRUNK"
End Sub
sub house {
if ($pint->empty) {
$pint->refill;
} else {
$pint->drink;
}
print " I've had .... ", $stomach++, " Pints\n";
print "You must be VERY DRUNK to be posting a 16 line vb sig to a
perl list\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
