' "99 Bottles of Beer on the Wall" QBasic / Perl Polyglot '. ' Copyright (C) 2000 Jeff Connelly '. ' May be freely distributed '. ' '. ' Probably only works in DOS. You can get QBasic 1.1 with DOS, or '. ' on the World Wide Web at http://www.neozones.com/ . '. ' Note that QBasic reformats source code as it is opened; so do not '. ' save this file inside QBasic if you want it to be parsed by Perl. '; '';sub function{}sub st{} function st$(x1, y!, m$) st$ = ltrim$(str$(y!)) end function '!; m%=99'%;$STATIC=9x2; do 'NUL'; do { print st$(x1,m%-0%,z.$); '',print"\cH"x3;print '',$STATIC; print " bottles of beer on the wall"; print ''; print "\n"x2; <<; print print st$(x1,m%-0%,z.$); '',print"\cH"x3;print '',$STATIC; print " bottles of beer on the wall,"; print ''; print "\n"; print st$(x1,m%-0%,z.$); '',print"\cH"x3;print '',$STATIC; print " bottles of beer,"; print '' and print "\n"; print "Take one down, pass it around,"; print ""; ''; print "\n"; ''; <<; print ''; --$STATIC; m%=m%-1+foo. ''} until $STATIC == 0 or !<<;; loop until m%=0'%-1 system