Path: utzoo!attcan!uunet!lll-winken!lll-lcc!ames!necntc!ncoast!allbery From: peter@sugar.UUCP (Peter da Silva) Newsgroups: comp.sources.misc Subject: v03i080: Re: v03i076: Just for fun (something which once appeared on the net) Message-ID: <8807130507.AA26710@uunet.UU.NET> Date: 13 Jul 88 05:07:49 GMT Sender: allbery@ncoast.UUCP Reply-To: peter@sugar.UUCP (Peter da Silva) Lines: 34 Approved: allbery@ncoast.UUCP Posting-number: Volume 3, Issue 80 Submitted-by: "Peter da Silva"Archive-name: more-xmas [Introducing the major motion picture: THE CHRISTMAS THAT WOULDN'T DIE! Now showing at theaters near you!!! ;-) ++bsa] Ratfor (from the book, with the DEC F4P Fortran): do(i=1,15) type *, 'Merry Christmas' end Ratforth (AKA Fifth, a language I hacked up to make Forth less ugly): define christmas { do(15,0) { type(count("Merry Christmas")); CR; } } This produces, by the way: : christmas 15 0 do " Merry Christmas" count type CR ; AREXX: /* Say Merry Christmas 15 times */ do i=1 to 15 say 'Merry Christmas' end i --- -- `-_-' Peter (have you hugged your wolf today?) da Silva. -- U Mail to ...!uunet!sugar!peter, flames to alt.dev.null. -- "Running OS/2 on a '386 is like pulling your camper with an Indy car"