!GOSUB start_app_defaults
gosub opens_ftp
GOSUB gt_userlist
do
input "Family Name",familyname$,""
input "Password",password$,""
encrypt pswrd$,password$,t1$
list.search users,familyname$,usermatch
if usermatch>0
GOSUB gt_userpswrd
if t$=t1$
useris=1
else 
try=try+1
endif
if useris>0
GOSUB gt_family
GOSUB mk_newmember
endif
else
dialog.message "New Family Name","Would You Like to Start a New Family Account",dm,"Yes","No"
if dm=1
ftp.CD mydirftp$
ftp.mkdir familyname$
ftp.CD mydirftp$+familyname$
CLS
print t1$
console.save "t"
cls
ftp.put "t","pswrd"
file.delete del,"t"
ftp.mkdir "devices"
ftp.CD mydirftp$+familyname$+"/devices"
input "Username",username$,""
ftp.mkdir username$
useris=1
endif
endif
until useris>0|try>=3
if try>=3
end"imposter"
else
GOSUB gt_family
list.size family,familylen
for t=2 to familylen-1
list.get family,t,member$
if member$<>username$
members$=members$+member$+":"
endif
next t
list.get family, familylen ,member$
if member$<>username$
members$=members$+member$
endif
cls
print members$
console.save appdir$+"family.txt"
cls


endif
goto login_end

gt_family:
ftp.CD mydirftp$+familyname$+"/devices"
if famnum=1
list.clear family
endif
famnum=1
ftp.dir family
list.remove family,1
list.replace family,1,"New Family Member"
list.size family,t_famlen
for t=1 to t_famlen
list.get family,t,data$
if username$<>data$
list.replace family,t,replace$(data$,"(d)","")
endif
next t
return

mk_newmember:
dialog.select ds,family,"Who Are You?"
if ds=1
input "Username",username$,""
ftp.mkdir username$
else
list.get family,ds,username$
endif

return


gt_userpswrd:

!list.get users,1,familyname$

ftp.CD mydirftp$+familyname$
ftp.get "pswrd","t"
grabfile t$,"t"
file.delete del,"t"
t$=replace$(t$,chr$(10),"")
return

gt_userlist:
FTP.CD mydirftp$
ftp.dir users
list.remove users,1
list.remove users,1
list.size users,t_userlen
for t=1 to t_userlen
list.get users,t,data$
list.replace users,t,replace$(data$,"(d)","")
next t
return





login_end:
ftp.CD "htdocs/cf"
ftp.get "me.png",appdir$+"me.png"
ftp.get "family.png",appdir$+"family.png"
CLS
print familyname$+":"+username$
console.save appdir$+"user.txt"
cls
GOSUB clos_ftp