  `Method: FR_UpgradeTextFieldStep1
  `for 4D 2004

 `$1 = ->Script text field
 `ASSUMPTION: Current record with script can be saved
C_POINTER($1;$pScriptField;$pScriptTable)
C_TEXT(ttFRScript)
C_LONGINT($xlError)

$pScriptField:=$1
   `load script
ttFRScript:=$pScriptField->

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

 `save script w/o checksum back into field
$pScriptField->:=ttFRScript
$pScriptTable:=Table(Table($pScriptField))
SAVE RECORD($pScriptTable->)