home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / rbbs_pc / rfix0227.arc / RSB20227.MRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  2.7 KB  |  75 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against D:\172B\RBBSSUB2.BAS to produce RBBSSUB2.BAS
  3. * D:\172B\RBBSSUB2.BAS:  Date 2-10-1990  Size 134325 bytes
  4. * ------------[ Created 02-28-1990 10:04:14 ]------------
  5. * REPLACING old line(s) by new
  6. 1628 CALL VerifyAns
  7.      IF NOT ZOK THEN _
  8.         CALL QuickTPut1 ("Invalid answer <" + ZUserIn$(1) + ">") : _
  9.         GOTO 1500
  10.      HoldA$ = ""
  11.      ZForceKeyboard = ZFalse
  12.      IF ZMacroSave > 0 THEN _
  13.         ZGSRAra$(ZMacroSave) = ZUserIn$ : _
  14.         ZMacroSave = 0 : _
  15.         GOTO 1632
  16.      IF (ZDistantTGet > 0) OR (ZMacroTemplate$ <> "") THEN _
  17.         CALL WipeLine (38) : _
  18.         IF NOT ZNo THEN _
  19.            GOTO 1632 _
  20.         ELSE ZWasQ = 0 : _
  21.              ZMacroTemplate$ = "" : _
  22.              ZDistantTGet = 0 : _
  23.              ZNo = ZFalse : _
  24.              GOTO 1633
  25.      IF ZMacroActive THEN _
  26.         ZLastIndex = ZWasQ : _
  27.         FirstIndex = 1: _
  28. * ------[ first line different ]------
  29.         ZMacroActive = NOT EOF(6) : _                                ' KG021501
  30.         EXIT SUB
  31.      IF ZAnsIndex > 255 OR ((NOT InStack) AND INSTR(ZUserIn$,".") > 0) THEN _
  32.         EXIT SUB
  33.      IF MacroIndex THEN _
  34.         MacroIndex = 1 _
  35.      ELSE MacroIndex = ZAnsIndex
  36.      CALL NoPath (ZUserIn$(MacroIndex),Found)
  37.      IF Found THEN _
  38.         EXIT SUB
  39.      CALL CheckMacro (ZUserIn$(MacroIndex),Found)
  40.      IF Found THEN _
  41.         ZStoreParseAt = ZAnsIndex : _
  42.         GOTO 1525
  43.      EXIT SUB
  44. * REPLACING old line(s) by new
  45. 20143 ZWasZ$ = ZUserIn$(ZAnsIndex)
  46. * ------[ first line different ]------
  47.       WasZ$ = ZWasZ$                                                 ' KG022205
  48.       CALL AllCaps (ZWasZ$)
  49.       CALL BreakFileName (ZWasZ$,Drive$,Prefix$,Ext$,ZFalse)
  50.       IF Ext$ = "" THEN _
  51.          Ext$ = ZDefaultExtension$ : _
  52.          ZWasZ$ = ZWasZ$ + "." + ZDefaultExtension$
  53.       ZFileNameHold$ = ZWasZ$
  54.       ZFileName$ = ZWasZ$
  55.       CALL BadFile (Prefix$,BadFileNameIndex)
  56.       ON BadFileNameIndex GOTO 20144,20146,20147
  57. * REPLACING old line(s) by new
  58. * ------[ first line different ]------
  59. 20145 CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount + (NOT ZSysop),ZTrue,"V") ' KG022204
  60.       IF ZOK THEN _
  61.          GOTO 20148
  62. * REPLACING old line(s) by new
  63. * ------[ first line different ]------
  64. 20146 ZWasZ$ = WasZ$ + _                                             ' KG022205
  65.            " not found!"
  66.       CALL UpdtCalr (ZWasZ$,2)
  67.       ZOutTxt$ = ZWasZ$ + _
  68.            " Type correct filename" + ZPressEnterExpert$
  69.       ZSubParm = 1
  70.       CALL TGet
  71.       IF ZSubParm = -1 OR ZWasQ = 0 THEN _
  72.          RETURN
  73.       ZUserIn$(ZAnsIndex) = ZUserIn$(1)
  74.       GOTO 20143
  75.