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