Path: wuarchive!usc!apple!agate!wheatena!archie
From: archie@wheatena.berkeley.edu (Archie Cobbs)
Newsgroups: comp.binaries.apple2
Subject: PhoneBase 1.2
Summary: address & phone number program
Message-ID: <1990Apr15.052533.24650@agate.berkeley.edu>
Date: 15 Apr 90 05:25:33 GMT
Sender: archie@brahms.berkeley.edu
Reply-To: archie@brahms.berkeley.edu (Archie Cobbs)
Organization: University of California, Berkeley (does that count?)
Lines: 151


PhoneBase 1.2

This program is basically an address & telephone number keeper, with the
added feature of automatic dialing on Apple-Cat modems, handling special
dialing for long distance, international, calling cards, etc. It runs under 
DOS 3.3 or PRODOS (with BASIC.SYSTEM) and does not require anything special
beyond an Apple //e with 80 column card.  The format below is straight BINSCII
(not Shrinkited, since it doesn't work on my 6502).  The program is pretty
self-explanitory (? key for help), but there are a few undocumented things:

     1. The '@' character, when part of a phone number, causes
	a two second delay when dialing.
     2. For international numbers, the country and city codes should
	go in the area code slot, separated by a dash or something.
     3. The records are sorted by the last name in the field.
     4. When quitting, the program asks "Incorporate changes?"  If you say
	yes, then the program resaves itself with your database included,
	so it is automatically loaded up next time the program is run.
	It's resaved on the last accessed disk (or PREFIXed volume).
     5. Don't forget to set your local area code (options menu).

This program is probably most useful to people with Apple-Cat modems (since
otherwise it functions just as a database program) or people with older
apples which need something to do, like mine.  For example, I use it to
check my bank account balance on the bank's automated touch-tone service.

If someone doesn't have BINSCII, I can email an EXEC file. Also, thanks to
those who helped with the PRODOS command parser (I realize my request for
information could have been a bit more polite...)

-Archie  (archie@brahms.berkeley.edu)


FiLeStArTfIlEsTaRt
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789()
IPHONEBASE      AQhtAAAABw)4MIAC02IANCAAAAAtAQhtA0mF
KggCrWKAAAzMUgAFywIAwgDMI4BAMCgH4AjMAAwMszEAEz0GcY7GKDCrGIaCKUuh
iiqCkbIAIUauIDelEAO6qXPkqru6YAepFaeZhXq5FeeZPky5V2rqliEClhh4oXI6
lNeppXY6q(QK9hBapgQlEkA8O8NrADYmQTuxlbcxpWM0AmJdUkKwGXeh8DN5QXux
KzE(YBUC)pHbYxmeTgCQFAQBehyEBEfACHABBQQAEEQ8CYSACHwHB8RAfEQ8CYSA
CHQPB0TA9EQ8CYSACHgXB4VAsKgJp6w3BmpgGkKwAPYmZ6XqpCciMmJDfkKwA3Ym
ZOQqgCsgA0qHbmMwiGC83CSAQjYCghR8swTqN6TqgmAFsGLAggA8wmQIQjMBghB9
NCYCYmANIpISADQrJTAElB)mgAQqt2f7JnANIANwgQhoMlwtskwlQ4A4qmMEpSA0
QAtCQPayLkKBJjA03AruQ(a6gzyMrAjDQDQyKkqAIIKSJcLIsqKap6w3CmJAWmKw
8jKIZOQqKDsgpuA8oCye3xE)pASCohBCoimqJQTrfzKYAkqDALYmZGYqgBcggwTq
IyPqghP0gMcqKzPqghP0S)M1FDa2FDN2ii0wgXbCA3LqgXZCA3JmQocCghW8PTcw
QDa0GPNzN(byGq4iE)gWS8EE7SBNRM1D7GxcSUcEnKxDTsAFb4w4Sc9Dy6asiDQj
BDa(oPu8gWe6i)(wAMv4jKN0ZCwsSDajvPe5AQu8sXOxlTf5oTPogOf6jXu8kL)7
AA6vE3YjsHe6n7e6AAquQ3YjrPe6wXPooDPol7(7v7Oou669HCgrtXez5L)71bMo
hyO7QDKozXu8hD68gmv75X(6AAquj7eywL)7hL)7gWO9hj(4lfu7g(78BPNAgWs1
h7MAgWe7g(O9unu5gqL5lzMAlTP9g(r8uXMAyXO9h7OogWe7ga(70HO5hLe46W(8
JDAo1P)8kDa5rPf6vPOoh3e76Su7QDAonLf9hDa5gyO7jXu8kL)7g(78MDwhkH(7
n7e6u6qrMLMAEH8zTDAopbf4ueu7A4qrBPtwgWs1vPMAh3e7zTu7A0YjdH82kHMA
hDK5l7OoyD69vPe5AQu8dT82lTMA0XO7yDa5vPe5AQu8wP92lPe4FDQ30nO5lLPo
y)(4bDA5A0txunuxhDK5lLPoy)(4bDA50Xu0uLf9EDQ3sHe617OolLe7oCq8wDfw
tWO70H(wbDQqyT)wG3K7GDQ3k7e6l7OogSP(0XO7yXO95TPokXO8PvNAQDQ3u)O6
hLc5gW(80D)7u)e6bDw8A0N0yXP0gW(5sze4lLPoy)(4AMP5wX92yHMo3)u8NDQ3
lb)7wXPou)OoyDa5vPe5AQu8dz82vzMAgSe4g6e6kDa4hTf4zHu4bDQ53)OxBDq7
vLv8A0992)ezkDa5uf)7u)OoyDa5vPe5AQu8dP92hPNAgWu90HO5hLe4AU(8dn82
znMAlX)8PTMojD60t3(7k7e4RvNARDQ30ne9FDAA0nO5n7e6vPMoh3e7zTu7A0Yj
yH823)u8A0982)ezhDa51)u8AQu7lL92yXP9A0t7jPew0Df5uXOo5LP9DvNAsLP9
dLcr1rMAgCf7g(O9nXu4u7e6n7e6m)OopzOoAUu70P82tyu8A0tztXvy0DK8lD67
gSu7ga(7unO7bDQ5sXOxlTf5EDQ3lze5gWO9jDa4yHO60Pe4AIf50P82tyu8A0d0
lz(wgKf4g(O9k7e5m)OopzOoAUu70P82tyu8A0t0hT)0gSv8lb)7lDq8yXu9oTf(
n7e6FvNAhP(8dXO84XMAAQf6h7MAAUe7zXOxpL)4vTP8BDg8yTO5zPf5pPMAAkP9
hT)0AUO9wnu2yHMAgGe5k)(wODQ5i3e9AIf5t)(wuXe7BBA9BFUQBFUQBHUQsDP8
D3a5gSf4vz(8oCK9u3Lsl7(7UDQql7(7y)Oo1DNolPP7pTOopze4Acu7j)Ozgye4
lLf4jDa4lT(7pTMApze4geu7lLP84nu5vzMAgeu7znO5uHO9gW(4lLP84nu5vzMA
geu7znO5uHO9gW(4z)O8pbO9JDA(lTv7h7u8vnO9sHu7yDPopbe5JDA(lTv7h7u8
vnO9sHu7vDPomT)8Agf62H(0wDa5n)u8tHu8zHOoBEAAPkwAZ8QGAI7D0CA1AUbs
AELAxCLAjCQsIDNAF78zTHswAAQxqqKADDqq5D)7nnu8gSP6pOOq5GLogCbugmv4
jLfwlnO6uyMovPMozLu4GTNoqCay3rqqh)O65Xu8)W)7vj(9lLf41)e(of)vyH(7
vnf53)b9h)O65Xu8)W)7A4ArA8))AAAAAAAAAAAAAAIIvXKAgMD8lWh7AVo)F(fp
FBSQEI6Gw(O5uDSFQrcFEkq(gUShpyvI71IACASBvbcFFCUpBVq)g9fhuXKGlrP8
2D)7VDCS(XaFlCUhBV4)aYMINkMaieBkVDCDQrcFUkq(gUShpyvI71IACASBvbeF
FCUpBVq)g9fhNzfpl6Q4i3e)LApDFeWqKkKPM1ThmqRXOAv7hDP6YwLIgYAsQWR1
gCg9QnrD8HpD4DBi4MAol7fp8HJ))XKyR2f5liB)OkG)lyfhAkW)l2fhFAv7VoNI
F6epub(7FGQquX6(goJ8pih3(UIVF2QqUm6PpyehtXYDpmgo1ACDvDyFFkKEpCUh
BVIAFiQqfBiPAAqFwLUsQj8A4gZ(FCUZBVKQFCQa(YcQlSOEJAt7ROAoRis)iAt)
VcPIg2Bk(HbAp9fSIjEAJ5fsAk2)RSAoohI)gwfkmXh2liz7(XO)(XKqlyThAke)
Y0ThlxTp(UIQl1Tp)UYQ8XKGFCUZvWI)l1fp9XYQmDbhCA9rxCr5(EJP)DMiGfP0
)YcPF3TptD7)Y4NIgkgogiBfBVqAI6fkRCUppio)(HJrYwLIgkBsgWR1AV6Ap9fS
(HZABVKyp9fS(HJAV4OIl6u5OkMQlmA0AkcQgMA0MBx7liB7BAt7vkKYpyTh9UoC
ZMDIgIPkpCx77XYAw7epvX6CQ6exBkeBV0LIYwOTF6fp)XKQlGUh(UI)F2fpBA6P
(HLGF6fZxiMP)Xm)I2Th8XKOF6f8vWI)9XKyF6f8wWY)Q)q5wauA(HLyxiMSgik)
8ELAIDUkmnP0BZePF7Tp)UKPw2T5EA66(HJaRiGiubs)uXKYpuP88UI6FqQqzASP
uDZGFabqckq)g(fhRiJABBv)FqbqKkKPg0ThwmR69nq0pyTh9UoCacDI8jFIFmQq
iASJIkK)pyTh9U4Ca0IIFKUpDVKPg0ThgoBkggxNgohkopxY7XIacoGTFqbqKkKP
g0ThwmR6PkqtpyTh9U4CacDI8jFIFmQqiASJZkK)pyTh9U4Ca0IIFKUpDVKPg0Th
goBkggxN4oBkpzfplqatcke)Y4DIaIJIaMGIYwOT8jFIIVSpFOdqKkKPg0TholR6
wWShiAiIOCC)CVa)lyTh9U4QV0GI97IIDEdrgMA0g0vjMphdoJhEVzEakDyGZlaG
pyTh9UoDF2ZqNkqPp(ThsXIUF6QqJIa7ggRqpeRN8UYWF6QqJIaPYwHIgAQqgaRX
CFLAYUNIJPMk)CLuKcQKKogCO8djg4j5gaxXCFLAJ)dKFAN1OAejJfA8eCN0OAOj
g4j5gaxXCFrAYUNII2IkMZPEliB7NAv7FKaqKkKPg0ThQmR6lCWL7Dv7FGbqKkKP
g0ThgoxNIpBTaMGIfnCaQGcybns4N6NspORCCVYCFORq3DyQszUFAAAGw7epf36x
CDvD8jFIFaQqiASJOCC)eDS)tBCGABSFAAaFwzTs75uDtmaB93OIFsn7V0GIFmVq
OkqPg8ThgURViWRVABSBQrcF8Uq(YUTjN2TpgihNAIKAxeghBBPPQzj59YuAYUNI
RHPkBAvP8EL6YUNIJHCkdArs(ENyoHA8gwTsQiR1RjMEBAvP8EL6IrA8YUNIGbPk
FAzBCAvipeg58UIRFqQqtBSPVDSFyBLCVUFIJwAIurGsgUwelWRViA)BgYAEgURV
gURVwmAD75(U10aB8UIGYYTrg0ThwmQC75eQ10aB8UIGYYTrg0ThgUBQwmQC75OL
HUaBggA8gURVwmADQlaHpyTh9UoCV0GIZQOItmBowAMABIKCJcLIzDNiADBLJAKI
YwOTwvfpZlaWp6Th)UoDgggoKXRVhqP0FBvPFaYqKkKPg0ThwmxMbmcDgFA0J)dK
oDtzpuC88U4DFuQq3ASPYBiGJkK)gUShpyvI8UInFqQqNCSP(UqGlyTh9U4PaIJI
7)CI8jFIgUZqp2f72V4)FCQqQzE2YByAfkK)FsXjakCIFCSqLkKPg0ThpWRb8U4K
FuQqxDSPGBCFgkqGFsXjF6WqMkKPg0ThpWRb8UYgFyQqxDSPVBCFszkGgmKG93OI
iCAomACDZIaFVYCIQzTsgA26iih3mASGNIaFVYCIVAEIgAhoiWhJmASBABSFFIaF
VYCIungogWwe8ELAgkA8I3f71DtyYgA871mi71YBAAaBwzTs8YOCmLA00DdPQzj5
9YuAAAKYw7Ts(YOCmLA00D9PQ7j5)YuA(kKY8kKLVUXjxCAoxDPr93OI2DNyAkKA
F(eh2mq7p6fh)XIHxCAoLAv)Qzayub(BVoNIp(Ok(HJAF6fpvWI)F(fpwWY)Q)q5
wauAFabqckq)g9fhq(ehFabqckq)K(fhggA8wWR1QrsrghB(YwLIgOBsliRA(Hn)
liMS(H3)o9fhY4fhvCCY6DLGQPAoCVa5l6Th)U4QWUEIF6Tp)UqQpOUhvX4)gAQq
mXxveDy78UKGl6Th)UYPWUEIxCAoaAvQN(dKxaRNLAvPJ)dKFAJrInA0ggO0QWR1
YQS0)DKY(ELyJfP83DNo(UGml6ThAk2PQ)Th(UI6FOXp0VqQmOUhlijPQluQlKUh
Ak(QKPUhgBPEsgTqNiRqgaBn6TIAMiAhgUweg4c3gscFJ7c32A)mw3YyQCANKmMD
J3C8pA)iwLZy)ncJYaB0IZN8PHAIyDCiIjszQGCxoi28DDBiQjYywgIH6CRsIpv5
XQCIRCQqwgoQBAiBWz0z6bkFJDGaEAtgwDAolq6mtjRIwXweJrokIAdlPHAIILUk
JXI0GAtjXQCIWgITJjQhIAdkg0ZqM1f7JbBi5DJoOLPIkqN0wgYIBAyBgm8zIbP8
FsHjHUIYgYghpyPWlU4B8LCI97IIgYgpkWha6m6BOLPI97IIVUFItDtyYYCINufp
liBN10IP9UKGYYTjgYgppihdlU4B8LCI97IIFCQqfBiPCVqFlyTh9U4QV0GI97II
l6j5GUsPpeOk(UIA(UKGFeQaiASJOCC)(Qa)FyeshYeIW8FIO3NIADQrgsPEJ7c3
EAviQ3YyQwSD(YOwF7TpKDpBJTMseAtkADBLZQOIYYCI8jFIYQTrtufhFiRN20KP
9UIGX0GTQvYyQwCE(YMwluJE(UoBM5jxgcRnqaheFgQp7X4(oCpiADBLFCQqQlKI
MFSh4wPWl7UqhU4BpdQpgUYAsyKYckKrgarogySwvxIz2QKGkyDh9Q4NEmGoYAqN
geDhBByA8Ua(laTh3UYPF6WqYkKPg1ThY4WmsCGyBTayoPu8CBKAQzTq8AKBNKUq
MixkOiRlpixq(UIAW8FIxCAosGJr8YOCmLA0CZePmLA0QjyQ(YO7J7TpfDJrDAKY
Q7fsxicBZAv)YAGGxGAo(Xm)Y8cj(HLyN(fZtiB0Q)))ghz5wqbxwmc4g1Nk(XKG
FWQa)XKPFCQalCWPAVo)F(fp5BSQYBSGuXK)l6F8pjz7IALBOCiqQje)goo(QWxv
OCyACAS)8CSFLALGJXSpFALFVUNIlqOk(XIQFGUpdx0)XkaGgUShpyvI71IAtBSB
QwSFdDCwVAizdDyyggkzopxYwndy5ncBYEA8IkKYgUShNyvIgAcVNmRbgCMVoE7J
R(XKQgIKpC29lUYA8LCINSUqlWweiCi7nkaGpyTh9UoCV0GIkCaqBAs7pKA8tz08
AAa)EyDh(QYPQSWykluBQzj5Kks9pbAk9YuCIZP08UKGGTA8QkmPgAaaY0f7Q3Tp
(QiBpKAMwmG893OIphBatzEsXAa)7TOTacDI4AChlDVqhUIIFiRqWk6IgUShgwvI
p2vjjUYFgAQqsYRXgAMEIYRfFCQqQlKIgEShooxYgeAsCFLA4EA0AAKYL0bu93OI
KAMygVPkFeRqiASJAkK)FsXjV0GT97II97ITO3NILXBIO3NTFaXqKkKPg0ThgoxN
pqBTlU4F8LCIkCaqggYII6s8gpPEawHIaIJTDEdrNSA0gpRn97IIMRYqg0f7YoBf
tiTpQPQ0AAKJNyTswLAAujsBQrRnbD58a0prd2YqgIAAQ67AMAizPzkvggwGoURb
MFMkp2vjlUIF8LCIAXVjaYNIATVj9eiodaAg9aAAdeAA9aAgdeAg9eAAJQAKA2Jg
o27B)lCBEgSnFgSvEganFgavFgSnGgSvFganGgavGgSnHgSvGganHgavHgSnEAVv
HganEAdvEAVnFAVvEAdnFAdvFAVnGAVvFAdndCaqKbAUgRJEFSQqiASJV1I)VBCw
U14GnIKwFAdvGAVnFAVvFAdnEAdvFAVnEAVvEAdnHgavEAVnHgSvHganGgavHgSn
GgSvGganFgavGgSnFgSvFganEgavFgSnEgSvdCYC9SAqpcAgo05fA0LBA25BA27B
A0pBA07BA2pBgmqBGAQnUChydDCYmDy(eb6vnKAIADBLaUFII9epV8HIuXMamaAk
BAv7gooyMVRvtyRbwP8fTz0Agk6ApyTh9UoCaYHIgkZqp2f771oIpASBLkqGpyTh
9UoCV0GINGSqpWwe8UIEFqQqtBSPOCSFfna)awGIFSRqiASJOCC)fna)awGIZQOI
ADBLgIRqlaRXh3oQDVqDOIejFWSqKkKPg0ThpWRbjUYFFSQqAkqIgsfhgUxfpiB7
lUYA8LCINiQqkWweYi87ZIKIADQrssPEJDMECAJ4i(dKe3tDJAfC4DhyZQOIcAHT
qqgiJ0evcEbjJ4evcIbj))PIcAHTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AoUk

Archie Cobbs					  archie@brahms.berkeley.edu