<pre>function getPopMenuItems popMenuName  -- ex: put getPopMenuItems("categories") into theCategories  get disk() & ":Fichiers:PopMenus:" & popMenuName  put readFile(it) into popMenuLines  repeat with x = 1 to the number of lines of popMenuLines    put line x of popMenuLines & ";" after popMenuItems  end repeat  delete last char of popMenuItems  return popMenuItemsend getPopMenuItems</pre>