home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume3 / more-xmas < prev    next >
Text File  |  1989-02-03  |  1KB  |  47 lines
  1. Path: xanth!mcnc!rutgers!ucsd!ames!necntc!ncoast!allbery
  2. From: peter@sugar.UUCP (Peter da Silva)
  3. Newsgroups: comp.sources.misc
  4. Subject: v03i080: Re: v03i076: Just for fun (something which once appeared on the net)
  5. Message-ID: <8807130507.AA26710@uunet.UU.NET>
  6. Date: 13 Jul 88 05:07:49 GMT
  7. Sender: allbery@ncoast.UUCP
  8. Reply-To: peter@sugar.UUCP (Peter da Silva)
  9. Lines: 35
  10. Approved: allbery@ncoast.UUCP
  11.  
  12. Posting-number: Volume 3, Issue 80
  13. Submitted-by: "Peter da Silva" <peter@sugar.UUCP>
  14. Archive-name: more-xmas
  15.  
  16. [Introducing the major motion picture:  THE CHRISTMAS THAT WOULDN'T DIE!  Now
  17. showing at theaters near you!!!  ;-)  ++bsa]
  18.  
  19. Ratfor (from the book, with the DEC F4P Fortran):
  20.  
  21.     do(i=1,15) type *, 'Merry Christmas'
  22.     end
  23.  
  24. Ratforth (AKA Fifth, a language I hacked up to make Forth less ugly):
  25.  
  26.     define christmas { 
  27.         do(15,0) { 
  28.             type(count("Merry Christmas"));
  29.             CR;
  30.         }
  31.     }
  32.  
  33. This produces, by the way:
  34.  
  35.     : christmas 15 0 do " Merry Christmas" count type CR ;
  36.  
  37. AREXX:
  38.  
  39.     /* Say Merry Christmas 15 times */
  40.     do i=1 to 15
  41.         say 'Merry Christmas'
  42.         end i
  43. ---
  44. -- `-_-' Peter (have you hugged your wolf today?) da Silva.
  45. --   U   Mail to ...!uunet!sugar!peter, flames to alt.dev.null.
  46. -- "Running OS/2 on a '386 is like pulling your camper with an Indy car"
  47.