<pre>function getResInfo resType,resName,resID  if isResource (resType,resName,resID) then    set itemDelimiter to comma    global resInfo  -- XFCN automatically declares resInfo.    put "Type =" && item 1 of resInfo into line 1 of info    put "Nom =" && item 2 of resInfo into line 2 of info    put "Id =" && item 3 of resInfo into line 3 of info    put "Octets =" && item 4 of resInfo into line 4 of info    put "Fichier =" && item 5 of resInfo into line 5 of info    return info  else    beep    answer "Ressource" && resType && resName && "n'existe pas."  end ifend getResInfo</pre>