home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / t / tkeymrg.zip / RBBS-PC.MRG next >
Text File  |  1988-10-28  |  4KB  |  69 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce D:\LITE\RBBS-PC.BAS
  3. * RBBS-PC.BAS:  Date 10-12-1988  Size 138779 bytes
  4. * ------------[ Created 10-28-1988 05:07:46 ]------------
  5. * REPLACING old line(s) by new
  6. 4350 SEARCH.HEADER$ = ""
  7. * ------[ first line different ]------
  8.      SELECT.BY.NUMBER = FALSE                                ' TKEY* Pete
  9. * REPLACING old line(s) by new
  10. 4380 NON.STOP = FALSE
  11. * ------[ first line different ]------
  12.        A1$ = ""                                                 'Tkey * pete
  13.        A1$ = crlf$ + _
  14.        "Message Sub commands : "+ crlf$ + _
  15.        "A)ll" + crlf$ + _
  16.        "N)umber" + crlf$ + _                                    'Tkey *
  17.        "S)ince last call"+ crlf$ + _
  18.        "T)ext" + crlf$ + _
  19.        "M)ine only" + crlf$ +"H)elp or"
  20.      TURBO.KEY = -TURBO.KEY.USER                                'TKEY * Pete
  21.      IF ADDRESSED.TO.USER OR TO.REQUESTED OR FROM.REQUESTED THEN _
  22.           CALL QTPUT(FG.3$ + "Selecting" + FG.4$ + _             'Tkey *
  23.                      " Your" + FG.3$ + " messages....",1) : _    'Tkey *
  24.           SELECT.BY.NUMBER = TRUE                                'Tkey *
  25.        IF SEARCH.STRING$ <> "" THEN _
  26.           CALL QTPUT(FG.3$ + "Selecting messages with '" + _      'Tkey *
  27.                      FG.4$ + SEARCH.STRING$ + FG.2$ + _           'Tkey *
  28.                     "'....",1) : _                                'Tkey *
  29.     SELECT.BY.NUMBER = TRUE                                   'Tkey *
  30.        IF SELECT.BY.NUMBER THEN _                                 'Tkey *
  31.           A1$ = "Enter message number(s)"  + _                    'Tkey *
  32.                 STR$(LOW.MESSAGE.NUMBER)  + _                     'Tkey *
  33.                 " to" + STR$(M(ACTIVE.MESSAGES,2)) + _            'Tkey *
  34.            " A)ll " : _ 
  35.       TURBO.KEY = FALSE                                           'Tkey*
  36. * REPLACING old line(s) by new
  37. 4390 A$ = A1$ + PRESS.ENTER.EXPERT$
  38. * REPLACING old line(s) by new
  39. 4400 GOSUB 12995
  40.      IF Q = 0 THEN _
  41.         RETURN
  42. * ------[ first line different ]------
  43.      IF SELECT.BY.NUMBER THEN _                                   'Tkey *
  44.         IF INSTR("Aa",LEFT$(B$(1),1)) THEN _                      'Tkey *
  45.            B$(1) = "1+"                                           'Tkey *
  46.      IF LEN(B$(1)) = 1 THEN                                       'Tkey *
  47.         IF INSTR("Aa",LEFT$(B$(1),1)) THEN _                      'Tkey *
  48.            B$(1) = "1+"                                           'Tkey *
  49.       IF LEN(B$(1)) = 1 THEN _
  50.         IF INSTR("Qq",LEFT$(B$(1),1)) THEN _
  51.            RETURN 
  52.        IF INSTR("Hh",LEFT$(B$(1),1)) THEN _ 
  53.                 FILE.NAME$ = HELP.PATH$ + "MR" + HELP.EXTENSION$ : _
  54.                 GOSUB 1790 : _
  55.         TURBO.KEY = -TURBO.KEY.USER : _                      'TKEY * Pete
  56.                 GOTO 4390
  57.         IF INSTR("Nn",LEFT$(B$(1),1)) THEN _                       'Tkey *
  58.            SELECT.BY.NUMBER = TRUE : _                             'Tkey *
  59.            GOTO 4380                                               'Tkey *
  60.         IF INSTR("Tt",LEFT$(B$(1),1)) THEN _                       'Tkey *
  61.            A1$ =  "Enter text to search for " : _                  'Tkey *
  62.            GOTO 4390                                               'Tkey *
  63.      END IF                                                        'Tkey *
  64.      MESSAGES.SELECTED.INDEX = 0
  65.      NUMBER.MESSAGES.SELECTED = Q
  66.      GOTO 4370
  67. * DELETING old line(s)
  68. 4402
  69.