Path: news.daimi.aau.dk!jlk From: jlk@daimi.aau.dk (J|rgen Lindskov Knudsen) Newsgroups: comp.lang.beta Subject: Re: Beta Beer Needed Date: 27 Oct 1995 13:14:00 GMT Organization: DAIMI, Computer Science Dept. at Aarhus University Lines: 55 Message-ID: <46qluo$lpv@krone.daimi.aau.dk> References: <46otsq$8p4@ionews.ionet.net> Reply-To: jlknudsen@daimi.aau.dk (Jorgen Lindskov Knudsen) NNTP-Posting-Host: lithium.daimi.aau.dk In <46otsq$8p4@ionews.ionet.net> Thus spake timtroyr@ionet.net (Tim Robinson): >I have a web page that shows how to display the lyrics to 99 Bottles of Beer >in different programming languages (full explanation of this silly thing found >on the web page). However, I lack a version in Beta. ... >| Tim Robinson | Those who would give up essential | >| timtroyr@ionet.net | liberty to purchase a little | >| Excalibur BBS: 918-445-3091 | temporary safety, deserve neither | >| http://www.ionet.net/~timtroyr | liberty nor safety. Ben Franklin | OK, here is my suggestion: ------------------------------------------------------------------------------- (* for more infomation on BETA, * see here *) ORIGIN '~beta/basiclib/v1.4/betaenv' --- program: descriptor --- (* Author: Jorgen Lindskov Knudsen, jlknudsen@daimi.aau.dk *) (# bottles: @integer do 99->bottles; drinking: (if bottles>1 then bottles->putint; ' bottles of beer on the wall, '->puttext; bottles->putint; ' bottles of beer.'->putline; 'Take one down, pass it around, '->puttext; bottles-1->bottles->putint; ' bottles of beer on the wall.'->putline; restart drinking else '1 bottle of beer on the wall, one bottle of beer.'->putline; 'Take one down, pass it around, no more bottles of beer on the wall' ->putline if) #) ------------------------------------------------------------------------------- Jorgen Lindskov Knudsen, Computer Science Department, Aarhus University Ny Munkegade 116, DK-8000 Aarhus C, DENMARK E-mail: jlknudsen@daimi.aau.dk, Phone: +45 89 42 32 33, Fax: +45 89 42 32 55 ************ BETA information Sources ************************ * WWW: http://www.mjolner.dk * * http://www.daimi.aau.dk/~beta/info * * News: comp.lang.beta * * FAQ: http://www.daimi.aau.dk/~beta/FAQ * * E-mail: info@mjolner.dk * * Address: Mjolner Informatics, Science Park Aarhus, * * Gustav Wieds Vej 10, DK-8000, Aarhus C, DENMARK * * Tel.: +45 86 20 20 00 * * Fax.: +45 86 20 12 22 * **************************************************************