Re: Email Addressbook
  By: jahmas #1 @1410000*80 to All on Wed Jul 24 2002 02:49 pm

 > menu? Has anyone written any addressbook scripts. It would be nice to just


Here's the one I used for awhile. I think I found a fancier one later, but I
haven't found the floppy it's on yet. When I do I'll upload it to my file
libraries.

let f = !26 % "AB" % !50 % ".DAT"
top:
?
rr k, "ADQL?", "Address Book: A)dd D)elete Q)uit L)Abbrev List ?)List: "
?
if k="A" goto add
if k="D" goto del
if k="L" goto lista2
if k="?" goto lista2
exit

del:
let k="?"
open f,"I"
let n2=0
del2:
read b
if b="!EOF!" goto eofd1
let n2=n2+1
let $n2 = b
goto del2
eofd1:
close
?
0 ";
rl a,"Q?",n2,""
if a="Q" goto top
if a="?" goto lista1
open f,"O"
do i,1,n2
  ifval i=a goto skipwrite
  write $i
skipwrite:
loop
close
goto top

add:
?
let c = 1
rs a, "Name/Note:     "
if a="" goto top
rs b, "Email Address: "
if b="" goto top
let x = b
let y = ":"
if !8<>0 goto fidonet
let y = "."
if !8<>0 goto internet
goto add2
fidonet:
let c = 4
goto add2
internet:
let c = 9
goto add2
add2:
let d = a % "," % b % "," % c
open f,"A"
write d
close
goto top

lista1:
gosub list
goto eofd1

lista2:
gosub list
goto top

list:
checkfile s,f
ifval s=0 goto eof2
?
let m = 0
let n = 0
let z = 32
open f,"I"
list1:
read a
if a="!EOF!" goto eof1
let x = a
let y = ","
let y = !8 - 1
ifval y<0 goto list1
let f1 = !9
let y = y + 2
let x = !10
let y = ","
let y = !8 - 1
ifval y<0 goto list1
let f2 = !9
let y = y + 2
let x = !10
let f3 = !18
let y = 24
let x = f1 % "                        "
let f1 = !9
let y = 32
let x = f2 % "                                "
let f2 = !9
let n = n + 1
let x = "    " % n
let y = 3
let n = !11
list2
6",f2," ",f3
goto list1
list2:
let x = f1
let y = 20
let f1 = !9
0",n,". 5",f1;" ";
let m = m + 1
ifval m<>3 goto list1
?
let m = 0
goto list1
eof1:
ifval m=0 goto eof2
?
eof2:
close
return

---
 � Synchronet � Free State Interactive -  thorny.synchro.net