<pre>on maintenanceXCMDs  toComputer  unmark all cds  repeat with x = 3 to the number of cds    put x    go cd x    if not isResource(fld "externalType",fld "externalName",,false)    then mark this cd  end repeatend maintenanceXCMDs</pre>