[net.lang] 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

aeb@mcvax.UUCP (Andries Brouwer) (11/18/83)

/PRINT "MERRY CHRISTMAS" 15 TIMES (IN PAL: PDP8 ASSEMBLER)
START,	JMS	PRTXT
	"MERRY CHRISTMAS"
	ISZ	CNT
	JMP	START
	HLT

CNT,	-17

PRTXT,	0
FIRSTH,	CLA CLL CMA RAL	/CONSTRUCT -2
	DCA	HALF
	TAD I	PRTXT
	RTR
	RTR
	RTR
	JMP	.+3
OTHERH,	TAD I	PRTXT
	ISZ	PRTXT
	AND	(77
	SZA
	JMP	PRMORE
	TAD	(215
	JMS	TYPE
	TAD	(212
	JMS	TYPE
	JMP I	PRTXT	/MIGHT JUMP INTO HARMLESS DATA
PRMORE,	CLL
	TAD	(7740
	SNL
	TAD	(100
	TAD	(240	/COMPUTE ASCII CODE (NO PARITY)
	JMS	TYPE
	ISZ	HALF
	JMP	OTHERH
	JMP	FIRSTH

HALF,	-2

TYPE,	0
	TLS
	TSF
	JMP	.-1
	CLA
	JMP I	TYPE

$$$$$
-- 
      Andries Brouwer -- Math. Centr., Amsterdam -- {philabs,decvax}!mcvax!aeb