rmonsen@government-center.bbn.com (Robert Monsen) (07/16/88)
[Costs DA]
This is a desk accessory I wrote which is useful for those who use "Pay
by the hour" networks, such as Delphi or Compuserve. It displays
either the time you've been connected, or the amount of money the call
has cost. Its free.
Have Fun,
Bob Monsen
BBNCC
Cambridge, Mass.
---
(This file must be converted with BinHex 4.0)
:#80[Fh4c,R"TG!"3593J8%P8)!#3""bI!*!%b`P36@&R"N0[Fh4%3@8ZFfPd!%%
QQJ#3!d%-CJ#3"U!M!!$T-!!!bm`!33%#!"`!-3#3!``!N!--!*!$)J""*IJ!!%4
'58a%68p@!3#3#4MTRXf6mTl0NrJqE!!!!3#3!aJF!!!A(!#3!md!N!3"c!#3"J(
+!*!'!FJ!N!B"aJ!!"N0[Fh4%383#!*!@[3#3)Tm$Gm8!N!BBk3#3"fB!N!B"0J#
3"J3@!*!1")!!N!B&,J#3"JRX!*!1$H`!N!B+N!!!N!B%b!#3"JXS!*!'#rS!N!B
01J#3"JUb!*!'#R!!N!31VJ3!N!-"DJ#3!eB!F!##!*3!TJB!3fpcG(-!N"PJ!!P
m6[S"9Nlk!@C1qJ&f6[S"MNlk!F"1qJ(F6[S"qNlk!KC1ZJ"b6VS!d%kk!34`!%k
k!(*V!!%36[S!Z%kk!&K1ZJ$ZF!&1ZJ"F6[S!E%kk!%C1ZJ$FF!*1ZJ"+6[S!@Nk
k!$41ZJ$+F!01ZJ!i6[S!5%kk!#*1ZJ#iF!41ZJ!Q$%$rk'F!!$)-3!!"CJ!!Z(!
!6[S!AL!I51F!1#4)*NNJ3%l32`![#bm+6VVr8Nr[!!Se3!!36R8-3!!"CaB)+J!
"!!CQ%#"+)NY-ha`!,cJ)r%jeF!![!#",T5JL@`JE!!CQ$+!U#"-!"QF%)%QJ+L!
I60mF!%je5UX!&'B`)$`!!)!!S%!`+`!B4N$V5!"!`!"3q!TH@Bm[2%4"9%%r!+Q
J)"mR3!!8C`3[!+Q56R8J+`!8C`iJ3#K3S#P1F8ja6R&1F8je2`!J+`!8C`K#U`!
8)%#J)c!IB*JJAc)B0"L`@&I*rrT+3QIq6[!Jr#"I-KJd',#B9mRrqNT#Crj1m#$
k)&mb'$3BX%*Z#T!!3@d'd%""m!!#-""RrNl`!!!J,`!%,d%!"#)[!!J[A`!%51F
m!#3!*J&)3X6$+!!U!8K&b-A84%K#N!2!`G##60m!2#)I6R8J,`!%,d%!"#)[!!J
[A`!%51Fa!%kk!*a-h`#-)Kp1G5![!!3[33!%)Lm!##pI!!4)jc%!6VS!I#!"60m
!M#)I6R8J,`!%,d%!"#)[!!J[A`!%51Fa!%kk!#a-h`#-)Kp1G5![!!3[33!%)Lm
!##pI!!4)jc%!6VS!$#!"60m!M#)I6R9+J'SF5S&U$%5!4)&1ZJ!J4)&1G85!6VS
!&N5!4)&1G8U"DJT%J8kk!!C%J%je,M`!!2rrXS"M"L)!F!"1GE#(BJb!`8K!-J"
#3%K!6R@bKf)D,J"#3%K!J-&)3%K(2J")4il"-!G)4c)(6R8N!#B"iSMLLE+(B[L
!`F#(-J2#`#i$5%I1`%K(dSGP#*+#BJ4%J8je8d"Jj!#3"%j@!!!`,!!!d'`!!L"
Z!!J`J#"Z!!a$l!!))0NJf5"Z!"!`V!!%)'i!&$#X!!C1ANje3dp14NP(9N%`,!!
'6R919[rm-#`!'&*!4%$V5&Q25(P$6e08"N$!!$m!UD!JAbe)rra+V[rmCb![,[r
m6VS+f#"Zrr`[%%KX!!")H!!36VS+E#mZrrbTSdjH6R9548&%3dp14Nj@rr``,!!
B8N"%31Y)@Bp)H8028e3'3-!!2`#TS#"I,8Mrr%UZrraR,LmZrra1ZJU#5'`!!#"
Zrr`[%%Ki!""1ZJS@,blrr%kk#N`[,[rmUDS[,[rmUE"1ANje9e**9%9$6dj19[p
1-#`!'&*!4%$V5&Q2"N$!!$m!5'lr9NKirrqTI#"I,8Mr8NUZre*Q"R!"B!!"6Me
X!!6r6MmX!!!r2!!$,blr8N*R6VS"3Nr[!!Sr,!!#2c`!"#mZre*#Cdkk!5a2l`!
+2b`!"Mmm!!8[,[p52c`!!8kk!442l`!+5Qlr6QFD2c`!!6mm!!B[,[p52c`!!Nk
k!2C2l`!+B"Jr2!!"2c`!"bmZre)r2!!#6VS!h%r[!!T#TdKZre#TN3aZ!!2r8'e
D$'i!"rp3C`J-EJ!'re"Qi!aZ!!Er8&I!4!")J$e!rdj+E[p19m"%!%L!2`!r2!!
(,blr8Mmm!!*1ZJ#-6qm!#MmZrdir2!!',blr8Mmm!!*1ZJ"d6qm!#Q#@$'i!!Ip
3CNj)E!!!2c`!!bmZre*#Cdkk!1K2l`!-5'`!!Mmm!!3[,[p53QG1ZJ$56qm!$%K
X!!Br2!!&,blr8Mmm!!&1ZJ#k6qm!$$PZrdi!"%kkrLS[,[p5UB*1ZJ'F6Pj1G80
26NC*4d026PEqmLmZ!!Sr,J!15'lrrNKZrrT)E[rbUBd3,J!*5)"1Z[T`!*!$!J"
J!!B!0!"3-'i!%#!)JI`!C$"Z!"!L#)2m!'4)38KZr[)r!6m!6VS#J,blrqNK
Zr[+TMf!S5'lqmcmZ!""1ZJ'QA)mG32lb,blrqNKZr[+TMf!+,blrqMmZ!"#TBdj
H6R96494*9%909Nj@r[)[,J!+2bi!$NKZrrj)E[rk5'lrmUQ0,blrqNKZr[+TN!!
3,J!*5)"1Z[R5!*!$!3!Z!!3!%LmZ!"")E[lb6VS#9B"J[,J!3F!!3,[lb2`"
)E[lc6VS"QNr[!!T1ANje4d98594&69C19[p1-#`!'&*!4%$V5&Q2"N$!!6m!5'l
r9NKirrqTI#"I,8Mr8NUZre*Q"(!"B&)[,[p5UB&9MkPd%"p+!'If9BqTG"!I5J"
QpNKZrdkTFN(X!!K$l!!3)0NJf8KX!!Jr,[p32blr6ULS,blr8UQ#2c`!"N*R6VS
(D%kkr*C1ZJ!16Pj1G8C*6N4%59036PErr%KZrrbT%&Q2U53JAdK3)'lrr#mS!"L
T$DNh6Pj1G895390&3da26PErrJaZ!!S!#'dF-'i!##!)JI`!#LmZ!!Sr!%kk!$T
FMce!rrjJ"%*Zrri`E[rqdHi!#M*Z!!JJ#B(m!!T)3!C!!$!3J$!Zrrj53%jH6R9
#3eC8)*!%6PErrLmZ!!Sr,J!)6VVrQPb228$rrM"Zrrl4lJ!+3K!`,[rq6Pj1G80
@9##3"8j@rri[,J!+2bi!#%kkrm*FMce!rri-EJ!"rrjQ'L"Z!!SLEJ!+%e!!!5"
Z!!T`-"#!F!)p32rq-#lrrNjH6R9$9P3b68P1)%j@rrj#E[rqB"i`,[rq`I`!#L"
Z!!K5VJ!)%K")JG"""N$rd$e!rri`,J!-8fi!$%T!EYBJEJ!1-+lrrNjH6R9"6P4
*3eC8)%j@rr`JEJ!-8Ui!$#e)rr`[,J!-2bi!#%kkrbCFMdM!dDi!$#"Z!!a5VJ!
-F#i3J#mZ!!`r,J!+6VVr0Pb2)#i!$*!!V[rm8S!JE[rm%)"1ANje6P909%p%6da
19[ri)'i!#&+Z!!JY52rm)'lrr"!35)!p32rk)'i!#%S3CJC`!@!!!+B`,[rk8fl
rqNT!E`iJEJ!)8Ui!#!`3!#jQjNTZrrTX)#mZ!!`JE[rm%"")J$m!)'lrr%KS!!&
1Z[lm6qm!#Q"L$'i!![rkCPBJEJ!)3LMrrb"Zrr`3%%L!N!"ZrrS[,J!-8d!r!#"
Zrra)D!!"6VVqaNr[!!T)E[ri2c`!!LmZ!!K1Z[kb6qm!#L"Z!!``%-(m!'63E[r
i)'i!$$#!B!4`!@!#F2p1ANje4%p-6%&58e419J!!-#i!%%kkpS3!N!-%!$S!#J!
f!"B!-J!L,bi!##mZ!!a1ZJ!`8)pJ(LmZ!!J[,J!-6VS!qP#2B!i[,J!),bi!$%k
k!-"3MdjH6R9038P1)*!%6PErqL"Z!!J!D'!!!!4+E!!HCJ!!N!!JEJ!)1@J!'!!
B@BqTG5!I+8!!'R$r28$rqQ!%8flrqPQ22blrqUP*)&q`r!!!CZaCMcmZrrSJEJ!
-,bJ!%UNa)&mY52rm5Ulrr'B%F2pJ2LmZrra)E!!JU6-[,[rm3QHT0DNh)'i!#$&
ZrrS!*Nkkq0`JEJ!)F$`a3!!L,b`!'Nkk!3aBMh!"18!!(R!!6Pj1G8&$3d966e*
C6PB!!%TX!"jR%L"Z!!Jr+!!QU6C1Z[aZ3Q`!(R!!6Pj1G8&$3d966e*C6PErp#"
Z!!``+!!D6VVe5!!,!#lrr`!U!!%!SJ"!!#`!33#D!%)!-J"$!*)!4!#1!%B!LJ"
(!)B!5!##!%N!IMmX!"LTYf!!!(3[,!!D6VS!HPL2B!!!CL"Z!!JLEJ!--#N!(,"
S!#CQ!!"5)'i!$$!S!"j1Z[6S!!%!"J"!!!`!2!!8!"J!(!!`)'i!#$mS!"LTYf!
Q6VViUQ!J6VVl,Q!D@BqTG5!I+8!!'LmX!"T1ZJ!B@)pJ"%kk!Lj`!%jH6R9"3d0
&8dp5@8j@rB")E[k'5'lqL%KZrST)E[k56VVhD%r[!""CMkPe)"q3!+i!#%Ki!$`
[!%kkp(BY32k#5QlqL'F!!*3`,[k'5-$4V[k#-'lqKLm),blqJNkkp&)Y32k#-'l
qKLm),blqJNkkp$3Y32k#-'lqNLmZrS)[#%kkp#*)H!i3,`"1Z[3N28$qJ$"ZrS!
J#)(m!'3`E[k!)JL$r!"N5%&)E[f!2`%r!%kkr#a3Md)ZrT4)E!"35'lqP%kk!4j
3MdKZrB")E[k86VS"%B!!!d%(ZrT8Y52jk5(J1%#mZrS*1Z[2%28$qJ%TZrS"
R)#mZrRSr,[k!6VVl(&b25-$4V[jk)'lqHP+ZrRT`1K#!5(J!2#mZrS*1Z[1128$
qINTZrS"Q&LmZrRSr,[jq6VVkjPb25-$4V[jkB#3`E[jq)!L"r!!m5%!p32jq,bl
qHMmZrRj1Z[V`A)p)`0'ZrRSJE[jk8UlqHR!k%)")H!!m,blqJNkkmcBY32k#,bl
qHMmZrS41Z[V!A)p)`0'ZrRSJ,[jkN!#1"S!!!!&V(8$qP%KZrj5SEd*RU)N`,[k
1d'lqLNM!JI`!!MmZrSa@3$m!U*0)E[k8U)4)E[q8U(e1ANje99"%394&3dp19J!
!)'i!#(!!%""53%K!3N")30#Z!!JJEJ!-FJ!5%#"Z!!a)D!!",`![!8kk!'JJEJ!
-)Qi!#"!3d4&1ANje8d0"9##3"%j@re!`,!!B8N"%31Y)@Bm'3-!#2`")E[p@5(M
rrkPm)&mY52p55Ulr8QB)2c`!#UR)B!j#TdKZre#TN5mZre+TJNjH6R9*6NC2)*!
%6PB!!%MR!6!Z,J!)*'i!$#CZ!""J#N(58ST$de+,%*%J"e1(5S"ZlNcI$)"1AL"
I6qm!$%l33Na23dY06eC19J!!)'i!#+!U6PiJAdr[!!41d%K96Na23dXJ6PB!!#"
Z!!LJ+8jH)&p2l`!%6Y")6%p$5b#3!dj@!!!`,J!)5%!`,J!+S$*1AL"I6qm!"%l
34Na98dK&9N8!N!05!*!9%!!J!*!),d0XEh0P1bdS1d0[EQCTCh9bC6Y0EhCP)&4
TE@8l8Q9cCA3l3@*[GA3J3fpcG(2*!53!!!B5"K)!U!#T!4X"B4%"!3!+!+J!U3%
E!@'B!"J!U!#S!0!"D!#S!+N!d!&K!+J!U3$3!@%!!!,T!!,T!!,T!!cj!!!Ir3!
#(i"!q3!0q3!())!!3!!33%$j!!hj!!G!$"jim"!JS2N!$IN!"i!5)-%!%"#Jq3!
0q3!(J#&!3J!3%4$j!!hj!!H!)6a"i"!4%2N!$IN!"i#K!N!3%"2iq3!0q3!(35%
#5"!3)JMj!!hj!!FL%J43)""##2N!$IN!"a`-H'2!(i))q3!#k3!#k3!#k3!'pJ!
!J28!$rS!!b#!!!(q!!))!m$k!!hk!!%JJ2`!!KJ%)2S!$rS!#5#1ERN'-`!)"#$
k!!rk!!N4%6#$#45!#!3JqJ!2qJ!*%5)K!4#BJ!J%)2S!$rS!#4%N)2%3N!#!#!3
JqJ!2qJ!*#LJJ#4#3!)!)"#$k!!rk!!N+-5!*-*!!J!J%)2S!$rS!#33L)"&*%+!
)C#$k!!rk!!N%(#(KKK$!#'2!qJ!#k3!#k3!#k3!'p`!!!I3!"[F!!!(d!!Eh!!!
"p!!)p`!#!6%)pJ!)p`!#!8X)pJ!)p`!#!BN)pJ!)p`!#!3N)pJ!)p`!#!3NBpJ!
)p`!#!4%SpJ!)p`!#!5&)pJ#B!"J!d!#S!2J"D!$3!+N!q!&K!0!!U3$i!@%!!!M
h!!)"`)Mf!!Ee!!!)pJ!'p3!!%2B!"[8!!1$f!!Ek!!!)m3!0r!!#!q!)rJ!"#!,
f!!hm!!F#%!J!!%!-"[B!%[`!$!)4LBFhH!S+-CJmFc$l!",m!!`#%NT)Q-!+#NL
N3)P)q`!5r!!-!q3X84"!#4+%a)%4L2X!%[`!$!-%+&)33!N5K)4j)3Ml!",m!!`
#K#K8%%!)SS5%"8%)q`!5r!!-!N3SQ*!!5!LLK)3&L3Ml!",m!!`#)NN4%&!)3NL
%+q`!5r!!-!K'1$K"J#%)`K[$K$2X!!ZN!!ZN!!ZN!!ZN!!ZN!!ZN!!ZN!!ZN
!!ZN!!ZN!!ZN!!ZN!!ZN!!ZN!!ZN!!ZN!!ZN!!ZN!&3%!%2d!![L!)2d!"J(`I(a
"!(cp!"8"!"$p!!+%`'$p!!B##%*#B3##r3!C&`!Sh6$`!)5JSaQ$ac-%"%*#83%
!-CM!!"NA!#KM54'!K+#NLN3)P)ML3N*4!J")T5!!'4F!4%'+%B$iN5K-5"%BL4*
mI%N#!)6')!!C&`"%33S3!-#4+%K(NK#*%N*#53)!K)3J!"NA!2j"#M!!S)SS5%"
8%)N53N*&!J+%K#!!Q!!B!2J!U!%E!@J!q!#T!4X"B3$i!+N"'`&K!!!C&`##34*
3!*!!LLK)3&L3!)Nb3N*&!35%K#!!'4F!JN%LPB#)K#5)8*%3U94#3N-`L%L%+!!
C&`##3F%CJ)5%)`K[$K$)Q(am36"`-)3`!!S#!!!"p`!!"2F!#`)!!!(h!!%$J2J
!"J)!!!(X!!,T!"2m!!d(a(!!r""iH"!(Jm%(J2`!%r`!$3JNL!!%-)5%-!K%!`K
!r!!6r!!0%!5)!!J3K)33!%J"#%$m!"2m!!dJ")'!#"#%K"!!5!%)32`!%r`!$5!
%FB!3%)5%%!#2J3K!r!!6r!!0)!3)!"!3K)33!3K"#%$m!"2m!!dJ*!J!)"#%K"!
##%%)32`!%r`!$4"%#!!J%)5%%!3)33K!r!!6r!!0#)5*J%!3K)33b!K"#%$m!"2
m!!d("('!3""iH"$2ai%(J2`!"[-!!%$i!!Ec!!#!q!!#k3!1r!!%3J!!3"$i!!!
3r3!6r3!*%%)!q)!3!!!$i2`!!"$p!"2p!!N33J#%!"!)!!)3r!!!%2d!&Id!$bK
#!)5$d`mH!K($acI)F2$p!"Ap!!mS3J#&K&5B)!)5*!LB4)N3r3!9r3!24%)!q)K
BL%!$j%J4%%85%2d!&Id!$d4#!-#)8)Jm!`5(NK"&)K$p!"Ap!!rq3J#JL0#)!J+
&!&3348)`r3!9r3!2JNT!N!#C8)N#!NBJ@*!!5BT3r3!9r3!2JP+!L+T3UJ3#*%#
4%&%5P2d!&Id!$i*M!)6%8-ai!K12$K"Ji4Mp!!Ei!!"!m`!'q!!!J2-!"[N!!!I
b!!,T!2m!N!-3!SS!'3!"!$`!!`'b!"-"dJ!!!5B!$J#3"AJ!L!#-!-3%!NpV!*!
&H!!J!)`!A!3'3f&ZBf9X!*!&#!"S!"J!S*!!!*!')!"S!$!!S*!!!*!'1!"S!%J
!S*!!!*!'8!!)!'!!F!B-4'PcF'aKH5"$Eh0d!*!&B!!)!(!!F!B-4'PcF'aKH5"
8D@eP!*!&#!!)!"N!6BJ%3fpcG!#3"5!!#!!`!%f)#90eFQ0SBA*RC9!!N!8)!+J
!'!$BL!B[)%K[GA)!N!8J!+J!-!$BL!B[)%K[GA)!N!8)!&!!'!"NL!-J)#3J!*!
&)!"3!$!!C)J$)#!N#`#3"6J!#!")!'#)#dGbB@jeE'&bDA4j!*!'1!#d!%X!eBJ
$8f9M!*!%3J#3"`B!"3"#!,b)-N0XD@0V)(4SC5"YEh9cC5"hD'9bC5"jEh8JGf&
ZG#"dD'8JG'PYC5"dEb"KF("PBA)Z!*!$%J#3#h-!Z%!#`B!!N!-D!$S!1!$D!4i
!!!%!N!I"J!9$Eh0dF`#3!am!9J#8!)`"8!!"!3#3"m'"#NjPGb"%D@&XEfF!N!-
I!&3!JJ$3!8!!!3%!N!I"JJT1CAFJ4'PKE'pR!!!"!*!$'"`!!"FF!*!$c3!&10B
$8!#3!a`!aJ!&4&*@8J#3!c*%394"!*!$2P"*3e3!N!0+3dp69!#3!eC%594-!!)
!BN4-6dF!!J#'!!`!!#!!N!3$1b$"J2rr!!!1XJ!&0YV"J2rr!!!2#!!&0XV"J2r
r!!!9(J!&0VE"J2rr!!!9-J!&0V,"JIrr!!!@A!#3"-'#rrm!!"DL!*!%`B$rr`!
!&VJ!"6Ii`B(rr`!!&YB!N!6"J[rr!!!@q3#3"!B!3fpcG(1`8e"0B@F43fpcG(-
J5@jQEh*YBA4TEfi!33aQ!*!'S#-!!1N`!!$,c!""!3)!(!!a!*!$$!#3!``!N!-
L!%%Pq!!!9%9B9%e"3d%"!*!&!ZS!N!5HcCQlRXfCZj8E3fpcG#"%35"LH5"bEf*
PFR3JE@pZFf9Z,Jd09'KTFb"cD@e`E'8JC'9cDb"KBf0PFfpbH5"TFb"eFf9N)(4
[)'YPCA!JG(*KBfXJEfBJG'KP)'0[Fh4c)'pQ)(9cD@jR)'4TB@`JD@iJFf9bGQP
MCA-JFh9MD!eKFb"%C@a`D'QU)'&ZC#"$Efe`G90PFRCPULiJ$3eAD'9Z)(P[G5"
MEfjZC@0d)(4[)'pZC5"[CL"dD'9cC5"cCA*fD@0PFb"hDA4S)(P[GA)JCQ&fEh*
TG'8JG'9bE@PZB@`JC@eeE'&dEh)X)(0dBA*d)(9`)(4SC3eMEh0dFb"%35"KFb"
cEfpZ)'&c)(P[G5"XEfFJD@iZ)%Pd)(GTE'`JC'PcF'aKH5"dD'8JFR9ZEQPZCb"
dEh4KE#"[CL"MEh0dFb"QEh)JG'KP)(0PFh0TEfiZ$3e$EfjQD@GeFQ8JDA3JCQP
bFh3Z)%TeFh3JBR*TEQFJDA3JGA!X)'&ZC#"MD'p[Ff8J)Q0[EQCTCh9bC5)JCR*
[E5"dD'8JE@9ZG5iJ5A4c)(0PE'9MG'P[ER-JBA*P$@ePB@jd)(4[)'*P)'pLGQP
[GA-Z$3eCEh8JBf&Z)("XB@0P)(4SC5"MEh0d)'4TFh"XBANJB@jjGfKPFQ8JEfi
JG'KP)(0MFQ9PEL!SD@jME(9ND@jR)(4SC5"YC@je)'*KFLNZ)%NJGA0eB@aXH5"
`E'&MC3eTG#"TEL"dD'8JGfPZC'ph)'CbB@eP)'pQ)(4SC5"dCA*YD@jKE#"PEA9
XBA4[FL"hD@jNEhFX)(GSCA*P)'Pd)'CTG(-JEQPMC@aj,Jd09'KTFb"NCA0V)'&
MBf9cFfpbH5"TFb"QFQ9P,L")BACP)'CeEL`JB@jN)'YPCA!JG'K[Ff8JBfpcG(-
JC'phEL%J$3e#Ef)J6@pZFf9Z$80*8cSJ0c%`-$%X)$)f-6!03A*`B6SJFQe[ER0
PEN"LBQiZBfpY$3h*p&"&EQ4$6J!!!:
---