; files.seg.s
; modified for ACOS on 03/31/87
; originally written on 10/13/86

 on nocar goto no.car
 goto start

no.car
 if a1$="" link "a:logon.seg"
 link "a:main.seg","term1"

link.main
 if a1$="" link "a:logon.seg"
 link "a:main.seg","fromsys"

center
 b=(edit(3)/2)-(len(a$)/2):if b<1 b=1
 print chr$(32,b);
 if flag(32) print chr$(15);a$;chr$(14):return
 print a$:return

show.file
 setint(1):copy f$:setint(""):return

start
 print sc$
 if flag(32) a$=chr$(32,16)+chr$(14,2):gosub center
 if flag(32) a$=" "+chr$(14)+" System Files "+chr$(15)+" ":gosub center
 if flag(32) a$=chr$(32,16)+chr$(14,2):gosub center
 if not flag(32) a$="%> System Files <%":gosub center
 print:gosub routine
 print \"[Hit a key]";:gosub get.key
 goto start

routine
 setint(1)
 print '
[01] System News           [02] Validation Log           [03] AE Validation Log
[04] Caller Log            [05] System Statistics        [06] Information
[07] Call Graph            [08] Deletions                [09] Robbing Log
[10] Time Bomb Log         [11] New User Request'
 setint("")
 input @2 \"Select: "a
 if (a<1) or (a>11) pop:goto link.main
 print sc$\
 if a=1 f$="b:system.news":goto show.file
 if a=8 f$="b:deletions":goto show.file
 if a=6 f$="b:system.info":goto show.file
 if a=11 f$="b:new.user.info":goto show.file
 if a>3 goto rt1
 print "_Username"chr$(95,15)"|TV|S|_Y%|_N%|_Date___|_Time______"
 if a=2 f$="b:val.log"
 if a=3 f$="b:ae.log"
h1
 open #1,f$:position #1,80,0:input #1,a
 if a=0 print "[ No data ]":close:return
 x=1:z=a
j1
 position #1,80,z:input #1,i$,y
; o$="":if x<10 o$="0"
 if i$ setint(1):print i$:setint("")
 if key(1) print "%> Aborted <%":close:return
 x=x+1:if x=100 close:return
 z=z-1:if not z z=99
 goto j1

rt1
 if a=4 print "_Username"chr$(95,15)"|Baud Rate|MM:SS|_Date___|_LOff Time_|Lv|_Last On":f$="b:call.log":goto h1
 if a=5 open #1,"b:data3":position #1,80,0:input #1,x,z,ul$
 if a=5 position #1,80,4:input #1,gf,gh:close:goto sys1
 if a=7 goto graph
 if a=9 f$="b:robbing.log":goto h1
 if a=10 f$="b:bomb.log":goto h1

graph
 print "     |          1111111111222222222233333333334"
 print "Date |01234567890123456789012345678901234567890"
 print "-----|"chr$(45,41)
 open #1,"b:graph":position #1,80,0:input #1,x:a=1
graph1
 position #1,80,x:input #1,i$,z
 if not i$ close:return
 setint(1):print i$"|"chr$(35,z):setint("")
 if key(1) print "%> Aborted <%":close:return
 a=a+1:if a=50 close:return
 x=x-1:if not x x=50
 goto graph1

sys1
 o$="Average calls/day since "+ul$+" ("+str$(x)+" days)":i$=str$(z/x)
 gosub sys2
 if gf and gh o$="Percentage of users validated (of "+str$(gf)+" attempts)":i$=str$((gh*100)/gf)+"%":gosub sys2
 o$="Current date and time":i$=date$+" "+time$:gosub sys2
 o$="Total system calls":i$=cn$:gosub sys2
 o$="Last user online":i$=lu$:gosub sys2
 o$="Total system accounts":i$=str$(nu):gosub sys2
 o$="Number of personal records":i$=str$(rn):gosub sys2
 o$="Total sub-boards":i$=str$(tb):gosub sys2
 o$="Total sub-board messages":i$=str$(mn):gosub comma:gosub sys2
 return
sys2
 o$=o$+chr$(46,79):o$=left$(o$,79):a=len(i$):b=len(o$):o$=left$(o$,b-a)
 o$=o$+i$:setint(1):print o$:setint("")
 if key(1) print "%> Aborted <%":pop:return
 return

comma
 if len(i$)<4 return
 if len(i$)<5 gf=1:else gf=2
 i$=left$(i$,gf)+","+right$(i$,3):return
 
get.key
 ww=0:wx=0
get.key1
 gf=clock(2)
 if (gf<>0) and (clock(1)>gf) print \\"[ Time Limit Exceeded ]":pop:goto no.car
 gf=peek(-16384):if (gf=129) or (gf=150) get i$:print chr$(8);:return
 gf=key(0):if (gf>96) and (gf<123) gf=gf-32
 if (gf>31) or (gf=13) i$=chr$(gf):return
 ww=ww+1:if flag(33)=0 goto get.key2
 wx=wx+1:if wx>16 wx=1
 print mid$("!/-\!/-\!\-/!\-/",wx,1);chr$(8);
get.key2
 if ww=2000 print chr$(7,2);
 if ww=4000 pop:goto no.car
 if (not info(0)) and (not info(5)) and (eu<>1) pop:goto no.car
 goto get.key1