  `Method: FR_UpgradeExternalStep1
  `for 4D 2004

  `$1 = Full Path to script file (e.g.!"C:\MyDatabase\FootRunner Scripts\TestScript.TXT"
C_TEXT($1;$ttFRScriptFilePath;ttFRScript)
C_BLOB($obFRScript)
C_LONGINT($xlError)

  `get script filename
$ttFRScriptFilePath:=$1
  `load script
SET BLOB SIZE($obFRScript;0)
DOCUMENT TO BLOB($ttFRScriptFilePath;$obFRScript)
ttFRScript:=BLOB to text($obFRScript;Text without length)

  `remove the checksum
$xlError:=FRRemoveChecksum(ttFRScript)

  `save script w/o checksum as <filename>(1).TXT
SET BLOB SIZE($obFRScript;0)
TEXT TO BLOB(ttFRScript;$obFRScript;Text without length)
BLOB TO DOCUMENT($ttFRScriptFilePath+"(1).TXT";$obFRScript)