Path: utzoo!attcan!uunet!lll-winken!csd4.milw.wisc.edu!bionet!agate!ucbvax!pro-angmar.UUCP!m.tiernan
From: m.tiernan@pro-angmar.UUCP (Michael Tiernan)
Newsgroups: comp.sys.apple
Subject: Morse code program
Message-ID: <8904231401.AA11286@obsolete.UUCP>
Date: 23 Apr 89 13:01:06 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 81

Here's a program that I dug out of my files.  I've had this since I got my
computer as I remember.  I think it's out of a magazine but I don't remember
which one.  I think QST.  It's fairly simple but it works good.  If you put it
on anything but a 1MHz machine, you'll have to adjust the timing loops.  Its
in BinSCII 1.0.3 format.

I'm sorry that I posted it here like this but I can't get any assistance in
finding out how to do it anyplace else, so this is it.
 

<< MCT >>

BCS Apple/Boston Connection     [MCT] (617) 893-5681
GEnie                           M.Tiernan
AppleLinkPE                     M Tiernan
BCS Net                         Michael Tiernan
obsolete!pro-angmar!m.tiernan@bloom-beacon.mit.edu
obsolete!pro-angmar!m.tiernan@bu-it.bu.edu
pro-angmar!m.tiernan@obsolete.uucp
m.tiernan@pro-angmar.cts.com

FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
EMORSE          AogdAAAABwfIHIACoeJAXigMIIDqAogdAYw6
KgwYxkLA0MjNxwiN6UjN2ETu3QzM6ADL2ETu4QzM0IDL5qDMzYTMskDN5qzMzYTM
sATNzcTMxkrO1MjN0wSM5qDOzYTMsITNykTMxkrO1MjNxwyM6YzM2ETu0UzMwIDL
FDAOAQBC2ETu1UzM6QDL2ETu2UzM5EDL5qDOzYTMscTN5qTMzYTMsgTNwQjMxkrO
1MjN4wSOxkrO2MjNywCM6IDM2ETuxYzMwIDL5qDOzYTMsIjN2QjMxkrO2MjNxwyM
6YjNIwPA5CgHzYTMsQjN5qDMzYTMsUjN6YzN2ETu2YzMxIDL5qDOzYTMscjN6MjN
2ETu4YzM2kDLKAgOAgSCEFEUFxERwUD0J4CAGCgMoQSQpgDNSNEL0gCJskCOkg0Q
4QDKBxSKoQSQpgDNJ4EAEBAP6ED0wAtRxYkOycD0wYkO6AD0Q7EVzYTMAYDNGlga
6cJAxAsuikCNk92QUBSZjFWZyVGa6qjIJ0JAECAUuVkIyVGdvNGIgUGZlB3cgQWZ
gUDKzAiPpBSNzBibwVGdvByc1AiZi4TKTN0OJ0KAtCQVRP1QwSMMwAjM7CAMAoVC
TNUrrCD0wgTMJgMADBwXUD9UTNEKYDQKAQWCTNUrEXD0QDDRAUDOulQ6D1KAxA9U
ERMM0ANM6DgMAgXCTNUr1ED0wQEx1ID0KsAAtCggQP1QEDjMQDDRAcTMMqAHD1KA
yA9UERcNxANMtAwMAYpCTNUrwMD0wQExwED0K0DAtCAoQP1QEXzMQDDRGBAOAoqC
5Ezq2BAMAQrC6Mjo5kMj6gTNFJChlRnbTBiclVGcWBCZ1xWYoASZ0BSM4Ayb(kSN
EtjIPCAMA4rCQHDRKDDRyqzMBREIMBCSH5URAgEVIrwviQIA05WRgIXZvByIlBiZ
tVGb05WZj9ycyFGa0NWYgIXZhB3cgU2Y7IiPAIDRSrg8iQIA05WRgIXZvByI0BiZ
l1Wa0BycyByblBXZgQXYjFWZsBCa0RXZgIXZ7IiPAAlUcvACYFIABHD06gDNSN0h
YhCJCqTKL0BABCg5xANW4QTwBdoOYhCJCqTKLUDA6CA8vRkIvlHI3BSd05WYvRHI
ioDILYFA6Cg(pEjIulEI0VHcoRHI19mcgg2Z5V2ah9mYiQmcLkHA6GABpIjIuVEI
yVGdyBHIsJ2bg0WZhh2YjFmcyVGdAIycOswniQYAgkyMjVmUlZXahJHIvRmbjBSb
yFGa0NWYzJXZLtjIzCgQBgxCCtEtyYzq1wCMsATMwkjMLgMA6GgIvRkIvlHI3BSd
05WYioDILoNA6GALpEjIlxEIlRHdiMncLYPA6GgNpIjIlxEIlRHdgMncOBiJi1Wd
zJXZmAgIBAEDzIChMBSK0RXZzJXZOBCLi1WdzJXZmACL1BFI0Nmb0FWdu9Wa7ICI
6I1Q2AwlBoEDSNUrEHD0QL1QAYjMUxgRD1aAyAtUSNEx2MD0MYFAtGgXQL1QDR8M
0AtUpBAOBgGDTDtQSNEKostypkSMAEDyyxwjzAbA6ATOoIer2ETy0gzMx8cKEfjM
xkcu2MjNwwCO2sqOiCAMBwHDxkcu2MjNwwCOzsqOAAjNGygrZFYABHD0AAlUQyAw
YFYABHD0Bhy4ChCJAkSKayA2GlbAxYELgIrOgACIUV0UPRFIAUkTk2wCq3aAkEEK
pIEKsgFLQnSMiEjIElLxxQELUxoOrqjTwQDNgIrOOV0UBBCRBREIAACSu2gJElbA
wQELUxoOyqjTFNFIgQkTEBSQAQVS42QTGlbAwYELElrOwQELUxoOyqjTgACIFxUR
OVUTTBCVDFEUAASRC3wUAIYAM3AeXFYABHD0JLDRyqTMINEIBJVQFR1QTBiUDFEU
MBSRQ90TNYIA5Gg1ExCRMqDMA4EVg3AjAIYA03Qr6IYAgIiuDtjIoQiU7kiQXFoO
BHD0wAjNXJoOAErO(3AvQPUADpDMwAdMAcpOI0w46orAFJChlRnbwBici9mctVGb
oNGIhJXYlR3YgMnc7IiPAQCUS0A8SNkAoMO0pQCUOwAADJAHIPE0DpTMDBdMxgcM
D1qOSN0zwYDxeAAMCYiDkEDUooO0sQCUxwyQqAQKCAjDQLUg0EcMZBAOCojDxAVr
DBNJoQiUEniQkg0QxMEKQBdK6QSMkEUQxMEKBBdKChCJrqTKwQTNOIIACKAR6orO
xAluisDJzlGIv5GIhBCdhZHIklGboNGIhJXYlR3YAIicO5wkxMkAxME06ETy0Uzq
nCAMCglDQL1QJHzQBqTMxAtQSNUwO0MADJgYoQiUQniQkg0QpIEKkEkOpIEKBFE0
ChCJCqTKzsqOAAjNs5Q5B5rA6QSQBFUrnDNJzEDKrScKAADN25Q8CFoABHD0AgDN
A(wCB1qAQTSQkI1QpIEKzALx6ATOyYzqWAAMCo4DrqjgwIjNPAFADKAlsEEIDxiQ
sQELGxSRscELJxCSsoELMxySs0ELPxiTsAFLSxSUsMFLVxCVsYFLYxyVskFLqBgW
C45DxAygsIDL0wyMsUDL3wiNsgDLwwSOPcJADKAquACIsICL)wiIs0CLiojIssDL
skCKXxyLUlUQSFELLNFLSVELS9kUP8MADKgsxADIwEDLsADMxATMxwCMsADMwwCM
wEDMxEDLwwCMwADMwADLxADLsETMxATMxADLAADM8CxDgMoAsETMsATMxETMxADL
sATMwETMwwSMsATMwADMsEDLxADMwADLsEDMxEDMwEDLsEDMxATMxwSMwATMQEFA
DKgxxADIxETMwADLxETMwADLxEDMwADLxADMwADLwADMwEDLwADMxEDLwADMxEDL
wATMxEDLwETMxEDLxETMQkKADKA0xADIwEDMxwSMwATMsETMxADMwATMwEDLxADM
xEDLwATMxwCMwEDMsATMxATMxATMwEDLwEDMxADLwADMxADLwEDMwADLwEDMwwSM
wADMwADMBDAMD4NEDBisJxUQBJlQgUEVV9kUOlEVHDQRDgOEPDwlDIPEwANWQAPA
5OA)GxiR5qTMExCRMqDM64EVTBisE5URgEEIUlERRcBA5SgBGxiR5qDMExCRMqDM
64EVgAisMVEIF1URgQlTBB1UgU0QRcCAYRAEIjF06qTMioiIxAwOEoREwEzqAAjM
QHBSgI7BUV0UPRFIgUkTV9kUOlEVOBQRHodEdBwlHQeEiDNW5QDKyUTMWCQKHkeE
sATuEFEUFxERxkrOwkDLxwoO0MjN5qjNwwCMxkrOwkDLxwoO0MjN6qjNiAiIEFEU
FxERmCwOH4eERjVr3ITMwIDxAAjM4HRtQH0B0gi42ETOAkCOCERwQjFCxkMWAgjM
MEx2Y1KCwED0BBFxMRERQBdRERUQIXET1DgMIYREQjVrEHTMEFEUFxERBBF0MRER
xkcRS0CAtiAIxANW6S8MiorOlhGVvRHIgUmbgMXa39mbgEGIsFmdgUWdgY2bQtjI
ERUQ6UETxIzqAADMqIxWY1KCx8c0Y1MMx8c0Y1cMx8c06SsMv5kI2BCdpxWYrBCZ
ikXZysqOwIDMSUGAriwLyAjM1BAMIQjEQHjREFEUFxERAErOAAAAAAAAAAAAAAAA
AYeR