<pre>function info typeInfo  toComputer  ---------------------------------------------------------------------------  if typeInfo is "QUICK" then    put the number of cds && "cds," into A    put the number of bgs && "bgs," into B    put the number of cd flds && "cdFlds," into C    put the number of btns && "cdBtns," into D    put the number of flds && "bgFlds," into E    put the number of bg btns && "bgBtns" into F    return A & B & C & D & E & F  end if  ---------------------------------------------------------------------------  if typeInfo is "QUESTIONS" then    put "List of questions not ready yet." into questionsList     return questionsList  end if  ---------------------------------------------------------------------------  if typeInfo is "SONS" then    put liste("sons") into theSounds    set itemDelimiter to tab    repeat with x = 1 to the number of lines of theSounds      put item 1 of line x of theSounds into line x of soundsList    end repeat    return soundsList  end if  ---------------------------------------------------------------------------  if typeInfo is "CARTES" then    repeat with x = 1 to the number of cds      put the short name of cd x into line x of listeCartes    end repeat    return listeCartes  end if  ---------------------------------------------------------------------------  if typeInfo is "FONDS" then    repeat with x = 1 to the number of bgs      put the short name of bg x into line x of listeFonds    end repeat    return listeFonds  end if  ---------------------------------------------------------------------------  if aboutWhat is "PILES" then    put the stacksInUse into stacksInUseInfo    repeat with x = 1 to the number of lines of stacksInUseInfo      put getFileName(line x of stacksInUseInfo) & "," after info    end repeat    put "Home" after info    put sortItems(info,false) into info    doList "Go","Cancel",info,"one" -- commande externe XCMD    get item 2 of the result    if it is empty then exit info    if "scripts utiles" is in it    then go to stack disk() & ":HyperCard:Scripts:" & it    else go to stack disk() & ":HyperCard:" & it    exit info  end if  ---------------------------------------------------------------------------  if typeInfo is "FENETRES" then    put the windows into info    sort lines of info    put linesToItems(info) into info    doList "Show","Cancel",info,"one"  -- commande externe XCMD    get item 2 of the result    if it is empty then exit info    if it is "message" then      show msg box      exit info    end if    if "watcher" is in it then do "show" && it else do "show window" && it    exit info  end ifend info</pre>