[comp.binaries.ibm.pc.d] Morse Code Program for PC-XT

W8SDZ@SIMTEL20.ARPA (Keith Petersen) (05/30/88)

Gregg, there are a number of morse code programs available from
SIMTEL20.ARPA.

Filename			Type	 Bytes	 CRC

Directory PD1:<MSDOS.HAMRADIO>
MORSE.BQS.1			BINARY	  3712  2C78H
MORSE24C.ARC.1			BINARY	 64549  5AFBH
SM101.ARC.1			BINARY	100979  EE8EH

For license test preparation:

NOVICE.ARC.1			BINARY	 55728  8A81H
NOVICE1F.ARC.1			BINARY	 43264  8DBCH
TEC2.ARC.1			BINARY	 46525  D778H

Good luck on your test!

73,
--Keith W8SDZ

sherlock@xanth.cs.odu.edu (Brian N. Hurless) (05/30/88)

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?"

rusty@cadnetix.COM (Rusty) (06/02/88)

In article <5391@xanth.cs.odu.edu> sherlock@xanth.cs.odu.edu (Brian N. Hurless) writes:
>In article <KPETERSEN.12402250651.BABYL@SIMTEL20.ARPA>, W8SDZ@SIMTEL20.ARPA (Keith Petersen) writes:
>> Gregg, there are a number of morse code programs available from
>
>	Morse code program did you say?  Well, I happen to have one handy.  

(program translation: .  _._   ._  .._  _._.  ._  .._  ._.    etc.)
(or                   e   k     a   u    c     a   u    r   ......?????

Hmmm, unless I have REALLY forgotten the code, I cannot make heads or tails of
the message here (partly :-), partly serious).

>This compiles and works, believe it or not!
>
Yes, but what does it SAY?

    Rusty Carruth	N7IKQ	DOMAIN: rusty@cadnetix.com
    Cadnetix Corp.		UUCP:   cadnetix!rusty
    5775 Flatiron Pkwy.	        	{uunet,boulder,nbires}!cadnetix!rusty
    Boulder, CO 80301		(303) 444-8075

rickc@agora.UUCP (Rick Coates) (06/04/88)

Rusty writes:

> (program translation: .  _._   ._  .._  _._.  ._  .._  ._.    etc.)
> (or                   e   k     a   u    c     a   u    r   ......?????
> 
> Hmmm, unless I have REALLY forgotten the code, I cannot make heads or tails of
> the message here (partly :-), partly serious).

>> This compiles and works, believe it or not!
>
> Yes, but what does it SAY?
> 
>     Rusty Carruth	N7IKQ	DOMAIN: rusty@cadnetix.com

Give the author a break! :-) This is only a two level pun (looks like Morse,
compiles in C) not three level (first two and has a real message in Morse).

BTW - this code is from the annual Obfuscated C code contest.  I'm sure
that some sort of statement is being made when a winner in an unreadable code
contest is being used as useful code, but it's too obscure for me.

(I can see it now - Zen C coding ...  ommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm)


Rick Coates

tektronix!reed!percival!agora!rickc
OR
tektronix!sequent!islabs!ateq!rick