home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / rbbs_pc / rfix0227.arc / RSB50227.MRG < prev    next >
Encoding:
Text File  |  1990-02-28  |  5.7 KB  |  136 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against D:\172B\RBBSSUB5.BAS to produce RBBSSUB5.BAS
  3. * D:\172B\RBBSSUB5.BAS:  Date 2-10-1990  Size 86814 bytes
  4. * ------------[ Created 02-28-1990 10:07:09 ]------------
  5. * REPLACING old line(s) by new
  6. 20222 CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount + _
  7.                       ((ZUserSecLevel < ZMinSecToView) OR _
  8. * ------[ first line different ]------
  9.                        NOT ZCanDnldFromUp),MarkingTime,"D")          ' KG022204
  10. * REPLACING old line(s) by new
  11. 20247 ZWasDF = 0
  12.       CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse)
  13.       IF ZAutoDownInProgress THEN _
  14. * ------[ first line different ]------
  15.          ZUserIn$(ZAnsIndex) = WasX$ + "." + Extension$ : _          ' RH022501
  16.          ZOutTxt$ = "Transferring -- " + _
  17.               ZUserIn$(ZAnsIndex) : _                                ' RH022501
  18.          GOSUB 21640 : _
  19.          IF ZFileSysParm > 1 THEN _
  20.             RETURN
  21.       IF INSTR("...WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR.ZIP.PAK.ZOO.LZH.","."+Extension$+".") > 2 OR _
  22.          MID$(Extension$,2,1) = "Q" OR _
  23.          (ZRequireNonASCII AND Extension$ = "BAS") THEN _
  24.             ZWasDF = ZTrue
  25. * REPLACING old line(s) by new
  26. 20440 CALL RotorsDir (ZFileName$,ZSubDir$(),ZSubDirCount,ZTrue,"U")  ' KG022204
  27. * REPLACING old line(s) by new
  28. 20450 IF Extension$ <> Check$ THEN _
  29. * ------[ first line different ]------
  30.          CALL RotorsDir (WasX$ + "." + Check$,ZSubDir$(),ZSubDirCount,ZTrue,"U") : _ ' KG021802
  31.          IF ZOK THEN _
  32.             GOTO 20452
  33.       GOTO 20447
  34. * REPLACING old line(s) by new
  35. 63330 ' $SUBTITLE: 'ReadMacro - sub to read macro'
  36. ' $PAGE
  37. '
  38. '  NAME    -- ReadMacro
  39. '
  40. '  INPUTS  -- PARAMETER             MEANING
  41. '
  42. '  OUTPUTS -- ZOutTxt$               LINE TO PROCESS IN MACRO
  43. '             ZMacroActive           FLAG WHETHER IN A MACRO
  44. '
  45. '  PURPOSE -- Reads in a line from macro file (#6) and processes
  46. '             macro commands, which are:
  47. '             *0 - display what follows, no carriage return
  48. '             *1 - display what follows with carriage return
  49. '             *B - display block that follows
  50. '             *F - display File
  51. '             WT - wait specified # of seconds
  52. '             >> - append following block to specified file
  53. '             ST - stack following (with carriage return)
  54. '             ON - define case
  55. '             == - case value that applies to following block
  56. '             M! - execute following macro
  57. '             M@ - abort macro processing
  58. '             EY - Echo on (yes)
  59. '             EN - Echo off (no)
  60. '             /* - comment line skipped in processing
  61. '             TK - Turbo key on (if user preference)
  62. '             << - Read from file into a form
  63. '             := - Assign value to work variable
  64. * ------[ first line different ]------
  65. '             LO - Set the location of a file                        ' KG022301
  66. '
  67.       SUB ReadMacro STATIC
  68.       IF ZMacroTemplate$ <> "" THEN _
  69.          GOTO 63392
  70.       IF ZDistantTGet = 2 THEN _
  71.          GOTO 63349
  72. * REPLACING old line(s) by new
  73. 63336 GOSUB 63395
  74.       IF NOT ZMacroActive THEN _
  75.          ZMacroEcho = ZTrue : _
  76.          EXIT SUB
  77.       IF LEN(ZOutTxt$) < 3 THEN _
  78.          GOTO 63398
  79.       WasX$ = RIGHT$(ZOutTxt$,LEN(ZOutTxt$)-3)
  80.       IF CompareVar > 0 THEN _
  81.          IF NOT CaseExecute THEN _
  82.             IF LEFT$(ZOutTxt$,3) = ZSmartTextCode$+"==" THEN _
  83.                GOTO 63370 _
  84.             ELSE IF LEFT$(ZOutTxt$,7) = ZSmartTextCode$ + "END ON" THEN _
  85.                     CompareVar = 0 : _
  86.                     GOTO 63336 _
  87.                   ELSE GOTO 63336
  88.       IF LEFT$(ZOutTxt$,1) <> ZSmartTextCode$ THEN _
  89.          GOTO 63398
  90.       CALL CheckInt (MID$(ZOutTxt$,2))
  91.       IF ZErrCode > 0 THEN _
  92.          GOTO 63398
  93.       IF ZTestedIntValue > 0 AND ZTestedIntValue <= ZMaxWorkVar THEN _
  94.          ZOutTxt$ = WasX$ : _  ' Macro command ask
  95.          ZForceKeyboard = ZTrue : _
  96.          ZMacroSave = ZTestedIntValue : _
  97.          ZLinesPrinted = 1 : _
  98.          ZNonStop = (ZPageLength < 1) : _
  99.          EXIT SUB
  100. * ------[ first line different ]------
  101.       ON (1+INSTR("*0*1*B*FWT>>STON==M!M@EYEN/*TK<<:=LVNVCVLO",MID$(ZOutTxt$,2,2)))\2 GOTO _ ' KG022301
  102.          63345, _  ' Display with no Carriage Return
  103.          63347, _  ' Display with Carriage Return
  104.          63340, _  ' Display Block
  105.          63348, _  ' Display File
  106.          63343, _  ' Wait # of seconds
  107.          63350, _  ' Append to file
  108.          63355, _  ' Stack
  109.          63360, _  ' Case
  110.          63370, _  ' Case Comparison
  111.          63375, _  ' Macro execute
  112.          63380, _  ' Macro Abort
  113.          63383, _  ' Macro Echo on
  114.          63385, _  ' Macro Echo off
  115.          63336, _  ' Macro Comment
  116.          63387, _  ' Turbo Key allowed
  117.          63390, _  ' Form read
  118.          63362, _  ' Assign value to work var
  119.          63363, _  ' LV list verify
  120.          63364, _  ' NV number verify
  121.          63364, _  ' CV character verify                             ' KG022301
  122.          63367     ' LO assign file location                         ' KG022301
  123.       GOTO 63398
  124. * REPLACING old line(s) by new
  125. * ------[ first line different ]------
  126. 63362 CALL Trim (WasX$)                                              ' KG021803
  127.       CALL CheckInt (WasX$)
  128.       WasX = INSTR(WasX$," ")
  129.       IF WasX > 0 AND ZTestedIntValue > 0 AND ZTestedIntValue <= ZMaxWorkVar THEN _
  130.          ZGSRAra$(ZTestedIntValue) = RIGHT$(WasX$,LEN(WasX$)-WasX)   ' KG021803
  131.       GOTO 63336
  132. * INSERTING new line(s)
  133. 63367 CALL TRIM (WasX$)                                              ' KG022301
  134.       ZFileLocation$ = WasX$                                         ' KG022301
  135.       GOTO 63336                                                     ' KG022301
  136.