* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against D:\172B\RBBSSUB1.BAS to produce RBBSSUB1.BAS
* D:\172B\RBBSSUB1.BAS:  Date 2-10-1990  Size 53454 bytes
* ------------[ Created 05-20-1990 20:25:06 ]------------
* REPLACING old line(s) by new
29920 ZErrCode = 0
      IF IBMFileLock = 6 AND IBMRecLock = 3 THEN _
         IBMCount = IBMCount - 1 : _
         IF IBMCount > 0 THEN _
            EXIT SUB _
         ELSE IBMCount = 0
      UNLOCK IBMFileLock, IBMRecLock TO IBMRecLock
* ------[ first line different ]------
      IF ZErrCode = 70 THEN _                                        ' ML041401
         EXIT SUB                                                    ' ML041401
      IF ZErrCode <> 0 THEN _
         GOTO 29920
      END SUB