; Dial Your Match sysop seg
; Written 02/25/89 by -DC-

 on nocar goto no.car
 goto start

link.main
 link "a:dym.seg","return"

show.file
 setint(1):print \s$\:open #1,f$:if mark(1) close #1:return
showfl2
 copy (20) #1
 if eof(1) or key(1) setint(""):close #1:return
 print "Press [RETURN] ";:get i$:if i$=chr$(13) print " ";
 print chr$(8,16);chr$(32,16);chr$(8,16);
 if i$=" " setint(""):close #1:return
 setint(1):goto showfl2

no.car
 link "a:dym.seg","no.car"
 
editor
 print \"Enter message now, "edit(3)" col, 4k bytes max ";
 print ".s = save|.h = help|'done' to edit msg."
 cl=clock(2):clock(2)=0:edit(0):edit(1):clock(2)=cl:return

date1
 q=val(left$(date$,2)):q1=val(mid$(date$,4,2)):q2=val(right$(date$,2))
 m$="000031059090120151181212243273304334":if q>1 q3=val(mid$(m$,q*3-2,3))
 q1=q1+q3:m$="46012356":q1=q1+val(mid$(m$,8-(94-q2),1)):q1=q1 mod 7
 m$="BobMonTueWedThuFriSat":if q1>1 td$=mid$(m$,q1*3-2,3):else td$="Sun"
 ml$="085534469788":q3=0:for q4=1 to q-1:q3=q3+val(mid$(ml$,q4,1):next
 mt$="FebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember"
 if q>1 m$=mid$(mt$,q3+1,val(mid$(ml$,q4+1,1))):else m$="January"
 min$=mid$(time$,4,2):if len(time$)>8 tm$=time$:goto date2
 if val(left$(time$,2))<12 tm$=left$(time$,2)+":"+min$+"AM":goto date2
 q4=val(left$(time$,2)):tm$=str$(12-(24-q4))+":"+min$+"PM"
date2
 i$=td$+", "+m$+" "+mid$(date$,4,2)+"  "+tm$
 return

lower.case
 if len(i$)=1 ab$=i$:return
 ab$=left$(i$,1):for wy=2 to len(i$):wx=asc(mid$(i$,wy,1))
 if wx=32 ab$=ab$+" "+mid$(i$,wy+1,1):wy=wy+1:next:return
 if (wx<65) or (wx>96) ab$=ab$+chr$(wx):next:return
 ab$=ab$+chr$(wx+32):next:return

start
 push start
 input @0 \"SysOp command: "i$
 if i$="?" f$="i1:sys.menu":goto show.file
 if i$="Q" pop:goto link.main
 if i$="K" goto kill
 if i$="U" goto purge
 if i$="E" goto edit
 print \"Invalid entry":return

kill
 input @2 \"Kill username: "i$:if i$="" return
 gosub lower.case:n$=ab$
 open #1,"i1:dym.users":print \"Scanning #";
 for a=1 to nu:print a;chr$(8,len(str$(a)));
 position #1,80,a:input #1,o$,b,i$\l$,b
 if o$<>n$ next:close:print " - User not found":return
 print \\"Kill "o$" from "i$\"Last on "l$"? ";
 input @0 i$:if i$="Y" goto kill1
 print \"Scanning #";:next:close:print " - User not found":return
kill1
 position #1,80,a:print #1,"EMPTY":close
 ready "i1:mail":kill #msg(a):msg(a)=0:update
 kill "i1:u."+str$(a):a=nu:next:return

purge
 input @2 \"Purge users who have't called since: "d$
 if len(d$)<>8 return
 open #1,"i1:dym.users":print \"Scanning #";
 for a=1 to nu:print a;chr$(8,len(str$(a)));
 position #1,80,a:input #1,o$,b,i$\l$,b
 if (l$>d$) or (o$="EMPTY") goto purge1
 print \\"Kill "o$" from "i$\"Last on "l$"? ";
 input @0 i$:if i$<>"Y" print \"Scanning #";:goto purge1
 position #1,80,a:print #1,"EMPTY":kill "i1:u."+str$(a)
 ready "i1:mail":kill #msg(a):msg(a)=0:update
 print \"User Deleted"\\"Scanning #";
purge1
 next:close:print " - Scan completed":return

edit
 input @2 \"Edit username: "i$:if i$="" return
 gosub lower.case:n$=ab$
 open #1,"i1:dym.users":print \"Scanning #";
 for a=1 to nu:print a;chr$(8,len(str$(a)));
 position #1,80,a:input #1,o$,b,i$\l$,c
 if o$<>n$ next:close:print " - User not found":return
 x=a:a=nu:next
edit1
 print \\"1) "o$\"2) "b\"3) "i$\"4) "l$\"5) "c
 input @2 \"Edit #"a:if (a<1) or (a>5) goto edit2
 if a=1 input @3 \"Username: "o$
 if a=2 input @2 \"Age: "b
 if a=3 input @3 \"From: "i$
 if a=4 input @2 \"Last on: "l$
 if a=5 input @2 \"Message count: "c
 goto edit1
edit2
 position #1,80,x:print #1,o$,b,i$\l$,c:close
 return