[comp.binaries.mac] HeartBeat 1.0

dburnham@peruvian.utah.edu (Dean Burnham) (12/11/90)

[HeartBeat 1.0]

This is a Pyro! 4.0 module.  If you don't own Pyro, then this bit of
code is completely useless to you.  If you do own Pyro, the make sure
to pick this up - it will make your Mac look like an ECG machine.

---
(This file must be converted with BinHex 4.0)

:$8KPBA*d3Q9KG#jcDA3!8dP8)90*9#%!!!!!%5i!!!!!bbC6593K!!)!!"%ZFNa
KG3%!!!!!!!!!!J!%3Q9KG(4#C@&d,Q4[H!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8%e[C&"C8Nm"!+-VT+UM+k5U!!!
4R3!!!!!!!!Qm!!!!!)Q6!!!!!!!!!!!A'!!!"!J)i-'fJ!i1#K3'BXiE%(63K+%
$iNiC%'2#Z!&KTSkFL'ANJ%M6"SkF0hBZ%K"5CL)G!35K0(P$"NS@+8m'%J4%%)!
""MePdV5*8fG!RJ"NV1R*P1QS&&UD0Bh3b386+QM5c1'BKXh&-@rUX#(MTKT&-4I
PP)%6*SeD-La!S-eBCmj&N!"U4fjemiCL'EjecU$KU2BL'DeV'V)G8mE&%DaDZAV
&'(CXfE0TelCp'hGZQ,Thd4K'$1+0())r"L)&-##'#aJdA-13!*X(4"!f'N&3F3(
Lb*Z*CHBd#-)A,q%bCF5NZ@MQC"X36r"H#D1@i!B#!&B2S2%D!T3m*d1!i$kl$8f
aC3JL%K"!*hB#,*!!Y2c)FQ,RfVGclqlpQdl`"Y'**XGdDX893`ij`0$8JJ`fk1#
$%%ES)&!Hq!3!GJ09f*-B!"6!P)B!q!!!(3I!Y&T!&GS4)J$UP!K!)%aG3G!G)lS
S5)`!U%KMLc!0`Y3M"1h#SSZ%-(8-!"9H%`!#,KC#d!K-J6"L3$T9Z+44!$"!K"a
Kh*'''fH!`+9r"(%3jC6Y"B5!3!KJ@B!5GC3d"d%PR%N(!1`&T!#E@$V!a*HKT6(
''Qi%0fG!82BNjCd$k13K!'hfa!!9*0heN!!CBC!!N9j!6$$&!SXAkN5'QNB"8X-
3%VR"@'PQJ#!IG43&33FGB3cD!!T3U$A(9Nr!38FDEfa%ad0MT(V'4@,8&N-*+4#
N!e-3J2US3!3Pd0-)3lc"KQNJQ1G''X2+JF)F+C6Q"KYja*9'Uf(Bd4CZBRK&%!%
kl4Q3!"R8"Q4Q3%j)b#!J@%)U-)0)%&4`6`-P[+!9rMEi6e2i'V8[!2dfc"6!6+f
j*X%'-k9``!%aE(&6lN#F,`!69ccb83&Vh1$"!-"-*E8J!b$bbJ4eBl,%"+Qm-XB
pZFaa3$,6I(*20q--!$-lPpQcdYQe22##-"IpmF*3"b3N8a%lc5r83"-N008G)fa
d8dRMV%V6qMkYG0KU6Ye8e4kIc96D+fI#0XTZi`bh`"Z66A6G#U1G03#)l*dbf&)
(2RIC"&eYH0BdFRhbiQmhrM,N-aGqpq(i@XlcejPR,$G6G*[Y1G+(9k&ihcpV2R6
-K"p0%0iM%r%kkAl,,MMYUYXHmZ%cl%iaikBlMMVR4YH-Zm8L'1rcb(q2rIMJ`6Y
rH!40RHB!JiP((ci!DjG22[P!P%p!q85`lhi%UV322a@U`&p%rDT8NIrq9EK6K5l
pUm)U!VJ,!PEK(eABa`'Vm)X&)[#""qc'2ql`$`P5m"mBc1$$1U3**iJ-#HF!!!C
3i!B!1-!%*93!$&`!+5N!B3dbB!!3m13'&N!$#$$BJ8qFX!qa!5"D((##,J$J!K-
!!3`8H-%#AX!!)3E!'P"i""J3S%3K!N!A@(K%#jB!!!N``4dB!-!rm1%%,i$J#pl
J"`!8i!4SJ$!#'-M#)j!!J!F!d%+)"'#'#Ei!JJ@F)5#'N!$M#hJ`"$1Ni3a`!-!
2!)#+$k#!M``iJaPH3!%361%&#)!$!ej!-9d3!"G#1))PNA!-%"cJ()"!!K`3`)!
Im#!l-$L!#aH*4eE)%3D[E!3NMV")96"JP+8m3$N!%B*2))!2`$6P-*8!Lf1DBC-
,`+-C%QP%2cK!#NGJ`"&-f!C@J%%"9I3N&+J*K$ibi4XB3)36k["'#*MJ$6m-C6+
&#BJA`1#BUN!!0VA*6A@%N`!H1#F#e-R1F``!!McJT!EHq8-IF0)#5M$#(`%!#3B
BJ69X#!Jaq-Q)M!+!&k4N`#%b1+b!`)+IH(L$!3L`68D!33Vmj-%E%%#%)hL$$`!
J!aL)`%m+U*5P!+!!'(#J"0r3e+Bi&@TmMJ%(E-$L%'aBk4(q`3i`H)#8F1$%8pP
`e*[qJaKJF%")4iV"B4'!TIqJ!bP013j!4')+Dce!@b1a&!+!J3Im&!3EE)"9A@c
9"I`N`dqh+3J`F+#SEf"!,+("KhrSJJK!%"%B'0$AVCjeUVVia"3q89H"!Q1G([`
(1%$i!3bJ-%Z@())l4#X#E,5fY5[m"cQ3!!!-&!"!()5),6N#G`B"5)%)5R$$2mc
a6"J3)"LV&8F2J$$'EmE@(-%JaR,(+-F2Z1!Ikd##F0N"JK)L!!4S#+S6)2&)lIi
$(XD&l#*Mb`lDLL19a)!%)GClAA*!JJMdTDTl!5'$qL)K'0+!Vb6Q'`"8R+)(`SA
(2r5"i(r3iarm%)*`r4&EHG#f[rm3Kc4`kS"KV"BIN!!)")EGm9pC!-+MRUMZGE1
lhHj##VcL*HmAc)YH!UJA!1cG,a,L1emFerHqq@d[-0k,iGN#@-!%0R#$&FaJi6k
B(h!3!#`Q(&8*rm-IB+""P+GmC6-B3!S6"S-*U[#)4#j5$Q4)MBZr'ei#M"F'(q!
b1U)+jLZ$B586$Zj`3mH*f1)M%X+9Kjm"r3plK,,"qMK[JrRKi!TIq,SN$SBi!U%
#!'JL%,(e"fdjLB4L[+!!0"CL2pK3e#Hm)dYQJ!#0Ie"I9XX@&E)!!`L8m#N&R%'
X#EEN#f`,#e8mB,)d(Q9ikB#+AIJj'S%qYR$YXFpY#U!0B[3$'!*#MYL+Jl%Q41i
B#5hSkekE`pVqml*$@G3c%##48l3fC'RlbQN$3"#)9V4`'8d24`0Ma2qGG+8[RHP
0amc6S%k`%2R"LP+IQJ'TAR@Vk`YV-,#!eQXm!`@#$GGJ$Y1Hq2be"#JH9e5UNTA
&cNDJ49jS+4L"&m)e"l6rSBGQFe1-@[#cYX@"l(pdHi`cVlNpb!b($d"#Z1"Bj*T
KM),a+Z%$Iq`(+Vk)!AamYBcV&!%I2`!+*VJ!%%k)3b*IN!#!'!"$!#"B*lVY)A8
3I#!8)R#"1K1YMV*r!43MF%+L`5'#$jMGlD"`J3L#)2Gr3-1$!FR#%`B*K5"3B35
XAQ-U3#'#%[i5k4`!36QK!!--p"G5Ei#!,)$J"JC-)3MQKJ)5`)#29HDpM'H-BKY
R&K#$)%3K!4!'!%M3#8`J3"TPLMfN8L+(13e%#80`!K8kj5%a`)%YGrUH+T,J"M2
!8b"H+13KUD3')L4Kq&5bJaA#`)C$"8!3K6mmP4b4UcH-J8UD%!J''b5!p3GN#"I
$S*3#-+UH"%,q!PN%8`5"r`#XJLQ$d(r8`"5%d(mpe"1&J(m#`%8p!3J+'!P-FAr
r)#8#F)!%`Am6b"UE3K!"Q)%$m!`%L(m%N!!$6*'!'8J!Sm!8KS"r"G!!6%&@8P)
!PD-H,"J16*%)q'F!$%J3LT!!JlA!&)Z!I`I`!8c"#%+B#%c4#%)i$dcK#2L(!&h
3&1i(!"c#&&0B-PDBJ3$J$r'h33+!K!hiK%H5K9+5!$h3%`!$$8KPBA*d3Q9KG#j
NEhJ!2VPB!$kjDJ!qZAVrr`!$rrrrrrrrrrm!-bh%!$(dP!!cPaJ$'!%'!#X!!3!
!!$-YhP4&@&408eG%!3#M+k@HSbd#H!!!!!!!!!X3!!!!!!!!"R`!!,Qe!!!!!!!
!aSJN"Fl5,2F#NK4++Sp+Q)UYDN-RZpK#kV&CVH%094+*6EECG!@X65K+I8bVVM0
CEBl4C4H8XAC8*KFPZ*F+(69i6LG#JdC5+B@Up%[Q5CcQb!0)cLB%Yq1Gaf@Y-)q
FrNAP8+VGedL@bBc,ii0l`+K(26LBFLEc[@e6H3bk),BpCm`A)Ndl2Y,bpRmkKPq
E6RFGRi0)cLB$pdJLqB1Gaf@Y-)qFrNIpPN[1MA`RAYVNDedAaa-$RFGPVITRq&G
3MQ[qp+-[MLB#F*HdRfCVr[D1IFJPP9`DF6!EQ&IarF%aPjdTRq&G35$,09hmE@m
Pjdjh(C'Aa`1a[`D@+KM2SeBKeiUk2lmI'd+VJdIh"-CHG*[1p+CrKA8,bpR%`(l
T"0r,RN*)c9q"qc$hifYj&[j3S!8@G2eMMhZqXPQeRb#q,cTM2SeBKh6pAV,"&2e
$phkp#J!e$VYVjJkpkBFSXkC9M1p,cTk&-@pj&jdMG,hTpVAlH%kpMDeUIpG[i8@
G+bh[5mkHK6&[H4HG+ClTDdk+J`[0[Lj1*KdLI(!afBHr(CCUZ,fXqq&'SYTCRVp
@[!QfAP8+bf4cdbV'5X[q42MJBl-2IM2Cae%Ac&(q8!'T`TC3`j4C9$rEhY+qe$-
YNEp,cTr0MDeU8ccD0VH6Aab,HpHeRa-CHG2qZf[Q$(M'Zr"T'AP823TLhSU#8[@
[)[1Mq@Pl@I$DeU4DFfpi%TQEcb)S@Ffpi%V,I`D@-ED%ETHp(pq8ch6(-XXm$SA
R6d+BYk,l(ZZQTmS!IEAfPjA("l83`j4C9"8,cSb[eE84IZk6'AR6qEq$5c&r%@M
S*5pDMS6l4PIUfTFMS9IV'MSA[LM43X5DGEc[G&m4EEHliV-i%)Y5k2mS!85dkA*
'rqQ(+,1PGmaH5BbmkIcEA3YeU+KLpFB9Hpr)qc5AP823TLh[`Dc[C)YAc"k5h@S
pMeVb(pq4VcD4D[Q")Bj(+cjJYeUAPl&3LPK#mk2jDAYCmIbhli0#mVl!,C@C`)4
DPLaR%`%fbmUKc2@'Pb6lIP!$k-[l(5Bcl@[fcl&fq1!`j4C9"8('GlM[VGM6QHX
0'mVMNkr[jTV`B["03I`mATl5p6ZH,c5A*11-1r"T'AP8-Zbc[N,EA(4I$RCEj&j
dLel'eV8MUpeAfNFp*pSYlel@I$qr,c[KL5*mF"FRTl5p5MA)QkAP8-Zbc[Z4HdX
ceqVAJakrX"HG'GlM[VGM5$*FM9jr2SrbJ"p%eRT62PZHdC+16k["KaT'AP8*CYC
m+KMRFF'rmMLB$DeU6k[!QkAR5,AXRaM0Ck*MhGmR`D4R%`2j-[cD46HH3d1lM00
1qr-FlMJAc"H93PQeRa2Z4&Z,`65mk2jDAYCm9QF#%@hHp&mBc@Hr+&!"SAUA[jH
93TRq&G*m2i`YU2hRhh2'e[)jp+ipRapE$a,CM0CkB[hrN!$e[-`Bb,BQCKAmERZ
!E@mMqi-Cp'V%1[Dci[,fFlMXRTl5pDm$Fp`)0VHIK4C9"81EHSXq'Vmjr)LKBYL
S*DeU,l'D@DlHr$kH"LAU4cdjYkLciD[aULSA)rrj,0V2RU*-2IS4cd[1RTl5p5,
A[NAR4i[6fPkN@[Br[bmk4eHkVl5M0jh`d)epq6dr9KEAlZL66SN&YiUk*-2IT4r
JdM1*J9A"Sr[b#DAP8+CrKAH4rf@5R4cp8`$DhNlY`liCP,GMH3r[aSeke%hhja-
#mk9Hp5rKp,i0%Kh5m[Ca-"IBeKrSiQClC[e-eIcfXq*M'm[Ca-"YrAb(pq0jHcQ
hU,2MLB'-1pheei-[cEb%ND(mqDpRh)*BQqr)Ra`&jd4kG%Z%FCHAXiQ!rG(VhAr
i))[Q2P#J"K9jhZ'2h48)ql[)LKI)G"kY[`R)HY6UXCY"qkGe0lcEq4F&jdH&jR[
`SXUJcf@1[58[`HQb,4*Vq6dAf0BIlq0VH4rF$2CrKMCHAX9"*Vrb'e[-`XaRbEk
bBbmk2#mchj3S!ICRS[X03AUkJm8`XIh"K9jhZ'2h4RXr`a[N0p@pq[3!!!$l&Am
8A`DP,hU8!!!!`Umlh$(lY!!!!2[HIK[$CcRlAH%2SIh%q-*VcIr+!!!!B@pE2Y[
JdqKEij!!eL`2VB3eHIpr3S!B@[XG'Kr2Q[C5q$4rF&-qhJQ1-Q-[+S*F)iq4&SN
1kA)Qqr1lF1q'C5hBdZ5Pm'L3!1kAPl1*J-EBjh@DmI+!K)N!!!:
---