home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / rbbs_pc / rfix0312.zip / RSB50312.MRG < prev    next >
Text File  |  1993-03-12  |  3KB  |  54 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\174\RBBSSUB5.BAS to produce D:\SOURCE\RBBSSUB5.BAS
  3. * C:\174\RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 03-12-1993 21:25:58 ]------------
  5. * REPLACING old line(s) by new
  6. 20460 WhoTo$ = ""
  7.       WasY$ = ZFileName$
  8.       CALL KillWork (ZNodeWorkFile$)
  9.       IF ZUserSecLevel >= ZMinSecPersUpld THEN _
  10. * ------[ first line different ]------
  11.          CALL SetWhoTo (ZTrue,WhoTo$,"",RcvrRecNum,Found,ZTrue) _    ' KG012502
  12.       ELSE WhoTo$ = "ALL"
  13.       ZFileName$ = WasY$
  14.       RETURN
  15. * REPLACING old line(s) by new
  16. * ------[ first line different ]------
  17. 63355 CALL GlobalSrchRepl (WasX$,"|",ZCarriageReturn$,ZTrue)        ' KG011201
  18.       ZCommPortStack$ = ZCommPortStack$ + WasX$ + ZCarriageReturn$  ' STack
  19.       GOTO 63336
  20. * REPLACING old line(s) by new
  21. 63615 ' * Sets up next message base link *
  22.       SUB NextConf (DoJoin) STATIC
  23.       IF ZLinkedConf$ = "" OR (NOT DoJoin) THEN _
  24.          EXIT SUB
  25. * ------[ first line different ]------
  26. * INSERTING new line(s)
  27. 63616 EndConf = INSTR(ZLinkedConf$,ZCarriageReturn$)                 ' KG013001
  28.       LastConf = (EndConf = LEN(ZLinkedConf$))                       ' KG013001
  29.       ZHomeConf$ = LEFT$(ZLinkedConf$,EndConf-1)
  30.       IF ZNonStop THEN _
  31.          CALL QuickTPut1 ("Joining linked conference " + ZHomeConf$) _
  32.       ELSE _
  33.          ZOutTxt$ = "Continue to linked conference " + ZHomeConf$ + " ([Y],S)kip,A)bort)" : _ ' KG020801
  34.          CALL DeLink (ZHomeConf$) : _                                ' KG013001
  35.          ZTurboKey = -ZTurboKeyUser : _
  36.          ZSubParm = 1 : _
  37.          CALL TGet : _
  38.          IF ZWasQ > 0 AND NOT ZYes THEN _                            ' KG020801
  39.             ZWasX$ = ZUserIn$(1) : _                                 ' KG013001
  40.             CALL AllCaps (ZWasX$) : _                                ' KG013001
  41.             ZLinkedConf$ = ZLinkedConf$ + ZHomeConf$ + ZCarriageReturn$ : _ ' KG013001
  42.             IF LastConf OR ZWasX$ = "A" THEN _                       ' KG013001
  43.                ZHomeConf$ = ""  : _                                  ' KG013001             ' KG013001
  44.                ZGlobalRead = ZFalse : _                              ' KG013001
  45.                EXIT SUB _                                            ' KG013001
  46.             ELSE GOTO 63616                                          ' KG013001
  47.       END SUB
  48. * REPLACING old line(s) by new
  49. 63659 ZErrCode = 0
  50. * ------[ first line different ]------
  51.       IF ZTempMaxBank > 255 THEN _                                   ' RM030801
  52.          ZTempMaxBank = 255                                          ' RM030801
  53.       END SUB
  54.