<pre>on unprotectStack  toComputer  push cd  set cantDelete of this stack to false  repeat with x = 1 to the number of bgs    go to bg x    set cantDelete of bg x to false    if the number of flds > 0 then      repeat with y = 1 to the number of flds        set lockText of fld y to false      end repeat    end if  end repeat  repeat with x = 1 to the number of cds    go to cd x    set cantDelete of cd x to false    if the number of cd flds > 0 then      repeat with y = 1 to the number of cd flds        set lockText of cd fld y to false      end repeat    end if  end repeat  pop cdend unprotectStack</pre>