/************************************************/ /* AS-Version of 99 bottles of beer on the wall */ /* by Juergen Buechner http://www.jbuechner.de/ */ /* created 2002-09-10 06:17 in the morning */ /************************************************/ RTN BEER(§in,§out) §out = CONCAT(CHAR(§in,'<&&&'),' bottle') IF §in > 1 §out =CC(§out,'s') IF END §out = CC(§out,' of beer') RTN END /* IN didummy OUT * WHEN §START DEF Ünrz(N03) DEF Ütebeer(A80) DO Ünrz=100:1<-1> CALL BEER(Ünrz,Ütebeer) PRINT CC(Ütebeer,' on the wall,') PRINT CC(Ütebeer,'.') PRINT 'Take one down and pass it around,' CALL BEER(Ünrz-1,Ütebeer) PRINT CC(Ütebeer,' on the wall.') NEXT RUN