; Dial Your Match Msg Segment
; Created on 02/22/89 by -DC-

; bb = Current msg sub
; bn$= Current msg sub title
; fb$= Current msg sub filename
; bt = Total msg subs available
; fm$= Filename of board data file
 
 on nocar goto link.term

 fm$="i1:msg.boards"
 open #1,fm$:position #1,40,0:input #1,bt:close
 bb=1:fb$="i1:b1":goto start

link.main
 update
 link "a:dym.seg","return"

link.term
 update
 link "a:dym.seg","no.car"

show.file
 setint(1):print \s$\:open #1,f$:if mark(1) close #1:return
showfl2
 copy (20) #1
 if eof(1) or key(1) setint(""):close #1:return
 print "Press [RETURN] ";:get i$:if i$=chr$(13) print " ";
 print chr$(8,16);chr$(32,16);chr$(8,16);
 if i$=" " setint(""):close #1:return
 setint(1):goto showfl2

no.car
 update
 link "a:dym.seg","no.car"
 
editor
 print \"Enter message now, "edit(3)" col, 4k bytes max ";
 print ".s = save|.h = help|'done' to edit msg."
 cl=clock(2):clock(2)=0:edit(0):edit(1):clock(2)=cl:return

date1
 q=val(left$(date$,2)):q1=val(mid$(date$,4,2)):q2=val(right$(date$,2))
 m$="000031059090120151181212243273304334":if q>1 q3=val(mid$(m$,q*3-2,3))
 q1=q1+q3:m$="46012356":q1=q1+val(mid$(m$,8-(94-q2),1)):q1=q1 mod 7
 m$="BobMonTueWedThuFriSat":if q1>1 td$=mid$(m$,q1*3-2,3):else td$="Sun"
 ml$="085534469788":q3=0:for q4=1 to q-1:q3=q3+val(mid$(ml$,q4,1):next
 mt$="FebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember"
 if q>1 m$=mid$(mt$,q3+1,val(mid$(ml$,q4+1,1))):else m$="January"
 min$=mid$(time$,4,2):if len(time$)>8 tm$=time$:goto date2
 if val(left$(time$,2))<12 tm$=left$(time$,2)+":"+min$+"AM":goto date2
 q4=val(left$(time$,2)):tm$=str$(12-(24-q4))+":"+min$+"PM"
date2
 i$=td$+", "+m$+" "+mid$(date$,4,2)+"  "+tm$
 return

start
 open #1,fm$:position #1,40,bb:input #1,bn$:close
 ready fb$:if mr>msg(0) mr=msg(0)
 print \bn$\\"Total messages: "msg(0)
 x=msg(0)-mr:if x print "There are "x" new messages."
start1
 push start1
 input @0 \"Command (?=menu): "i$
 if i$="Q" pop:goto link.main
 if i$="?" f$="i1:msg.menu":goto show.file
 if i$="N" goto new
 if (i$="R") or (i$="F") goto read
 if i$="P" goto post
 if i$="D" goto delete
 if i$="-" goto advance
 if i$="B" goto change
 print \"Invalid command, try again.":return
 
advance
 bb=bb+1:if bb>bt bb=1
 fb$="i1:b"+str$(bb):pop:goto start

change
 print \"Jump to which board? (1-"bt",?): ";
 input @2 i$:if i$="?" goto change1
 a=val(i$):if (a<1) or (a>bt) goto change
 bb=a:fb$="i1:b"+str$(bb):pop:goto start
change1
 print \"Listing of sub-boards:"\
 open #1,fm$:for a=1 to bt
 position #1,40,a:input #1,i$
 print "#"a" = "i$:next
 close:goto change

new
 print \"Read New Messages"\
 if (mr=msg(0)) or (not msg(0)) print "There are no new messages!":return
new1
 input #msg(mr),n$,i$:setint(2)
 print \"Msg#"mr\"From: "n$\"Date: "i$\
 copy #6,#0:setint("")
 if key(1) print \"<Aborted>":return
 mr=mr+1:if mr<=msg(0) goto new1
 print \"End of messages.":return

read
 print \"Read Messages"\
 if not msg(0) print "There are no messages!":return
 print "Start at? (1-"msg(0)"): ";
 input @2 x
 if (x>msg(0)) or (x<1) print \"That message doesn't exist!":return
 for y=x to msg(0):if mr<y mr=y
 input #msg(y),n$,i$:setint(2)
 print \"Msg#"y\"From: "n$\"Date: "i$\
 copy #6,#0:setint("")
 if key(1) print \"<Aborted>":return
 next:print \"End of messages.":return

post
 print \"Post a Message"
 edit(0):gosub editor
 if not edit(2) print \"No message posted.":return
 print \"Saving...";
 if msg(0)=90 kill #msg(1):crunch
 gosub date1
 a=msg(0)+1:print #msg(a),na$,i$
 copy #8,#6:update
 print "done.":return

delete
 print \"Delete a Message"\
 input @2 "Delete #"a
 if (a<1) or (a>msg(0)) print \"That message doesn't exist!":return
 input #msg(a),n$,i$
 if (not info(5)) and (n$<>na$) print \"Not your message.":return
 kill #msg(a):crunch:update
 print \"Message deleted.":return