; User Rating Segment
; Programmed by -DC- on 02/24/88

 on nocar goto no.car
 r1$="Great  "+chr$(8,7):r2$="Good   "+chr$(8,7)
 r3$="Okay   "+chr$(8,7):r4$="Neutral"+chr$(8,7)
 r5$="Fair   "+chr$(8,7):r6$="Poor   "+chr$(8,7)
 r7$="Bad    "+chr$(8,7):goto start

no.car
 link "a:ulist.seg","no.car"

link.main
 link "a:ulist.seg","link.main"

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

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) or (gf=8) or (gf=21) i$=chr$(gf):return
 ww=ww+1
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

start
 print sc$
 if flag(32) a$=chr$(32,16)+chr$(14,2):gosub center
 if flag(32) a$=" "+chr$(14)+" User Ratings "+chr$(15)+" ":gosub center
 if flag(32) a$=chr$(32,16)+chr$(14,2):gosub center
 if not flag(32) a$="%> User Ratings <%":gosub center
command
 if clock(2) print \"["(clock(2)-clock(1))/60":";:i$=str$((clock(2)-clock(1)) mod 60):if len(i$)<2 i$="0"+i$
 if not clock(2) i$=chr$(13)+"[00:00"
 print i$"] Command? ";
com1
 push command
 gosub get.key:a=val(i$)
 if i$="Q" print "Quit":pop:goto link.main
 if a=1 goto rate
 if a=2 goto rate.one
 if a=3 goto all.rate
 if a=4 goto ratings
 if (a=5) and flag(3) goto others
 if i$<>"?" pop:goto com1
 print 'Menu

[1) Rate all users
[2) Rate one user
[3) Show all your ratings for others
[4) Show your ratings from others'
 if flag(3) print "[5) Show ratings of another user"
 return

others
 print "Other User's Status"\
 input @2 "Enter user #"ff
 if (ff<1) or (ff>nu) print \"Invalid User Number":return
 print:goto other1
ratings
 ff=un:print "Your Status w/Others"\
other1
 open #1,"b:users":f$="f:r."+str$(ff):open #2,f$
 for me=1 to nu:if me=ff next:close #1:close #2:return
 position #1,64,me:input #1,d1$,d2$
 m$=right$(("00"+str$(me)),3):print "[#"m$"] ";
 if not d1$ print "<< Deleted >>":next:close #1:close #2:return
 m$=left$((d1$+" "+d2$+chr$(32,20)),20)
 setint(1):print m$"|";:setint("")
 if key(1) me=nu:next:close #1:close #2:print "%> Aborted <%":return
 position #2,2,me:input #2,b
 if not b print "[N/A]":next:close #1:close #2:return
 setint(1)
 if b=1 print left$(r1$,7)
 if b=2 print left$(r2$,7)
 if b=3 print left$(r3$,7)
 if b=4 print left$(r4$,7)
 if b=5 print left$(r5$,7)
 if b=6 print left$(r6$,7)
 if b=7 print left$(r7$,7)
 setint("")
 if key(1) me=nu:next:close #1:close #2:print "%> Aborted <%":return
 next:close #1:close #2:return

all.rate
 print "Your Ratings for Others"\
 open #1,"b:users"
 for me=1 to nu:if me=un next:close:return
 position #1,64,me:input #1,d1$,d2$
 m$=right$(("00"+str$(me)),3):print "[#"m$"] ";
 if not d1$ print "<< Deleted >>":next:close:return
 m$=left$((d1$+" "+d2$+chr$(32,20)),20)
 setint(1):print m$"|";:setint("")
 if key(1) me=nu:next:close:print "%> Aborted <%":return
 f$="f:r."+str$(me):open #2,f$:position #2,2,un:input #2,b:close #2
 if not b print "[N/A]":next:close:return
 setint(1)
 if b=1 print left$(r1$,7)
 if b=2 print left$(r2$,7)
 if b=3 print left$(r3$,7)
 if b=4 print left$(r4$,7)
 if b=5 print left$(r5$,7)
 if b=6 print left$(r6$,7)
 if b=7 print left$(r7$,7)
 setint("")
 if key(1) print "%> Aborted <%":me=nu:next:close:return
 next:close:return

rate.one
 print "Rate One User"\
 print "Use arrow keys [<-] [->] to scroll through rate selections."\
 input @2 "Enter user #"a
 if (a<1) or (a>nu) or (a=un) print \"Invalid User Number":return
 f$="f:r."+str$(a):open #2,f$:position #2,2,un:input #2,b
 open #1,"b:users":position #1,64,a:input #1,d1$,d2$:close #1
 if not d1$ close #2:print \"Invalid Account":return
 print \"[#"a"] "d1$" "d2$": ";
 if not b print "[N/A]":close #2:return
 a=b:ro=911:goto ra1

rate
 ro=0:print 'Rate All Users

Use arrow keys [<-] [->] to scroll through rate selections.
Hit [Q] to quit.'\
 open #1,"b:users":for me=1 to nu:position #1,64,me:input #1,d1$,d2$
 if me=un next:close:return
 m$=right$(("00"+str$(me)),3):print "[#"m$"] ";
 if d1$="" print "<< Deleted >>":next:close:return
 print d1$" "d2$": ";
 f$="f:r."+str$(me):open #2,f$
 if mark(2) print "[N/A]":close #2:next:close:return
 position #2,2,un:input #2,a
ra1
 if a<1 a=1
 if a>7 a=7
 if a=1 print r1$;
 if a=2 print r2$;
 if a=3 print r3$;
 if a=4 print r4$;
 if a=5 print r5$;
 if a=6 print r6$;
 if a=7 print r7$;
ra2
 b=flag(32):flag(32)=0:gosub get.key:flag(32)=b
 if gf=8 a=a+1:goto ra1
 if gf=21 a=a-1:goto ra1
 if i$="Q" print "Quit   ":close #2:me=nu:goto ra3
 if gf<>13 goto ra2
 position #2,2,un:print #2,a:close #2
 if a=1 print left$(r1$,7)
 if a=2 print left$(r2$,7)
 if a=3 print left$(r3$,7)
 if a=4 print left$(r4$,7)
 if a=5 print left$(r5$,7)
 if a=6 print left$(r6$,7)
 if a=7 print left$(r7$,7)
 if ro=911 return
ra3
 next:close:return