  `Method: FR_UpgradeExternalStep3
  `for 4D v11/v12

  `$1 = Full Path to script file converted (e.g.!"C:\MyDatabase\FootRunner Scripts\TestScript.TXT(1).TXT", where "(1).TXT" is to be removed to restore the original script in an upgraded format
C_TEXT($1;$ttFRScriptFilePath;ttFRScript)
C_BLOB($obFRScript)
C_LONGINT($xlError)

 `get filename of script without checksum (created above) $ttFRScriptFilePath:=$1
 `load script w/o checksum
SET BLOB SIZE($obFRScript;0)
DOCUMENT TO BLOB($ttFRScriptFilePath;$obFRScript)
ttFRScript:=BLOB to text($obFRScript;Text without length)

  `restore checksum $xlError:=FRAppendChecksum(ttFRScript)
  `resave script with checksum under original script's name
SET BLOB SIZE($obFRScript;0)
TEXT TO BLOB(ttFRScript;$obFRScript;Text without length)
$ttFRScriptPathFile:=Substring($ttFRScriptPathFile;1;Length($ttFRScriptP
athFile)-7)  `strip off "(1).TXT"
BLOB TO DOCUMENT($ttFRScriptPathFile;$obFRScript)