<pre>on appendResMenu resType  toComputer  if there is a menu resType then    return "Menu" && quote & resType & quote && "already exists."  else    put char 7 to 10 of the seconds into uniqueID    resMenu resType,uniqueID,resType    return the result  end ifend appendResMenu</pre>