<pre>on protectStack stackName  toComputer  put pile(stackName) into destination  if there is a stack destination then    push cd    set cantDelete of this stack to true    repeat with x = 1 to the number of bgs      go to bg x      set cantDelete of bg x to true      if the number of flds > 0 then        repeat with y = 1 to the number of flds          set lockText of fld y to true        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 true      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 true        end repeat      end if    end repeat    pop cd  end ifend protectStack</pre>