; obbs
; modified for ACOS on 03/28/87

 on nocar goto no.car
 goto start

no.car
 link "a:main.seg","term1"

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

center
 b=((edit(3)/2))-(len(a$)/2):if not b then b=1
 for a=1 to b:a$=" "+a$:next:return

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

start
 f$="b:bbs.local":open #1,f$:a=mark(1):close:if not a goto begin
 print sc$\"Creating working files...";
 create f$:open #1,f$:position #1,80,0:print #1,"0":close
 print ".";
 f$="b:bbs.long":create f$:open #1,f$:position #1,80,0:print #1,"0":close
 print ".";
 create "b:obbs.data"
begin
 print sc$:a$="%> Other Bulletin Board Systems <%":gosub center:print a$
start1
 print '
Select one of the following:

[1] (206) BBS Listing (user added)
[2] Long Distance Listing (user added)
[3] Local BBS List
[4] National BBS List'
 if flag(3) print "[5] Show Posters"
 if flag(4) print "[6] Delete Poster File"
 print \"Select: ";:gosub get.key:a=val(i$):if flag(3) goto start3
 if (a<1) or (a>4) print "Quit...":goto link.main
 print a:goto start4
start3
 if (a<1) or (a>6) print "Quit...":goto link.main
 print a
 if flag(3) and (a=5) f$="b:obbs.data":gosub show.file:goto start1
 if flag(4) and (a=6) goto posters
start4
 if a=1 f$="b:bbs.local":goto menu
 if a=3 f$="b:loc.list":print sc$:gosub show.file:goto start1
 if a=4 f$="b:nat.list":print sc$:gosub show.file:goto start1
 f$="b:bbs.long"
menu
 print \"Option (A,S,K,Q,?) -%>";
menu1
 gosub get.key
 if (i$="A") and (flag(1)) print "Add BBS":goto add
 if i$="S" print "Show list"\:gosub show:goto menu
 if (i$="K") and (flag(3)) print "Kill entry":goto kill
 if i$="Q" print "Quit":goto start
 if i$<>"?" goto menu1
 print 'Commands -

[A]dd to list, [S]how list, [K]ill entry, [Q]uit':goto menu
add
 print \"Add a number? ";:gosub get.key:if i$<>"Y" print "No":goto menu
 print "Yes"
entry
 input @3 \"Board's name: " br$
 if len(br$)>30 print \"Sorry, only 30 chars!"\"That was "len(br$)" chars.":goto entry
entry1
 print \"Telephone Number?  [xxx/xxx-xxxx]"
 input "]>"tl$:if len(tl$)<>12 goto entry1
 a$="":print \"Does it support 300 baud? ";:get i$:if i$="Y" a$="3"
 print \"Does it support 1200 baud? ";:get i$:if i$="Y" a$=a$+"/12"
 print \"Does it support 2400 baud? ";:get i$:if i$="Y" a$=a$+"/24" 
 print \"Does it support 9600 baud? ";:get i$:if i$="Y" a$=a$+"/96"
 if not a$ print \\"You must select at least one!":goto add
 if left$(a$,1)="/" a$=mid$(a$,2)
 if len(a$)<3 a$=a$+"00"
entry2
 print \\"Enter 21 char description of board -"\chr$(47,22)
 input @3 ">" x$:if len(x$)>21 print \"Under 22 characters please!"\"That one was "len(x$)" chars.":goto entry2
 print sc$\"Name: "br$\"Phone: "tl$
 print "Baud rate(s) supported: "a$
 print "Description of BBS -":print x$
 print \"Is this all correct? ";:gosub get.key:if i$<>"Y" print "No":goto add
 print "Yes"\\"Saving data...";
 open #1,f$:position #1,80,0:input #1,md:for a=1 to md
 position #1,80,a:input #1,o$:if o$="EMPTY" x=a:a=md:next:goto j1
 next:md=md+1:x=md
j1
 position #1,80,0:print #1,md:position #1,80,x
 o$=br$+chr$(32,30):o$=left$(o$,30)
 print #1,o$"|";:print #1,tl$"|";
 o$=chr$(32,10)+a$:o$=right$(o$,10)
 print #1,o$"|";
 print #1,x$:close
 open #1,"b:obbs.data":append #1:print #1,a1$" "a2$" %> "date$" "time$:close
 print chr$(8,14)"Data saved.   ":goto menu

show
 open #1,f$:position #1,80,0:input #1,x
 if not x print "No numbers in list.":close:goto menu
 print sc$\"##>_Board's name"chr$(95,17)"|__Phone #___|___Baud___|_Description_________"
 for a=1 to x:position #1,80,a:input #1,o$:if o$="EMPTY" goto show1
 if a<10 print "0";
 setint(1):print a">"o$:setint(""):if key(1) a=(x-1) print "%> Aborted <%"
show1
 next:close:return

kill
 open #1,f$:position #1,80,0:input #1,x
 if not x print \"There are no entries!":close:goto menu
 input \"Kill entry #" a:if (a<1) or (a>x) close:goto menu
 position #1,80,a:input #1,o$
 print \"Name: "left$(o$,22)
 print "Delete this? ";:gosub get.key:if i$<>"Y" close:print "No":goto menu
 print "Yes":position #1,80,a:print #1,"EMPTY":close
 print \"Task completed.":goto menu

posters
 print \"Erase poster file? ";:gosub get.key
 if i$<>"Y" print "No":goto start1
 print "Erasing...";
 kill "b:obbs.data":create "b:obbs.data"
 print chr$(8,6)"ed.   ":goto start1

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