; Wait Receive
; Written 09/20/88 by -DC-

 on nocar goto done
 edit(3)=79:er$=chr$(7)

; BB=sub-board number

 bb=22

; Load in sub-board data

 open #1,"b:data"
 input #1,c1,c2,ct,ct$,da$
 input #1,nu,mn,wm\lu$:close
 me=0:bl=bb:open #1,"b:data2"
 mark(1)=1120:input #1,ab
 position #1,128,bb+8
 input #1,bn$\bf$\b3,b4\bs,bs$\mb,kl,kb
 close:ready bf$

; Posting

bl.post
 edit(0):if kl goto bl.post2
 if msg(0)=mb print er$\"Error - No room on sub-board":goto done
 if msg(0)=info(1) print er$\"Error - Board directory full":goto done
 if info(6)<29 print er$\"Error - Board bit-map full":goto done
bl.post2
 input @3 ">";sb$,a$,sy$,dt$
 if sb$="SN:DONE" goto done
 edit(1):if not edit(2) goto done
 if (kl>0) and (kl<=msg(0)) kill #msg(kb):crunch
 a=msg(0)+1:print #msg(a),0,sb$
 print #6,"Name %>"a$
 print #6,"From %>StarNet #"sn" - "sy$
 print #6,"Date %>"dt$\
 copy #8,#6:msg(a)=mn:mn=mn+1:update
 goto bl.post

done
 modem(2):open #1,"b:data"
 print #1,c1,c2,ct,ct$,da$
 print #1,nu,mn,wm\lu$:close
 link "a:logon.seg"