home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / bbs_oth / mfix0709.zip / M-PC0709.FIX < prev    next >
Text File  |  1992-07-09  |  3KB  |  66 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\TEMP\RBBS-PC.BAS to produce E:\RBBS\CHAT\RBBS-PC.BAS
  3. * E:\RBBS\TEMP\RBBS-PC.BAS:  Date 7-7-1992  Size 157790 bytes
  4. * ------------[ Created 07-09-1992 06:36:14 ]------------
  5. * REPLACING old line(s) by new
  6. 4380 WasA1$ = "Msg #" + _
  7.            STR$(LowMsgNumber) + _
  8.            "-" + _
  9.            MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
  10.            " (H)lp,S)ince,L)ast" + _
  11.            LEFT$(",G)lobal",8*(ZLinkedConf$ ="" OR ZGlobalRead)+8)
  12. * ------[ first line different ]------
  13.      CALL SkipLine (-QuickScanMsgs)                                  ' KG062301
  14.      IF ZGlobalRead THEN _
  15.         CALL QuickTPut1 ("Reading globally")
  16.      IF AddressedToUser OR ToRequested OR FromRequested THEN _
  17.         ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
  18.              LEFT$("/",-AddressedToUser) + _
  19.              LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
  20.         CALL QuickTPut1 ("Include only msgs "+ZWasY$+" you.  Read what msgs (? for help)") _
  21.      ELSE WasA1$ = WasA1$ + ",T)o,F)rom,M)" : _
  22.           IF ReadMsgs AND ZMarkedMsgs$ <> "" THEN _
  23.              WasA1$ = WasA1$ + "arked" _
  24.           ELSE WasA1$ = WasA1$ + "ine"
  25.      IF SearchString$ = "" THEN _
  26.         WasA1$ = WasA1$ + _
  27.              ", text" _
  28.      ELSE CALL QuickTPut1 ("Include only msgs with text " + SearchString$ + ".  Read what msgs (? for help)")
  29. * REPLACING old line(s) by new
  30. 4418 ZWasA = INSTR("FfTt",ZUserIn$(ZAnsIndex))
  31.      IF ZWasA > 0 THEN _
  32.         ToRequested = (ZWasA > 2) : _
  33.         FromRequested = (ZWasA < 3) : _
  34.         GOTO 4370
  35.      IF CurMsg = 0 THEN _
  36.         IF SearchHeader$ <> "" THEN _
  37.            GOTO 4370 _
  38.         ELSE SearchString$ = ZUserIn$(ZAnsIndex) : _
  39.              SearchCt = 0 : _
  40.              CALL AllCaps (SearchString$) : _
  41.              CALL Remove (SearchString$,CHR$(34) + CHR$(39)) : _
  42.              SearchHeader$ = SearchString$ : _
  43.              SubInHeader$ = SearchHeader$ : _
  44.              GOTO 4370
  45. * ------[ first line different ]------
  46.      CALL SkipLine (-ReadMsgs)                                       ' KG062301
  47. * REPLACING old line(s) by new
  48. * ------[ first line different ]------
  49. 4631   IF NOT Forward AND NOT Reverse THEN _                         ' KG062301
  50.           GOTO 4370                                                  ' KG062301
  51.         CALL CheckCarrier                                            ' KG062301
  52.        IF ZSubParm THEN _
  53.           RETURN 10595
  54.        IF ZRet THEN _
  55.           RETURN
  56. * REPLACING old line(s) by new
  57. 10986 ZWasZ$ = ZFileName$
  58. * ------[ first line different ]------
  59.       CALL DoorExit (NOT InMenu)                                  'Pe 07/09/92
  60.       LogIndex = 1                                                'Pe 06/12/92
  61.       ZWasQ = 0    'Pe 01/03/91
  62.       RETURN 100      'Pe 07/08/92
  63. '
  64. ' *  5 - COMMAND FROM SYSOP MENU (USER FILE MAINTENANCE)
  65. '
  66.