home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / t / thrdmrg.zip / RBBSSUB2.MRG < prev    next >
Text File  |  1988-10-28  |  916b  |  21 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce D:\LITE\RBBSSUB2.BAS
  3. * RBBSSUB2.BAS:  Date 10-2-1988  Size 130944 bytes
  4. * ------------[ Created 10-28-1988 18:47:45 ]------------
  5. * REPLACING old line(s) by new
  6. 10450 IF INSTR(MESSAGE.RECORD$,DELETED.MESSAGE$) <> 0 THEN _
  7.          SUBROUTINE.PARAMETER = 3 : _
  8.          CALL TPUT : _
  9.          LSET MESSAGE.RECORD$ = LEFT$(MESSAGE.RECORD$,115) + _
  10.                                 ACTIVE.MESSAGE$ + _
  11.                                 MID$(MESSAGE.RECORD$,117) : _
  12.          PUT 1,LOC(1) : _
  13.          SUBROUTINE.PARAMETER = 4 : _
  14.          CALL TPUT : _
  15.          A$ = "Restored Msg #" + _
  16.               STR$(MESSAGE.TO.RECOVER) : _
  17.          ACTION.FLAG = TRUE : _
  18. * ------[ first line different ]------
  19. CALL THREAD4 (MESSAGE.TO.RECOVER,FIRST.MESSAGE.RECORD,ACTION.FLAG,GRN$) : _ 
  20.          GOTO 10485
  21.