home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / bbs_oth / mfix0709.zip / MBS30709.FIX < prev    next >
Text File  |  1992-07-09  |  4KB  |  103 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\TEMP\RBBSSUB3.BAS to produce E:\RBBS\CHAT\RBBSSUB3.BAS
  3. * E:\RBBS\TEMP\RBBSSUB3.BAS:  Date 7-7-1992  Size 132992 bytes
  4. * ------------[ Created 07-09-1992 06:37:11 ]------------
  5. * REPLACING old line(s) by new
  6. 57005 IF CallersFileIndexTemp! < 1 OR ZRet THEN _
  7. * ------[ first line different ]------
  8.          CLOSE 4 : _                                ' Pe 07/09/92
  9.          GOTO 57101
  10. * REPLACING old line(s) by new
  11. 57100 IF INSTR(ZOutTxt$,"LOGON DENIED") THEN _
  12.          IF NOT ZSysop THEN _
  13.             RETURN
  14.       IF ZJumpSearching THEN _
  15.          ZWasDF$ = ZOutTxt$ : _
  16.          CALL AllCaps (ZWasDF$) : _
  17.          IF INSTR(ZWasDF$,ZJumpTo$) = 0 THEN _
  18.             RETURN _
  19.          ELSE CALL CheckColor (ZOutTxt$,ZJumpTo$,"") : _
  20.               ZJumpSearching = ZFalse
  21.       ZSubParm = 5
  22.       CALL TPut
  23.       WasX = 1
  24.       CALL AskMore ("",ZTrue,ZTrue,WasX,ZFalse)
  25. * ------[ first line different ]------
  26.       IF ZSubParm = -1 THEN _                                        ' RH070402
  27.          GOTO 57102 _                                                ' RH070402
  28.       ELSE IF ZNo THEN _                                             ' RH070402
  29.          GOTO 57101                                                  ' RH070402
  30.       RETURN
  31. * REPLACING old line(s) by new
  32. 57102 ZJumpSupported = ZFalse
  33. * ------[ first line different ]------
  34.       IF OrigCal$ <> ZCallersFile$ THEN _                            ' RH070401
  35.          ZCallersFile$ = OrigCal$ : _
  36.          CALL SetCall
  37.       END SUB
  38. * REPLACING old line(s) by new
  39. 58181 MarkingFiles = ZFalse
  40.       IF (WasX$ = "D" OR WasX$ = "M") THEN IF CanDnld THEN _
  41.  MarkingFiles = (WasX$ = "M") : _
  42.          AtEndList = ZFalse : _                                  'PE 08/04/91
  43. * ------[ first line different ]------
  44.          CALL AskItems ("DM",WasX$,ZTrue,"file",ZMarkedFiles$) : _   ' KG062401
  45.          IF ZWasQ = 0 THEN _
  46.             GOTO 58183
  47.       IF WasX$ = "*" THEN IF ZPersonalDnld THEN _
  48.          GOTO 58193
  49. * REPLACING old line(s) by new
  50. 58188 IF ProcessedNew OR MarkingFiles OR NOT ZListOnly THEN _
  51.          ProcessedNew = ZFalse : _
  52.          RETURN
  53.       ZUserIn$(0) = ""
  54.       WasI = ZAnsIndex              ' check whether in dir
  55.       WHILE WasI <= ZLastIndex
  56.          CALL AraAllCaps (ZUserIn$(),WasI)
  57.          ZWasZ$ = ZUserIn$(WasI)
  58.          CALL UnMarkItems (ZMarkedFiles$,WasI,ZLastIndex,WasX,ZTrue)
  59.          Temp$ = ZUserIn$(WasI)
  60. * ------[ first line different ]------
  61.          CALL AllCaps (Temp$)                                        ' KG062401
  62.          IsProto = (LEN(Temp$) = 1 AND _
  63.                     INSTR(ZDefaultXfer$,Temp$) > 0)
  64.          ZOK = IsProto
  65.          WasJ = LastRec + 1
  66.          WasX = INSTR(Temp$,".")
  67.          AltTemp$ = ""
  68.          IF NOT IsProto THEN _
  69.             IF WasX = 0 THEN _
  70.                AltTemp$ = Temp$ + "." + ZDefaultExtension$ _
  71.             ELSE IF WasX = LEN(Temp$) THEN _
  72.                     AltTemp$ = LEFT$(Temp$,WasX-1)
  73.          WHILE WasJ > 1 AND NOT ZOK
  74.             WasJ = WasJ - 1
  75.             GET #2,WasJ
  76.             GOSUB 58191
  77.             IF CanGet THEN _
  78.                MID$(PartToPrint$,13,1) = " " : _
  79.                WasX$ = LEFT$(PartToPrint$,INSTR(PartToPrint$," ") - 1) : _
  80.                ZOK = (Temp$ = WasX$) : _
  81.                IF NOT ZOK THEN _
  82.                   IF AltTemp$ <> "" THEN _
  83.                   ZOK = (AltTemp$ = WasX$)
  84.          WEND
  85.          IF ZOK THEN _
  86.             GOSUB 58189 : _
  87.             IF ZOK OR IsProto THEN _
  88.                WasX$ = MID$(STR$(WasJ),2) : _
  89.                ZUserIn$(0) = ZUserIn$(0) + _
  90.                        WasX$ + _
  91.                        SPACE$(5 - LEN(WasX$))
  92.          IF NOT ZOK AND NOT IsProto THEN _
  93.             CALL QuickTPut1 (ZWasZ$ + " not found - omitted") : _
  94.             FOR WasK = WasI + 1 TO ZLastIndex : _
  95.                ZUserIn$(WasK - 1) = ZUserIn$(WasK) : _
  96.             NEXT : _
  97.             ZLastIndex = ZLastIndex - 1 : _
  98.             WasI = WasI - 1
  99.          WasI = WasI + 1
  100.       WEND
  101.       ZWasQ = ZLastIndex
  102.       RETURN
  103.