Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!killer!ames!xanth!sherlock
From: sherlock@xanth.cs.odu.edu (Brian N. Hurless)
Newsgroups: comp.binaries.ibm.pc.d
Subject: Re: Morse Code Program for PC-XT
Summary: morse code program, source
Message-ID: <5391@xanth.cs.odu.edu>
Date: 30 May 88 06:05:46 GMT
References: <KPETERSEN.12402250651.BABYL@SIMTEL20.ARPA>
Organization: Old Dominion University, Norfolk Va.
Lines: 53

In article <KPETERSEN.12402250651.BABYL@SIMTEL20.ARPA>, W8SDZ@SIMTEL20.ARPA (Keith Petersen) writes:
> Gregg, there are a number of morse code programs available from
> SIMTEL20.ARPA.

	Morse code program did you say?  Well, I happen to have one handy.  I
got this off the net a while back.  I'm afraid I don't know who the author is.
It is so short that I have chosen not to shar or arc it.
	Here it is:


-----cut here----morse.c----

#define	DIT	(
#define	DAH	)
#define	__DAH	++
#define DITDAH	*
#define	DAHDIT	for
#define	DIT_DAH	malloc
#define DAH_DIT	gets
#define	_DAHDIT	char
_DAHDIT _DAH_[]="ETIANMSURWDKGOHVFaLaPJBXCYZQb54a3d2f16g7c8a90l?e'b.s;i,d:"
;main			DIT			DAH{_DAHDIT
DITDAH			_DIT,DITDAH		DAH_,DITDAH DIT_,
DITDAH			_DIT_,DITDAH		DIT_DAH DIT
DAH,DITDAH		DAH_DIT DIT		DAH;DAHDIT
DIT _DIT=DIT_DAH	DIT 81			DAH,DIT_=_DIT
__DAH;_DIT==DAH_DIT	DIT _DIT		DAH;__DIT
DIT'\n'DAH DAH		DAHDIT DIT		DAH_=_DIT;DITDAH
DAH_;__DIT		DIT			DITDAH
_DIT_?_DAH DIT		DITDAH			DIT_ DAH:'?'DAH,__DIT
DIT' 'DAH,DAH_ __DAH	DAH DAHDIT		DIT
DITDAH			DIT_=2,_DIT_=_DAH_;	DITDAH _DIT_&&DIT
DITDAH _DIT_!=DIT	DITDAH DAH_>='a'?	DITDAH
DAH_&223:DITDAH		DAH_ DAH DAH;		DIT
DITDAH			DIT_ DAH __DAH,_DIT_	__DAH DAH
DITDAH DIT_+=		DIT DITDAH _DIT_>='a'?	DITDAH _DIT_-'a':0
DAH;}_DAH DIT DIT_	DAH{			__DIT DIT
DIT_>3?_DAH		DIT			 DIT_>>1 DAH:'\0'DAH;return
DIT_&1?'-':'.';}__DIT DIT			DIT_ DAH _DAHDIT
DIT_;{DIT void DAH write DIT			1,&DIT_,1 DAH;}


This compiles and works, believe it or not!



-- 
Our OS Who art in VAX             |   Brian N. Hurless, Computer Science Dept.
Unix be Thy name                  |   Old Dominion University
    Thy programs run              |   INET:  sherlock@cs.odu.edu
    Thy syscalls done             |   UUCP:  ...!sun!xanth!sherlock 
In Kernel as it is in User        |   DISCLAIMER: I lied. 
                "For I also am a steward.  Did you not know?"