[net.followup] PRINT "Merry Christmas"

rene@umcp-cs.UUCP (10/31/83)

Allright, how about pascal? 

PROGRAM PrintChristmas (INPUT,OUTPUT);

VAR

	i: INTEGER;

BEGIN
	FOR i := 1 to 15 DO
		WRITELN('Merry Christmas!');

END.

(some compilers require input, even when you don't use it)

				- rene
-- 
Arpa:   rene.umcp-cs@CSNet-relay
Uucp:...{allegra,seismo}!umcp-cs!rene

zben@umcp-cs.UUCP (10/31/83)

. Univac 1100 assembly language (MASM).
	AXR$			. Define regs
	ASCII			. Characterset
START	L,U	R1,15-1		. Do it 15 times
	L	A0,(0104,('Merry Christmas'L)) . Print control word
	ER	APRINT$		. Print the line
	JGD	R1,$-1		. Do it 15 times
	ER	EXIT$		. Exit to O/S
	END	START		. And a happy new year!
--------
Ben Cranston       ...seismo!umcp-cs!zben      zben@umd2.ARPA

diamant@cwruecmp.UUCP (John Diamant) (11/01/83)

Before these newsgroups get swamped with programs to print "Merry
Christmas", PLEASE send your responses to the original submitter (not
me) and not on the net.  I believe the original article was from
...decvax!harpo!seismo!umcp-cs!aplvax!ded.  If he believes there is
enough interest, he can summarize, but I would rather not see hundreds
of trivial programs submitted separately.

				Thanks,


					John Diamant
					Case Western Reserve University
					Cleveland, Ohio

				Usenet: ...decvax!cwruecmp!diamant
				CSNet:  diamant@Case
				ARPA:   diamant.Case@Rand-Relay

jlw@ariel.UUCP (J.WOOD) (11/08/83)

This is my Merry Christmas candidate written in `m4' :-)

define(`merry',`ifelse(eval($1),eval(0),,Merry Christmas
`merry'(eval($1-1)))')dnl
merry(15)dnl



					Joseph L. Wood, III
					AT&T Information Systems
					Laboratories, Holmdel
					(201) 834-3759
					ariel!jlw