; %> mid.seg.s <%
; %>  01/27/87 <%

 on nocar goto no.car
 if (un<1) or (not flag(1)) goto link.main

 if flag(10)=0 goto start
 create "b:com.log":kill "l:com.log":create "l:com.log"
 open #1,"b:com.log":append #1
 print #1,chr$(45,79)\"Call #"cn$": "a4$
 print #1,"Date/time: "date$" "time$
 print #1,\"Main Commands:"\:close
start
 if info(5) open #1,"b:com.log":a=mark(1):close:if a=0 print "%> Command log has been updated! <%"
 open #1,"f:u."+str$(un)
 if flag(9) goto j1
 position #1,5,3:input #1,md
 if lc$<>da$ md=0
 if md=99 print "You have unlimited calls left for today.":goto j1
 md=md+1:position #1,5,3:print #1,md
 position #1,5,11:input #1,a
 if a<1 a=3:position #1,5,11:print #1,a
 if (md>a) and info(0) print \"Sorry, you've exceeded your logon limit for today.":close:no=1:link "a:logon.seg","start"
 tx$="":if a-md<>1 tx$="s"
 if md=a print "This is your last call for today.":goto j1
 print "You can make "a-md" more call"tx$" today."
j1
 position #1,5,0:input #1,a:position #1,5,1:input #1,x
 if not a px$="0%":goto per
 if not x px$="100%":goto per
 if a<326 px$=str$((a*100)/x)+"%"
per
 if a<326 print "You have posted on "px$" of your calls."
 if (a>325) or (x=0) or (a=0) or (flag(3)) goto j7
 a=(a*100)/x
 if (a<10) and (x>15) print chr$(7)"You lose ALL of your credits for low post %.":position #1,5,2:print #1,0:goto j7
 if (a<20) and (x>10) print chr$(7)"WARNING: If your posting falls below 10%, you will lose all your credits."
j7
 if (x mod 3) or (lc$=da$) goto no.bank
 open #2,"b:bank":position #2,6,un:input #2,a
 if a<100 close #2:goto no.bank
 position #1,5,4:input #1,x:if x>100 x=100
 if (a>28000) and (flag(4)=0) goto charge
 b=(a/100)*x:i$=str$(b):gosub comma
 print "Paying "x"% ("i$") bank interest"
 i$=str$(a):gosub comma
 print "Old balance: "i$" / New balance: ";
 if (32000-a)<b a=32000:else a=a+b
 goto overflow
charge
 b=32000-a:if b<100 b=32000
 z=(b/100)*x:i$=str$(z):gosub comma
 print "Deducting "i$" from your bank"
 i$=str$(a):gosub comma
 print "Old balance: "i$" / New balance: ";
 a=a-z
overflow
 i$=str$(a):gosub comma:print i$
 position #2,6,un:print #2,a:close #2 
no.bank
 position #1,5,15:input #1,z:position #1,5,16:input #1,r
 position #1,5,16:print #1,0:if not z goto j2
 open #2,"b:insurance":position #2,48,z:input #2,i$,u,f,p,d:close #2
 open #2,"b:bank":position #2,6,u:input #2,ba:close #2
 if not r position #1,5,2:input #1,z:goto jmp2
 if i$="EMPTY" print "Your insurance company closed down!"
 if i$="EMPTY" position #1,5,15:print #1,0:goto j2
 print "You lost "r" credits since your last call."
 b=(r/100)*p
 if ba<1 print "Your insurance company doesn't have enough to cover it!"
 if ba<1 position #1,5,2:input #1,z:goto jmp2
 i$=str$(ba):gosub comma
 if b>ba print "Your insurance company can only cover "i$" of it.":goto part
 i$=str$(b):gosub comma
 print "Your insurance company reimburses you "i$" credits, or "p"%."
 edit(0):ready "e:gmail"
 print #msg(u),un:print #6,'Letter From -%>Insurance
Date Mailed -%>'date$' 'time$\
 print #6,"Your company reimbursed "a4$" "i$" credits."
 copy #8,#6:print #msg(u),chr$(4);chr$(0);:msg(u)=msg(u)+1:update
part
 if b>ba b=ba
 position #1,5,2:input #1,z:z=z+b:if z>9500 z=9500
 ba=ba-b:open #2,"b:bank":position #2,6,u:print #2,ba:close #2
jmp2
 if z<d goto cancel
 a=(z/100)*f:if a<d a=d
 if a<1 print "You pay nothing for your insurance.":goto j6
 z=z-a:if z<0 goto cancel
 i$=str$(a):gosub comma
 print "Paying insurance company "i$" credits";
 if a<>d print ", or "f"%.":else print "."
 position #1,5,2:print #1,z
 if (ba=32000) or ((32000-ba)<a) ba=32000:goto jmp3
 ba=ba+a
jmp3
 open #2,"b:bank":position #2,6,u:print #2,ba:close #2
 edit(0):ready "e:gmail"
 print #msg(u),un:print #6,'Letter From -%>Insurance
Date Mailed -%>'date$' 'time$\
 print #6,a4$" paid "i$" credits to your insurance company."
 copy #8,#6:print #msg(u),chr$(4);chr$(0);:msg(u)=msg(u)+1:update
 goto j6
j2
 i$=str$(r):gosub comma
 if r print "You lost "i$" credits since your last call."
 if (r>99) and (not flag(5)) print "We suggest you purchase insurance."
 goto j6
cancel
 print "You can't afford your insurance!"
 print "Cancelling insurance...";
 position #1,5,15:print #1,0
 edit(0):ready "e:gmail":print #msg(u),un
 print #6,'Letter From -%>Insurance
Date Mailed -%>'date$' 'time$\
 print #6,a4$" (#"un") was unable to pay your insurance deductable."
 print #6,"Their insurance was cancelled."
 copy #8,#6:print #msg(u),chr$(4);chr$(0);:msg(u)=msg(u)+1:update
 print "done."
j6
 position #1,5,10:input #1,x:if (x<1) or flag(2) goto link.main
 if x>100 x=100
 a=clock(2):a=a-((a/100)*x)
 print chr$(7)"> A time bomb goes off destroying "x"% of your remaining time <"
 if a<1 a=1
 clock(2)=a:goto link.main

no.car
 close:link "a:main.seg","off"

link.main
 close:link "a:main.seg"

comma
 if len(i$)<4 return
 if len(i$)<5 gf=1:else gf=2
 i$=left$(i$,gf)+","+right$(i$,3):return