home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / rbbs_pc / rfix0227.arc / R-PC0227.MRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  4.1 KB  |  110 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against D:\172B\RBBS-PC.BAS to produce RBBS-PC.BAS
  3. * D:\172B\RBBS-PC.BAS:  Date 2-11-1990  Size 153912 bytes
  4. * ------------[ Created 02-28-1990 10:02:32 ]------------
  5. * REPLACING old line(s) by new
  6. 105 ZVersionID$ = "CPC17.3/0227"
  7. * REPLACING old line(s) by new
  8. 1205 IF ZSubParm < 0 THEN _
  9.         GOTO 202
  10.      ZSubParm = 1
  11.      ZStopInterrupts = ZFalse
  12.      ZNonStop = (ZPageLength < 1)
  13.      ZWasQ = 0
  14.      IF ZHomeConf$ <> "" AND ZHomeConf$ <> "MAIN" THEN _
  15.         TurboLogon = (NOT ConfMailJoin) : _
  16.         ConfMailJoin = ZFalse : _
  17.         ZFF = 8 : _
  18.         ZUserIn$(2) = ZHomeConf$ : _
  19.         ZHomeConf$ = "" : _
  20.         ZWasQ = 1 : _
  21.         ZAnsIndex = 1 : _
  22.         ZLastIndex = 2 : _
  23.         ZStoreParseAt = 1 : _
  24. * ------[ first line different ]------
  25.         ZLastCommand$ = "MJ" : _                                     ' KG021502
  26.         GOTO 1240
  27.      CALL SkipLine (1)
  28. * REPLACING old line(s) by new
  29. 4330 QuickScanMsgs = ZFalse
  30.      ReadMsgs = ZTrue
  31.      HiLiteRec = -1
  32.      ScanMsgs = ZFalse
  33.      MsgStart = 6
  34.      MsgEnd = 100
  35.      IF ZLocalUserMode OR NOT ZLocalUser THEN _
  36.         IF ReadMsgIn$ <> ZActiveMessageFile$ THEN _
  37.            ReadMsgIn$ = ZActiveMessageFile$ : _
  38.            CALL UpdtCalr ("Read Messages in " + ReadMsgIn$,1)
  39.      GOSUB 1300
  40. * ------[ first line different ]------
  41.      GOTO 4350                                                       ' KG022701
  42. '
  43. ' ****  S - COMMAND FROM MAIN MENU (SCAN MESSAGE HEADERS)  ***
  44. '
  45. * DELETING old line(s)
  46. 4338
  47. * REPLACING old line(s) by new
  48. 4360 ZWasLG$(11) = ZWasZ$
  49.      NumMsgsSelected = ZLastIndex
  50. * ------[ first line different ]------
  51.      MsgIndex = ZAnsIndex                                            ' KG022701
  52.      ZLastIndex = 0
  53.      ToRequested = ZFalse
  54.      FromRequested = ZFalse
  55.      IF ZPageLength < 1 THEN _
  56.         ZNonStop = ZTrue
  57. * REPLACING old line(s) by new
  58. 4370 MsgIndex = MsgIndex  + 1                                        ' KG022701
  59. * REPLACING old line(s) by new
  60. * ------[ first line different ]------
  61. 4371 IF MsgIndex <= NumMsgsSelected THEN _                           ' KG022701
  62.         IF LEN(ZUserIn$(ZAnsIndex)) = 1 AND _
  63.            INSTR("Cc",ZUserIn$(MsgIndex)) > 0 THEN _                 ' KG022701
  64.            GOTO 4370 _
  65.         ELSE _
  66.         CALL CheckInt (ZUserIn$(MsgIndex)) : _                       ' KG022701
  67.         IF ZErrCode <> 0 THEN _
  68.            ZWasEL = 4371 : _
  69.            GOTO 13000 _
  70.         ELSE CurMsg = ZTestedIntValue : _
  71.              ZAnsIndex = MsgIndex : _                                ' KG022701
  72.              GOTO 4415
  73. * REPLACING old line(s) by new
  74. * ------[ first line different ]------
  75. 4400 GOSUB 12932                                                     ' KG022701
  76.      IF ZWasQ = 0 THEN _
  77.         RETURN
  78. * REPLACING old line(s) by new
  79. * ------[ first line different ]------
  80. 4402 IF LEN(ZUserIn$(ZAnsIndex)) = 1 THEN _                          ' KG022701
  81.         IF INSTR("Qq",ZUserIn$) THEN _
  82.            RETURN _
  83.         ELSE IF INSTR("Hh",LEFT$(ZUserIn$(ZAnsIndex),1)) THEN _      ' KG022701
  84.                 ZFileName$ = ZHelpPath$ + "MR" + ZHelpExtension$ : _
  85.                 GOSUB 1790 : _
  86.                 GOTO 4390
  87.      MsgIndex = 0                                                    ' KG022701
  88.      NumMsgsSelected = ZWasQ
  89.      GOTO 4370
  90. * REPLACING old line(s) by new
  91. 4416 IF INSTR("Mm",ZUserIn$(ZAnsIndex)) THEN _
  92.         AddressedToUser = ZTrue : _
  93.         GOTO 4370
  94.      ZWasA = INSTR("FfTt",ZUserIn$(ZAnsIndex))
  95.      IF ZWasA > 0 THEN _
  96.         ToRequested = (ZWasA > 2) : _
  97.         FromRequested = (ZWasA < 3) : _
  98.         GOTO 4370
  99.      IF CurMsg = 0 THEN _
  100.         IF SearchHeader$ <> "" THEN _
  101.            GOTO 4370 _
  102. * ------[ first line different ]------
  103.         ELSE SearchString$ = ZUserIn$(ZAnsIndex) : _                 ' KG022701
  104.              CALL AllCaps (SearchString$) : _
  105.              CALL Remove (SearchString$,CHR$(34) + CHR$(39)) : _
  106.              SearchHeader$ = SearchString$ : _
  107.              SubInHeader$ = SearchHeader$ : _
  108.              GOTO 4370
  109.      CALL SkipLine (1)
  110.