; Loserlist
; Written on 05/20/89 by -DC-

 on nocar goto no.car
 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

start
 create "i3:loserlist":print sc$
 if flag(32) a$=chr$(32,13)+chr$(14,2):gosub center
 if flag(32) a$=" "+chr$(14)+" Loserlist "+chr$(15)+" ":gosub center
 if flag(32) a$=chr$(32,13)+chr$(14,2):gosub center
 if not flag(32) a$="%> Loserlist <%":gosub center
 setint(1):print '
        This program will allow you to view/add loser users who you think other
people should know about to a list for all to see.  The loser user does NOT
have to be on this BBS to be added to this list.  Comments are also allowed,
but cannot be posted anonymously.'
menu
 print '
[L]ist losers, [F]astlist, [A]dd loser, [R]emove loser, [Q]uit

Select: ';
start1
 gosub get.key
 if i$="Q" print "Quit":goto link.main
 if i$="L" print "List":fl=0:goto list
 if i$="F" print "Fastlist":fl=1:goto list
 if i$="A" print "Add":goto add
 if i$="R" print "Remove":goto remove
 if i$="?" print "Commands":goto menu
 goto start1

list
 print \"_Loser's Name_____|St|_Posted By________|_Date___|"
 open #2,"i3:loserlist":position #2,52,0:input #2,x
 if x<1 close:print "[No Data]":goto menu
 for a=1 to x:rd=0
list1
 position #2,52,a:input #2,i$:if i$="EMPTY" goto list.end
 o$=mid$(i$,23,1)
 if (o$="%") and (flag(4)=0) i$=left$(i$,22)+"<Anonymous>      "+mid$(i$,41)
 if (o$="%") and (flag(4)) i$=left$(i$,22)+mid$(i$,24)
 print i$;:if fl print:goto list.end
 if rd goto com.add
 open #1,"i3:a"+str$(a):b=mark(1):close #1
 if b goto com.add
 print "Read comments? ";:gosub get.key
 if i$<>"Y" print "No":goto list.end
 print "Yes":gosub read.com:rd=1:goto list1
com.add
 print "Add comment? ";:gosub get.key
 if i$<>"Y" print "No":goto list.end
 print "Yes":gosub write.com
list.end
 next:close:goto menu

remove
 print \"Enter the losername you wish to delete"
 input @2 ">"a$:if a$="" goto menu
 i$=a$:gosub lower.case:a$=ab$
 open #1,"i3:loserlist":position #1,52,0:input #1,x
 if x<1 close:print \"No losers in list!":goto menu
 for a=1 to x:position #1,52,a:input #1,o$
 if not instr(a$,o$) goto rem.end
 print \"Found: "left$(o$,18)
 print "Delete this? ";:gosub get.key
 if i$<>"Y" print "No"\:goto rem.end
 print "Yes":if info(5) goto rem1
 i$=mid$(o$,23,1)
 if i$="%" o$=left$(o$,22)+mid$(o$,24)
 if a4$<>mid$(o$,23,len(a4$)) print \"Not your post!":goto rem.end
rem1
 position #1,52,a:print #1,"EMPTY":kill "i3:a"+str$(a)
 print \"Losername removed."
rem.end
 next:close:print "Losername search completed.":goto menu

add
 print \"Enter the losername you wish to add"
 input @2 ">"i$:if i$="" goto menu
 gosub lower.case
 print \"Enter the state where the loser resides (??=Unknown)"
 input @2 ">"st$:if len(st$)<>2 print \"Invalid entry":goto menu
 an=0:print \"Anonymous post? ";:gosub get.key
 if i$="Y" print "Yes":an=1:else print "No"
 print \"Posting losername...";
 open #1,"i3:loserlist":position #1,52,0:input #1,x
 if x<1 x=1:position #1,52,0:print #1,x:b=1:goto add1
 for a=1 to x:position #1,52,a:input #1,i$
 if i$="EMPTY" b=a:a=x:next:goto add1
 next:x=x+1:b=x:position #1,52,0:print #1,x
add1
 ab$=left$(ab$+chr$(32,18),18):d4$=left$(a4$+chr$(32,18),18)
 if an d4$="%"+d4$
 position #1,52,b:print #1,ab$"|"st$"|"d4$"|"date$"|":close
 print "done.":goto menu

write.com
 print \"Enter your comment now -"\".s = save|.h = help|'done' to edit msg."
 edit(0):edit(1):if not edit(2) print "<Aborted>"\:return
 f$="i3:a"+str$(a):create f$:open #1,f$
 append #1:print #1,\"Comment from: "a4$
 print #1,"Date/time: "date$" "time$\
 copy #8,#1:close #1:print "<Saved>"\:return

read.com
 setint(1):copy "i3:a"+str$(a):setint("")
 if key(1) print "%> Aborted <%"
 print: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

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