Ask a help~ Explaination of R language Bivariate Poisson Coding

I cant understand the R language Bivariate Zero-Inflated Poisson coding (linked file), any body help me~ appreciate of your warmish assist~

http://ubuntuforums.org/attachment.php?attachmentid=113974&d=1242454579