print \"Error detected with new message pointers."
 print "Please stand-by while the system attempts to fix itself."\

 om=mn:open #1,"b:data3":position #1,80,5:input #1,mn:close

; open #1,"b:data":input #1,c1,c2,ct,ct$,da$
; input #1,nu,mn,wm\lu$:close:mn=1
 
 bb=1:gosub bl.ldinf
 for x=1 to ab
 bb=x:gosub bl.ldinf
 print "Fixing #"x": "bn$
 ready bf$
 if not msg(0) goto loop
 
 for y=1 to msg(0)
 msg(y)=mn:mn=mn+1
 next
 
loop
 next:update
 open #1,"b:data3":position #1,80,5:print #1,mn:close

; open #1,"b:data"
; print #1,c1,c2,ct,ct$,da$
; print #1,nu,mn,wn\lu$
; close

 print \"New message pointers fixed.  Notifying sysop."\
 edit(0):ready "e:mail":print #msg(1),a
 print #6,'     -%> A System Letter <%-

Letter From -%>New Msg Fix
Date Mailed -%>'date$' 'time$\
 print #6,"The new message fix program was executed.  The old message count"
 print #6,"was set at "om".  The new count is now "mn"."
 copy #8,#6:print #msg(1),chr$(4);chr$(0);:msg(1)=msg(1)+1:update
 link "a:logon.seg","fix.return"
 
bl.ldinf
 if bb=0 bf$="":bl=0:return
 me=0:if bl=bb ready bf$:return
 bl=bb:open #1,"b:data2"
 mark(1)=1120:input #1,ab
 if bb>ab close:bf$="":bl=0:return
 position #1,128,bb+8
 input #1,bn$\bf$\b3,b4\bs,bs$\mb,kl,kb
 b1=1:if b3 b1=flag(b3)
 b2=1:if b4 b2=flag(b4)
 close:if bf$="" bl=0:return
 if b1 ready bf$:nn=nb
 return