home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / ALIA173C.ZIP / RSB2ALIA < prev    next >
Text File  |  1991-12-18  |  1KB  |  34 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
  3. * RBBSSUB2.BAS:  Date 9-23-1990  Size 138257 bytes
  4. * ------------[ Created 10-09-1990 01:39:13 ]------------
  5. * REPLACING old line(s) by new
  6. 2060 ZOutTxt$ = "Make message p(U)blic, p(R)ivate, (P)assword protected, (H)elp"
  7. * ------[ first line different ]------
  8.      IF INSTR(ZAliasFile$,ZActiveMessageFile$) > 0 THEN _                  'Alias
  9.         ZOutTxt$ = "Make message p(U)blic, (P)assword protected, (H)elp"   'Alias0423
  10.      IF MsgPswd$ = "^READ^" THEN _
  11.         DefaultProt$ = "R" : _
  12.         GOTO 2065
  13.      IF LEFT$(MsgPswd$,1) = "!" THEN _
  14.         DefaultProt$ = "P" _
  15.      ELSE _
  16.         DefaultProt$ = "U"
  17. * REPLACING old line(s) by new
  18. 2065 MID$(ZOutTxt$,INSTR(ZOutTxt$,"("+DefaultProt$+")"),3) = "["+DefaultProt$+"]"
  19.      ZTurboKey = -ZTurboKeyUser
  20.      GOSUB 2096
  21.      IF ZWasQ = 0 THEN _
  22.         ZUserIn$(ZAnsIndex) = DefaultProt$
  23.      ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1)
  24.      CALL AllCaps (ZWasZ$)
  25. * ------[ first line different ]------
  26.      IF INSTR(ZAliasFile$,ZActiveMessageFile$) > 0 THEN _             'Alias
  27.         ON INSTR("RUPH",ZWasZ$) GOTO 2075,2090,2075,2070 : _          'TB121891
  28.         GOTO 2060                                                     'Alias
  29.      ON INSTR("RUPH",ZWasZ$) GOTO 2075,2090,2075,2070
  30.      GOTO 2060
  31. '
  32. ' **  DISPLAY MESSAGE PROTECT HELP   *
  33. '
  34.