#!/bin/sh
# MetaCard 2.4 stack
# The following is not ASCII text,
# so now would be a good time to q out of more
exec mc $0 "$@"
                                                                                                                                 : 
KernelEdisan 2  --
-- Kernel EDISAN Version 1
-- Release 5.1 (4/4/2002)
--  2000
--
--

------------------------------
--   Initialisations    --
------------------------------

on initPlug
  global g_platform, g_develop, g_licenceNum, g_nullLicence
  global g_filePath
  --
  set cursor to watch
  put false into g_nullLicence
  put false into g_develop
  put the platform into g_platform
  insert the script of stack "KernelEdisan" into back
  --
  -- Vrification de la licence
  --
  --get g_filePath[local] & "NullLicence"
  --if (there is a file it) then
  --   go to stack it
  --   send "initPlug" to stack it
  -- end if
  -- if (not g_nullLicence) then
  --   loadLicence
  --   if g_licenceNum is empty then
  --     personnalisation
  --  end if
  --  if not verifLicence() then
  --    showDialog "badLicence"
  --    emptyLicence
  --     quit
  --  end if
  -- end if
  hide stack "KernelEdisan"
end initPlug

on initGlobals
  global g_ISO,g_listePays
  get fld "CodesISO" of cd 1 of stack "EdisanParams"
  put empty into g_ISO
  put empty into g_listePays
  repeat for each line l in it
    put item 2 of l & return after g_listePays
    put item 2 of l into g_ISO[item 3 of l]
    put item 3 of l into g_ISO[item 2 of l]
  end repeat
end initGlobals


------------------------------------------------
--   Gestion des prfrences   --
------------------------------------------------

on loadPrefs
  send "loadPrefs" to stack "edisanm"
end loadPrefs

function getDefaultDir
  global g_filePath
  put "file:" & g_filePath["prfrences"] & "init" into fName
  get url fName
  return it
end getDefaultDir

on setDefaultDir thePath
  global g_filePath
  put "file:" & g_filePath["prfrences"] & "init" into fName
  put thePath into url fName
end setDefaultDir


-----------------------------
--  Moteur hypertexte  --
-----------------------------

on navigateOnText theText   -- compatibilit avec les anciennes versions (MediTravel)
  if theText is empty then exit navigateOnText
  get decodeAnchor (theText)
  if it is not empty then getNode it
end navigateOnText

on navigateOnButton option
  set cursor to busy
  put the name of the target into theAnchor
  replace quote with empty in theAnchor
  set cursor to busy
  get decodeAnchor (theAnchor)
  if it is not empty then getNode it, option
end navigateOnButton

on navigateOnClickList
  select word 1 to -1 of the clickLine
  set cursor to watch
  wait 0.3 seconds
  get the selection
  select empty
  if it is not empty then
    get decodeAnchor (it)
    if it is not empty then getNode it
  end if
end navigateOnClickList

on navigateOnClickText
  if ("group" is not in the textStyle of the clickChunk) and ("link" is not in the textStyle of the clickChunk) then exit navigateOnClickText
  select the clickChunk
  set cursor to watch
  wait 0.3 seconds
  put the selection into theText
  select empty
  if theText is not empty then
    get decodeAnchor (theText)
    if it is not empty then getNode it
  end if
end navigateOnClickText

on navigateOnCursor theAnchor,anchorList,linkList
  get decodeAnchor (theAnchor,anchorList,linkList)
  if it is not empty then getNode it,"noPush"
end navigateOnCursor

on navigatePopCd
  pop cd
end navigatePopCd

function decodeAnchor theAnchor,anchorList,linkList
  global g_develop
  set cursor to busy
  if anchorList is empty then
    get fld "Anchors"
  else
    get anchorList
  end if
  set cursor to busy
  put the number of lines in it into m
  put false into isFound
  repeat with i=1 to m
    if theAnchor is  item 1 of line i of it then
      put true into isFound
      exit repeat
    end if
  end repeat
  set cursor to busy
  if not isFound then
    if g_develop then answer quote & theAnchor & quote && ": Ancre non definie"
    exit decodeAnchor
  end if
  put item 2 of line i of it into theLink
  if linkList is empty then
    get fld "Links"
  else
    get linkList
  end if
  put the number of lines in it into n
  put false into isFound
  repeat with i=1 to n
    if theLink is item 1 of line i of it then
      put true into isFound
      exit repeat
    end if
  end repeat
  set cursor to busy
  if isFound then
    return line i of it
  else
    if g_develop then answer quote & theLink & quote && ": Lien non defini"
    return empty
  end if
end decodeAnchor

on getNode theLink,theOptions
  global g_develop,g_prefs,g_filePath
  set cursor to busy
  put item 3 of theLink into theDestination
  set itemDelimiter to "."
  put the number of items in theDestination into n
  put item 1 of theDestination into item1
  put item 2 of theDestination into item2
  put item 3 of theDestination into item3
  set the itemDelimiter to ","
  ------  Traitement des cas particuliers
  if item 2 of theLink <> "L1" then
    if g_prefs["httpEdisan"] then put "D" into item 2 of theLink
    if g_prefs["httpFlash"] and (item2 is "flash") then put "D" into item 2 of theLink
  end if
  --
  if item 2 of theLink is  "L" then
    switch n
    case 2
      get g_filePath["local"] & g_filePath[item1] & toLower(item2)
      go to cd 1 of stack it
      break
    case 3
      if item2 is the short name of the topStack then
        if "noPush" is not in theOptions then push cd
        go to cd item3
      else
        get g_filePath["local"] & g_filePath[item1] & toLower(item2)
        go to cd item3 of stack it
      end if
      break
    end switch
    if the result is "No such card" then
      if g_prefs["httpEdisan"] then put "D" into item 2 of theLink
      else if g_develop then answer format ("La carte %s de la pile %s est inexistante", item3,item2)
    end if
    exit getNode
  end if
  if item 2 of theLink is  "D" then
    switch n
    case 2
      get g_filePath["edisanRemote"] & g_filePath[item1] & toLower(item2)
      go to cd 1 of stack url it
      break
    case 3
      if item2 is the short name of the topStack then
        if "noPush" is not in theOptions then push cd
        go to cd item3
      else
        get g_filePath["edisanRemote"] & g_filePath[item1] & toLower(item2)
        go to cd item3 of stack url it
      end if
      break
    end switch
    if the result is "No such card" and g_develop then answer format ("La carte %s de la pile distante %s est inexistante", item3,item2)
    exit getNode
  end if
  if item 2 of theLink is  "L1" then
    switch n
    case 1
      go to cd 1 of stack item1
      break
    case 2
      if item1 is the short name of the topStack then
        if "noPush" is not in theOptions then push cd
        go to cd item2
      else
        go to cd item2 of stack item1
      end if
      break
    end switch
    if the result is "No such card" and g_develop then answer format ("La carte %s de la pile %s est inexistante", item2,item1)
    exit getNode
  end if
end getNode

on navigatePerso x
  global g_filePath
  put g_filePath[priv] & "informations" into theStack
  if there is a cd x of stack theStack then
    go to cd x of stack theStack
  else
    go to cd 1 of stack theStack
    create card
    set the name of this cd to x
    save this stack
    set the title of this stack to g_ISO[the short name of this card]
  end if
end navigatePerso


---------------------------------
--  Moteur documentaire  --
---------------------------------
on Recherche theStacks
  ask "Quel mot recherchez-vous ?"
  if it is empty then exit Recherche
  findText it,theStacks
end Recherche

on findText theText, theStacks
  global g_ISO,g_prefs
  set the cursor to watch
  put the short name of this stack into oStack
  put empty into stackList
  put empty into fileList
  lock screen
  switch theStacks
  case empty
    put oStack into stackList
    put oStack into fileList
    break
  case monographie
    put char 1 to 6 of oStack & "p" into line 1 of stackList
    put char 1 to 6 of oStack & "m" into line 2 of stackList
    put char 1 to 6 of oStack & "c" into line 3 of stackList
    put char 1 to 6 of oStack & "a" into line 4 of stackList
    put urlFolder("pays") & char 1 to 6 of oStack & "p" into line 1 of fileList
    put urlFolder("maladies") & char 1 to 6 of oStack & "m" into line 2 of fileList
    put urlFolder("cartes") & char 1 to 6 of oStack & "c" into line 3 of fileList
    put urlFolder("adresses") & char 1 to 6 of oStack & "a" into line 4 of fileList
    break
  end switch
  -----
  put the id of this cd into retour
  put empty into theResult
  put empty into buffer
  repeat with i=1 to the number of lines in stackList
    if line i of stackList is not oStack then
      if g_prefs["httpEdisan"] then go to stack url (line i of fileList)
      else go to stack (line i of fileList)
    else
      go to stack oStack
    end if
    find string theText
    if the result is empty then
      put the id of this cd & "," & line i of fileList & return after theResult
      put buildIndexLine (the id of this cd,line i of stackList) after buffer
      repeat forever
        go to next cd
        find string theText
        get the id of this cd & "," & line i of fileList
        if it is in theResult then exit repeat
        put it & return after theResult
        put buildIndexLine (the id of this cd,line i of stackList) after buffer
      end repeat
    end if
    if line i of stackList is not oStack then close stack (line i of stackList)
  end repeat
  go to cd id retour of stack oStack
  unlock screen
  put buffer into fld "Liste" of stack "findResult"
  put theResult into fld "Result" of stack "findResult"
  put theText into fld "Expression" of stack "findResult"
  palette "findResult"
end findText

function buildIndexLine cdId,theStack
  if there is a fld "Titre" of cd id cdId of stack theStack
  then get fld "Titre" of cd id cdId of stack theStack
  else get "(... sans titre ...)"
  if the number of lines in it > 1 then get line 1 of it & " ..."
  put  " [" & the title of stack theStack after it
  if char 1 to 3 of the short name of stack theStack is "iso" then
    put "acm,adresses,cartes,maladies" into x
    put offset(char 7 of the short name of stack theStack,x) +1into z
    if z > 1 then put  "-" & item z of x after it
  end if
  put  "]" & return after it
  return it
end buildIndexLine

on flashFind
  global g_prefs,g_filePath
  set the cursor to busy
  put the short name of this stack into oStack
  put the id of this cd into retour
  put char 1 to 6 of the short name of this stack into isoName
  if g_prefs["httpEdisan"] or g_prefs["httpFlash"] then
    put g_filePath["edisanRemote"] & g_filePath["commun"] & "flash" into fName
    go to stack url fName
  else
    put g_filePath["local"] & g_filePath["commun"] & "flash" into fName
    go to stack fName
  end if
  put empty into theResult
  put empty into buffer
  put the number of cds into n
  repeat with i=2 to n
    repeat for each line l in fld "indexation" of cd i
      if item 1 of l is isoName then
        set the cursor to busy
        if item 2 of l = 1
        then put (10000 + i)  & return after theResult
        else put (20000 + i)  & return after theResult
        exit repeat
      end if
    end repeat
  end repeat
  sort lines of theResult
  set the cursor to busy
  put the number of lines in theResult into n
  repeat with i=1 to n
    set the cursor to busy
    get line i of theResult
    if it is empty then next repeat
    if char 1 of it is "1" then
      subtract 10000 from it
    else
      subtract 20000 from it
      put "(cit) " after buffer
    end if
    put fld "Lieu" of cd it &  " - " & fld "Date" of cd it & return after buffer
    put the id of cd it & "," & fName into line i of theResult
  end repeat
  go to cd id retour of stack oStack
  close stack "Flash"
  put buffer into fld "Liste" of stack "flashFindResult"
  put theResult into fld "Result" of stack "flashFindResult"
  palette "flashFindResult"
end flashFind

on goFoundCard
  select word 1 to -1 of the clickLine
  set cursor to watch
  wait 0.3 seconds
  get word 2 of the clickLine
  select empty
  if it is not empty then
    get line it of fld "Result"
    if char 1 to 5 of item 2 of it is "http:" then go to stack url (item 2 of it)
    else go to stack (item 2 of it)
    go to cd id (item 1 of it)
  end if
end goFoundCard


-----------------------------------------
--   Utilitaires de l'iconographie   --
-----------------------------------------

on showSlides
  set cursor to watch
  put the short name of the target into x
  put the short name of this cd into theName
  -- Construire la liste des images
  put empty into theList
  put 1 into n
  repeat with i=1 to the number of images
    if "showSlides" is in the script of image i then
      put the short name of image i & return after theList
      if the short name of image i is x then put n into theNum
      add 1 to n
    end if
  end repeat
  delete last char of theList
  -- Initialiser la pile visionneuse
  put urlFolder("photos")  & "visionneuse" into theStack
  if char 1 to 5 of theStack is "http:" then
    go to stack url theStack
    set the visible of stack "visionneuse" to false
  else
    set the visible of stack theStack to false
    go to stack theStack
  end if
  set the ImageList of stack "visionneuse" to theList
  set the ListName of stack  "visionneuse" to theName
  set the currentImage of stack  "visionneuse" to theNum
  send "showFolder" to stack "visionneuse"
  set the visible of stack "visionneuse" to true
end showSlides


------------------------------------
--   Utilitaires d'exportation   --
------------------------------------

on printReport isoName,isISO
  global g_ISO,g_prefs,g_filePath
  --
  -- Initialisations
  if not isISO then put last line of the recentNames of the topStack into Retour
  if g_prefs["showReportPrefs"] then go to cd 2 of stack "prefAccess" as modal
  set the decorations of stack "PrintProgress" to empty
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to 0
  put "Prparation des donnes ..." into fld "Label" of stack "PrintProgress"
  go to stack "printProgress"
  initOutBuffer g_ISO[isoName]
  --
  -- exploitation de meditravel
  put "atlas" & char 4 of isoName into sName
  openTheInvStack "meditravel",sName
  if there is a cd isoName of this stack then
    get "binfile:" & g_filePath["cache"] & "image1.gif"
    put image 2 of cd isoName of this stack into url it
    insertText "<CENTER><IMG SRC=" & quote & "image1.gif" & quote & "></CENTER><P>"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & "><P><P>"
  end if
  closeTheInvStack sName
  --
  put "risques" & char 4 of isoName into sName
  if isISO then
    openTheInvStack "meditravel",sName
    go to cd isoName
  else
    lock screen
    go to cd isoName of stack sName
  end if
  --
  if g_prefs["report.vaccination"] then
    InsertText "<H2>Vaccinations</H2><P>"
    InsertFld "Vaccinations"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
  end if
  --
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
      (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*2
  --
  if g_prefs["report.malaria"] then
    InsertText "<P><P><H2>Paludisme</H2><P>"
    insertMap "image2","meditravel", "nosoatlas" & char 4 of isoName,isoName
    put "risques" & char 4 of isoName into sName
    go to cd isoName of stack sName
    InsertFldBis "lutte",sName
    InsertText "<P>"
    InsertFldBis "prevention",sName
    InsertText "<P>"
    InsertFldBis "trt",sName
    InsertText "<P>"
    InsertFld "paludisme"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
  end if
  --
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
      (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*4
  go to cd (isoName && "+") of stack sName
  --
  if g_prefs["report.risks"] then
    InsertText "<P><P><H2>Principaux autres risques</H2><P>"
    InsertFld "Autres risques"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
  end if
  if g_prefs["report.notes"] then
    InsertText "<P><P><H2>Notes</H2><P>"
    InsertFld "notes"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
  end if
  --
  if isISO then
    closeTheInvStack sName
  else
    go to cd Retour
    unlock screen
  end if
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
      (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*6
  --
  -- exploitation de la pile "Pays"
  if isISO then
    if (g_prefs["report.alimentation"]) then
      put isoName & "p" into sName
      if  sName is in the windows then
        lock screen
        go to stack sName
        put the id of this cd into Retour
      else
        openTheInvStack "pays",sName
        put empty into Retour
      end if
      go to cd "Alimentation" of stack sName
      InsertText "<P><P><H2>Alimentation</H2><P>"
      if the number of chars in fld "Texte" > 5 then
        InsertFld "Texte"
        InsertText "<P><H3>Nourriture</H3><P>"
      else
        InsertText "<H3>Nourriture</H3><P>"
      end if
      InsertFld "Nourriture"
      InsertText "<P><P><H3>Boisson</H3><P>"
      InsertFld "Boisson"
      if Retour is empty then
        closeTheInvStack sName
      else
        go to cd id Retour
        unlock screen
      end if
    end if
  end if
  --
  -- fin
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
      (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*8
  writeOutBuffer
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
      (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*10
  close stack "printProgress"
  set the decorations of stack "printProgress" to default
  editOutBuffer
end printReport

on printCompleteReport isoName
  global g_ISO,g_prefs,g_filePath
  --
  -- Initialisations
  if g_prefs["showReportPrefs"] then go to cd 3 of stack "prefAccess" as modal
  set the decorations of stack "PrintProgress" to empty
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to 0
  put "Prparation des donnes ..." into fld "Label" of stack "PrintProgress"
  go to stack "printProgress"
  initOutBuffer g_ISO[isoName]
  --
  -- ------------------------------      Carte de prsentation
  put "atlas" & char 4 of isoName into sName
  openTheInvStack "meditravel",sName
  if there is a cd isoName of this stack then
    get "binfile:" & g_filePath["cache"] & "image1"
    put image 2 of cd isoName of this stack into url it
    insertText "<CENTER><IMG SRC=" & quote & "image1" & quote & "></CENTER><P>"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & "><P><P>"
  end if
  closeTheInvStack sName
  --
  if g_prefs["scollReport.vaccination"] then
    put isoName & "p" into sName
    if  sName is in the windows then
      lock screen
      go to stack sName
      put the id of this cd into Retour
    else
      openTheInvStack "pays",sName
      put empty into Retour
    end if
    go to cd "vaccinations"
    InsertText "<H2>Vaccinations</H2><P>"
    InsertFld "Texte"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
    if Retour is empty then
      closeTheInvStack sName
    else
      go to cd id Retour
      unlock screen
    end if
    put "risques" & char 4 of isoName into sName
    openTheInvStack "meditravel",sName
    go to cd isoName
    --
    set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
        (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*2
    --
    InsertText "<P><P><H2>Paludisme</H2><P>"
    insertMap "image2","meditravel","nosoatlas" & char 4 of isoName,isoName
    put "risques" & char 4 of isoName into sName
    go to cd isoName of stack sName
    InsertFldBis "lutte",sName
    InsertText "<P>"
    InsertFldBis "prevention",sName
    InsertText "<P>"
    InsertFldBis "trt",sName
    InsertFld "paludisme"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
    --
    closeTheInvStack sName
  end if
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
      (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*3
  --
  -- --------------------------------  Alimentation
  if (g_prefs["scollReport.alimentation"]) then
    put isoName & "p" into sName
    if  sName is in the windows then
      lock screen
      go to stack sName
      put the id of this cd into Retour
    else
      openTheInvStack "pays" & sName
      put empty into Retour
    end if
    go to cd "Alimentation"
    InsertText "<P><P><H2>Alimentation</H2><P>"
    if the number of chars in fld "Texte" > 5 then
      InsertFld "Texte"
      InsertText "<P><H3>Nourriture</H3><P>"
    else
      InsertText "<H3>Nourriture</H3><P>"
    end if
    InsertFld "Nourriture"
    InsertText "<P><P><H3>Boisson</H3><P>"
    InsertFld "Boisson"
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
    if Retour is empty then
      closeTheInvStack sName
    else
      go to cd id Retour
      unlock screen
    end if
  end if
  --
  -------------------------------------  Urgence et vacuation
  if g_prefs["scollReport.emergency"] then
    put isoName & "a" into sName
    openTheInvStack "adresses",sName
    go to cd "Urgence"
    InsertText "<P><P><H2>Urgences</H2><P>"
    if there is a fld "Texte" then InsertFld "Texte"
    put the "Traumatologie,Chirurgie,Brls,Cardiologie,Pdiatrie,Gynco-Obsttrique" into theList
    repeat for each item i in theList
      if (fld "Liste" of group i is empty) and (fld "Notes" of group i is empty) then next repeat
      put i into fld "htmlBuffer" of stack "printTools"
      get the htmlText of fld "htmlBuffer" of stack "printTools"
      InsertText "<P><P><B>"& it & "</B><P>"
      if fld "Notes" of group i is not empty then InsertText the htmlText of fld "Notes" of group i
      if last char of the htmlText of fld "Notes" of group i <> ">" then InsertText "<P>"
      if fld "Liste" of group i is not empty then InsertText "<I>" & the htmlText of fld "Liste" of group i & "</I>"
    end repeat
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
    closeTheInvStack sName
  end if
  --
  -------------------------------------  Risques sanitaires
  if g_prefs["scollReport.Risks"] then
    put isoName & "m" into sName
    openTheInvStack "maladies",sName
    put the number of cards in this stack into m
    InsertText "<P><P><H2>Risques sanitaires</H2><P>"
    go to cd 1
    InsertRisksTable
    InsertText "<P><HR WIDTH=" & quote & "5%" & quote & ">"
    repeat with i=2 to m
      go to cd i of stack sName
      insertText "<H3>" & the htmlText of fld "Titre" & "</H3>"
      get fld "Links"
      repeat for each line l in it
        if "cartes." & isoName & "c." is in item 3 of l then
          set the itemDelimiter to "."
          put last item of l into theCd
          set the itemDelimiter to ","
          insertMap "riskmap" & i, "cartes",isoName & "c",theCd
          exit repeat
        end if
      end repeat
      go to cd i of stack sName
      insertFld "Texte"
      InsertText "<P><HR WIDTH=" & quote & "5%" & quote & ">"
    end repeat
    InsertText "<P><HR WIDTH=" & quote & "30%" & quote & ">"
    closeTheInvStack sName
  end if
  --
  -- fin
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
      (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*4
  writeOutBuffer
  set the thumbposition of scrollbar "curseur" of stack "PrintProgress" to \
      (the endValue of scrollbar "curseur" of stack "PrintProgress" div 10)*9
  close stack "printProgress"
  set the decorations of stack "printProgress" to default
  editOutBuffer
end printCompleteReport

on editOutBuffer
  global g_prefs,g_filePath
  if g_prefs["useSpecificBrowser"] then
    if g_prefs["browserName"] is empty then
      answer "Veuillez prciser l'application  utiliser pour l'dition dans les prfrences"
      exit editOutBuffer
    end if
    launch (g_filePath["cache"] & "edisanprint.html") with g_prefs["browserName"]
  else
    openInBrowser (g_filePath["cache"] & "edisanprint.html")
  end if
end editOutBuffer

on openInBrowser theUrl
  if the platform is "Win32" then
    set the hideConsoleWindows to true
    put empty into theTitle
    if "NT" is in the systemVersion then
      set the shellCommand to "cmd.exe"
      put quote & quote into theTitle
    end if
    if space is in theUrl then put quote & theUrl & quote into theUrl
    get shell("start" && theTitle && theURL)
  end if
  if the platform is "MacOS" then
    do format("open location \"file://localhost%s\"", theUrl) as appleScript
  end if
end openInBrowser

on initOutBuffer theTitle
  global g_outBuffer,g_filePath
  put url ("binfile:" & g_filePath["local"] & g_filePath["commun"] & "logo.gif") into url ("binfile:" & g_filePath["cache"] & "logo.gif")
  set the visible of stack "printTools" to false
  go to stack "printTools"
  put fld "Header" of cd 1 of stack "PrintTools" into g_outBuffer
  put theTitle into fld "htmlBuffer" of stack "printTools"
  get the htmlText of fld "htmlBuffer" of stack "printTools"
  replace "?TITLE?" with char 4 to -5 of it in g_outBuffer
  put getFrenchDate() into fld "htmlBuffer" of stack "printTools"
  get the htmlText of fld "htmlBuffer" of stack "printTools"
  replace "?DATE?" with it in g_outBuffer
  close stack "printTools"
  set the visible of stack "printTools" to true
end initOutBuffer

on writeOutBuffer
  global g_outBuffer,g_filePath
  put "</BODY>" & return & "</HTML>" & return after g_outBuffer
  replace "<GROUP>" with empty in g_outBuffer
  replace "</GROUP>" with empty in g_outBuffer
  replace "<FONT" with "<!FONT" in g_outBuffer
  replace "</FONT>" with empty in g_outBuffer
  put "file:" & g_filePath["cache"] & "edisanprint.html" into theURL
  put g_outBuffer into URL theURL
end writeOutBuffer

on InsertText thehtmlText
  global g_outBuffer
  put thehtmlText & return after g_outBuffer
end InsertText

on InsertFld origine
  global g_outBuffer
  put the htmlText of fld origine & return after g_outBuffer
end InsertFld

on InsertFldBis origine,sName
  global g_outBuffer
  get fld origine
  replace " " with empty in it
  if it is empty then exit InsertFldBis
  put the htmlText of fld origine into buffer
  put "<I>" before line 1 of buffer
  put "</I>" after line 1 of buffer
  put line 2 of the htmlText of fld "Texte2" of stack sName & "  " into char 1 to 3 of line 2 of buffer
  put line 3 of the htmlText of fld "Texte2" of stack sName & "  " into char 1 to 3 of line 3 of buffer
  put line 4 of the htmlText of fld "Texte2" of stack sName & " " into char 1 to 3 of line 4 of buffer
  replace "<P>" with "<BR>" in buffer
  put buffer & return after g_outBuffer
end InsertFldBis

on insertMap imgName,theFolder,theStack,theCd
  global g_outBuffer,g_filePath
  openTheInvStack theFolder,theStack
  if there is a cd theCd of this stack then
    go to cd theCd
    get "binfile:" & g_filePath["cache"] & imgName & ".gif"
    repeat with i=2 to the number of images in this cd
      if "250,200" is within the rect of image i then exit repeat
    end repeat
    put image i into url it
    put fld "Map" of cd 1 of stack "printTools" into buffer
    replace "?CARTE?" with (imgName & ".gif") in buffer
    replace "?TEXTE?" with the htmlText of fld "Texte" in buffer
    put buffer after g_outBuffer
  end if
  closeTheInvStack theStack
end insertMap

on InsertRisksTable
  global g_outBuffer
  put fld "Risques" of cd 1 of stack "printTools" into buffer
  get the htmlText of fld "Viraux"
  replace "<P>" with "<BR>" in it
  replace "?VIRAUX?" with it in buffer
  get the htmlText of fld "Bactriens"
  replace "<P>" with "<BR>" in it
  replace "?BACTERIENS?" with it in buffer
  get the htmlText of fld "Parasitaires"
  replace "<P>" with "<BR>" in it
  replace "?PARASITAIRES?" with it in buffer
  get the htmlText of fld "Autres"
  replace "<P>" with "<BR>" in it
  replace "?AUTRES?" with it in buffer
  put buffer after g_outBuffer
end InsertRisksTable


----------------------------
--   Utilitaires divers   --
----------------------------

function getFrenchDate
  set the itemDelimiter to "/"
  put item 1 of the date into theMonth
  put item 2 of the date into theDay
  set the itemDelimiter to ","
  put last item of the long date into theYear
  put item theMonth of \
      "janvier,fvrier,mars,avril,mai,juin,juillet,aot,septembre,octobre,novembre,dcembre"\
      into theMonth
  return theDay && theMonth && theYear
end getFrenchDate

function convertURL thepath
  put empty into buffer
  set the itemdelimiter to "/"
  repeat for each item i in thepath
    repeat for each char c in i
      if c is space then put "%20" after buffer
      else put urlEncode(c) after buffer
    end repeat
    put "/" after buffer
  end repeat
  if last char of thePath <> "/" and last char of buffer = "/" then delete last char of buffer
  return buffer
end convertURL

on openTheStack thePath, theStack
  global g_filePath,g_prefs
  if g_prefs["httpEdisan"] then go to stack url (g_filePath["edisanRemote"] & g_filePath[thePath] & theStack)
  else go to stack (g_filePath["local"] & g_filePath[thePath] & theStack)
end openTheStack

on openTheInvStack thePath, theStack
  global g_filePath,g_prefs
  if g_prefs["httpEdisan"] then
    get g_filePath["edisanRemote"] & g_filePath[thePath] & theStack
    go to stack url it
    set the visible of stack it to false
  else
    get g_filePath["local"] & g_filePath[thePath] & theStack
    set the visible of stack it to false
    go to stack it
  end if
end openTheInvStack

on closeTheInvStack theStack
  global g_prefs
  close stack theStack
  if not g_prefs["httpEdisan"] then set the visible of stack theStack to true
end closeTheInvStack

function urlFolder thePath
  global g_filePath,g_prefs
  if g_prefs["httpEdisan"] then return g_filePath["edisanRemote"] & g_filePath[thePath]
  else return g_filePath["local"] & g_filePath[thePath]
end urlFolder

function xAnswerFile thePrompt, thePath, theFilter
  global g_fileBrowser
  put thePrompt into g_fileBrowser["xPrompt"]
  if thePath is empty
  then put the directory into g_fileBrowser["xPath"]
  else put thePath into g_fileBrowser["xPath"]
  put theFilter into g_fileBrowser["xFilter"]
  go to cd 1 of stack "FileBrowser" as modal
  return g_fileBrowser["xSelection"]
end xAnswerFile

function xAnswerFolder thePrompt, thePath
  global g_fileBrowser
  put thePrompt into g_fileBrowser["xPrompt"]
  if thePath is empty
  then put the directory into g_fileBrowser["xPath"]
  else put thePath into g_fileBrowser["xPath"]
  put empty into g_fileBrowser["xFilter"]
  go to cd 2 of stack "FileBrowser" as modal
  return g_fileBrowser["xSelection"]
end xAnswerFolder


-----------------------------------------
--   Utilitaires pour la licence   --
-----------------------------------------

on personnalisation
  go to card 1 of stack "Registration" as modal
end personnalisation

on loadLicence
  global g_licenceNum, g_theUser, g_theSociety, g_filePath
  put g_filePath["prfrences"] & "Prefs" into prefsFile
  open file prefsFile
  read from file prefsFile until empty
  close file prefsFile
  put line 1 of it into g_licenceNum
  put line 2 of it into g_theUser
  put line 3 of it into g_theSociety
end loadLicence

on saveLicence
  global g_licenceNum,g_theUser,g_theSociety, g_filePath
  put g_filePath["prfrences"] & "Prefs" into prefsFile
  open file prefsFile
  read from file prefsFile until empty
  close file prefsFile
  put g_licenceNum into line 1 of it
  put g_theUser into line 2 of it
  put g_theSociety into line 3 of it
  open file prefsFile
  write it to file prefsFile
  close file prefsFile
end saveLicence

function verifLicence
  global g_licenceNum,g_platform
  get g_licenceNum
  if char 1 to 2 of it <> "MT" then return false
  if char 12 of it <> "F" then return false
  switch g_platform
  case "MacOS"
    if char 14 of it <> "A" then return false
    break
  case "Win32"
    if char 14 of it <> "B" then return false
    break
  default
    if char 14 of it <> "C" then return false
    break
  end switch
  delete char 13 of it
  delete char 7 of it
  put char 14 to 15 of it into theKey
  put 0 into buffer
  repeat with i=1 to 13
    add charToNum (char i of it) to buffer
  end repeat
  put char 16 to 17 of it into theResult
  get buffer mod theKey
  return (it is theResult)
end verifLicence


-------------------------------
--   Copie du CD-ROM   --
-------------------------------

on CDcopy
  global g_filePath,g_runtimePath,g_xAnswer
  modal "answer CDcopy"
  if g_xAnswer is "Annuler" then exit CDcopy
  if the platform is "Win32"
  then put "edisan.exe" into theFilter
  else put "edisan" into theFilter
  get xAnswerFile ("Slectionnez la version d'Edisan  copier :",g_filePath[local],theFilter)
  if it is empty then exit CDcopy
  set cursor to watch
  put it into thePath
  set the itemDelimiter to "/"
  delete last item of thePath
  set the itemDelimiter to ","
  --
  set cursor to watch
  set the directory to g_runtimePath
  get g_runtimePath & "plugs/"
  if there is not a directory it then create directory "plugs"
  get g_runtimePath & "photos/"
  if there is not a directory it then create directory "photos"
  get g_runtimePath & "docs/"
  if there is not a directory it then create directory "docs"
  set the directory to it
  get g_runtimePath & "docs/commun/"
  if there is not a directory it then create directory "commun"
  get g_runtimePath & "docs/pays/"
  if there is not a directory it then create directory "pays"
  get g_runtimePath & "docs/cartes/"
  if there is not a directory it then create directory "cartes"
  get g_runtimePath & "docs/adresses/"
  if there is not a directory it then create directory "adresses"
  get g_runtimePath & "docs/maladies/"
  if there is not a directory it then create directory "maladies"
  get g_runtimePath & "docs/meditravel/"
  if there is not a directory it then create directory "meditravel"
  --
  set the directory to g_runtimePath
  fileCopy (thePath & "/EdisanM"),(g_runtimePath & "EdisanM"), "MSTDMSTK"
  put the directory into oldDir
  put "plugs/,photos/,docs/commun/,docs/pays/,docs/maladies/,docs/cartes/,docs/adresses/," &\
      "docs/meditravel/" into pList
  palette "Progression CDcopy"
  put 0 into d
  repeat for each item i in pList
    put 0 into f
    add 1 to d
    set the thumbPosition of scrollBar "Dossiers" of stack "Progression CDcopy" to d
    set the thumbPosition of scrollBar "Fichiers" of stack "Progression CDcopy" to f
    put thePath & "/" &  i into oPath
    put g_runtimePath & i into dPath
    set the directory to oPath
    put the files into fList
    set the endValue of scrollBar "Fichiers" of stack "Progression CDcopy" to (the number of lines in fList)
    repeat for each line l in fList
      add 1 to f
      set the thumbPosition of scrollBar "Fichiers" of stack "Progression CDcopy" to f
      fileCopy (oPath & l), (dPath & l), "MSTDMSTK"
    end repeat
  end repeat
  close stack "Progression CDcopy"
  set the directory to oldDir
  --
  put g_runtimePath into fld "defaultDir" of cd "Rseau" of stack "PrefAccess"
  save stack "PrefAccess"
  setDefaultDir g_runtimePath
  answer "La copie est termine." & return & "Quittez et redmarrez Edisan pour l'utiliser."
end CDcopy

on createDir thePath
  breakPoint
  put the directory into oldDir
  if last char of thePath = "/" then delete last char of thePath
  set the itemDelimiter to "/"
  switch the platform
  case "Win32"
    put item 1 of thePath & "/" into newDir
    put 1 into i
    break
  case "MacOS"
    put "/" & item 2 of thePath & "/" into newDir
    put 2 into i
    break
    put "/" into newDir
    put 0 into i
  default
  end switch
  put the number of items in thePath into n
  set the directory to newDir
  repeat while i < n
    add 1 to i
    put item i of thePath after newDir
    if there is not a directory newDir then create directory item i of thePath
    set the directory to newDir
    put "/" after newDir
  end repeat
  set the directory to oldDir
end createDir

on fileCopy originFile,destFile,fType
  put the fileType into oType
  if fType is not empty then set the fileType to fType
  put url ("binfile:" & originFile) into url ("binfile:" & destFile)
  if the platform is "MacOS"  then
    put url ("resfile:" & originFile) into url ("resfile:" & destFile)
  end if
  set the fileType to oType
end fileCopy
  w        Black   ffffff      white       	darkgray   = {             
Noyau Edisan      U 
Helvetica   U Times New Roman   U Times New Roman   W Times New Roman   U 
helvetica  
 U Lucida Grande       	@          = {                                	  
    :   Sans titre - 1  	@        	 P  6_ JFIF  H H  Photoshop 3.0 8BIM     x    H H    %@FI{   ,,    
	`, -^ &  '                d                             8BIM      G   G  8BIM             8BIM
       8BIM'     
        8BIM     H /ff  lff       /ff         2    Z         5    -        8BIM     p                8BIM          @  @    8BIM	    
         &    9   
   JFIF  H H   'File written by Adobe Photoshop 4.0  Adobe d     			



  & "   ?          	
         	
 3 !1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw 5 !1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw   ? Uu߭0qY[Ek誼UM|O[{?_R훅WNn;F?Q1̶Ƿ
_ucZϡqnLGT46˚9e[{̇f ;餧aVMRc,g1X粼B??ןUeֳe=F[ogInWU2_H8Emenֵ5{M98Bru,Il]VF_+s-//{ݏu4  YZO*4n5k5ߦ{o߫A7'5{Ilsemu- ?O}&oǴW]
Xn^{  .kN 9,kuݳ),oz}ؒK;{n8;"mgӯ+ư~}w?>4S˚ݿ>w>y}&pζZ1c=սη~IO$C Z۔-7zCw7֥@46'nRp?o/Ƚc^4z]̭ 4K?gVG35:*"^7~gOѰ0.{]es<zT-6RکUm.{@kZѹsZ֪'t޳{rqKwAxk=ymxwۑ~>eU}Cckǵ =URq>g2[kv)zL˽dg$nwkqx}s#5hk]e=4ﱌ9r~F]9g)w}:zUW;)gZJR%!emո_mM,+-reXuQf+}Լٓev2}/_}+oѷΩYj}`71羺i0;G{67m.S]C{qk)èuWN{H}ldo4gRgϫ4mpVvO/>Lu
qgAeyuSmbMϭ5Uc7qū#3" c~mkeN_ Zz3>WOXΝuM?_)U;#n CQJz}um$\ImYuc:}Oz?#Q0^h<okm{Cauޟ+{'AfWTԚeVoKs,/XK{*W%:8_>dz-r]uSmV2{u{k}j 
 M<oWUڈm_c T5~g.=[Ē+s7s
{{X==ͩtaM:n5F[[GINoyt?'' ^SY!Z6mvV?I{O7tNWW]v4c 5 KgEs Q-Itd7oZSzngBY/f1E.=]{7{Jp2FuT`lw<͔uE+}k73gum}7SްȗWV_-=;v~Q_+{owXSo]g=Z0[|͡k~Jkarǫչcck]mkݐv;Z 
,؟#fU]/58Թf-s)$W=kv7->S`0=;mc>7Tvkcv2wZoni)֬=.^GEsznbYQpCHshb+ž\q-noښ־KnnKRaxɯg=W'/I%>>z{ڃM.g
Gmg>S<_]CM$zgKC_E ?DM$RV
o6N-@^CױmRIOI/RIOI/RIOI/RIOI/RIOI/RIO8BIM           'File written by Adobe Photoshop 4.0  Adobe d@     		

				
	

  P	   "            	
         	
 s !1AQa"q2B#R3b$r%C4Scs5D'6Tdt&	
EFVU(eufv7GWgw8HXhx)9IYiy*:JZjz m !1AQa"q2#BRbr3$4CS%cs5DT	
&6E'dtU7()󄔤euFVfvGWgw8HXhx9IYiy*:JZjz   ? P'wX(ԳTI&b PEx^^k"ȤRB7R̾]^50M4i@e3))"a]TǚtmCc̚Yn}r[xk~z,p FMihMJ6mɫ, TXS8IR>.@қ. ?gڹ)nn,)ֳ"~ !ZY>loFֶG-4jM,2ؑfARVSO;[{ؖkiVXۣ)UثWb]v*UثWb]v*UثWb]v* x_?wwukFNk.y&6dDr
Jt-E_?=46V7z5?|曝>GgMiiB圻"I|J^_˿}#;_sKycGx5?1Zi]d{]Z3_1~y5WqK[+ʟˍ~GY:]N<4y.n[|[xO| 8Uy-[:_
ݥwAaiaj==O%5G1`@(_<o04M_W󾁯[5(&%C*BԽfD侻۬UhyOzpΩkFDb{y,(61	@\? Ə}S:'5AncJhA;٠ PmLTյ}+A/sR}2Ե[ْ{xcy%B& ?Z.
_ɂ]"b
kYesث05^o 9Ay 8DǩEiŭi:[(fw`	V4*__! B"^KSOmŵw2(
G"`kU%`{\UثWb]v*UثWbwjм0yɦy{}Ƨ_?H
*ɠU7$ve?6zFF;!ݚy%NJ,
⯸%PW⯇O /v6:ƭӣ"M]R5fݕ*Q
UX5i1W6p^F%dFkqWb .)ya4qs_ 6Zɦ$uE9+ʈ! }K?z埞a͊}ok6[ʞHХ7?,\\&S֖IB{ 82ο\n4;[3\]][[䷖I$)DN!"aWS~_y>PkKVYWk[>r1,6	gQŞy")$Sֿ8"u^r?hwW0M"$rN"T&ߟ<y{Qkw"Coc%5qJ]."E߸_7:VU)u͵&fYjFP^5#F/Aݝ^x[^OԼ_isaq.oo5,Y"t[˥/ݦ{_=oe23 8!m1<ڂءϞwqNC7RǑ5]OPoڊp}Ϲ+Va#DO|,~0!kNc @V_7JK?0#\
7}VU&cED&Q̞8 0<o}
;[+oʿ+[Դ0AD@wU+]J%
>U^/Gs{3FnŽoH
yebUQwb1U?_o_^y<Zq *)<(cg7aV ב~P ̿3<?_&׳]Ʊ"Hn4hϧ)B(WYULC*og淘SQi^@Or->wq\$!
$bOrcL}sJ4k^[:]Eo1ѫ5}."eҿ$%ǚ ѳ0Jy+?e*r~	?&~_~LߔA =y$<J.CxN-=1W[?8n/;~Wy{Oc%MwߥS"VROt HxS.Vs=F3O;{&--yYUaP09mʔe_?_ #6^hGO(Xʍi{wi뉡f}dRgud@GZ* q˞~Ο8?08|嫞˧Syu I~L~*^ CϤB+ʾZkKZsD>jdA 9 9=_+~Psjw~lyK%L"KkRIiQwa#7ݍ_.~Bi`fZ WӵDUVd>5r;tڣ@ q?̯8:֫4h^Б#yE,$7H]ݸ	 b]{~) 9i N^\ޏhVub9f寝jiZ1'0W,>dA?ua {k.|YcDLz Z}_~r iy?H{Rya'o5+YY.D"ŕ~K~n]
^M>XeӴZkH/8]UI Y^bcXꚥn%֣Hy%G!QAff  *qWw'o )4|yG\=0o 9,h/tۦ,@^^<*ωZSO0?'|ǬkR%-i
޻a	vq ՛ȷ?~N|+S/JhKnna ^kT#ߑ>l56ysi]:O*ԫZwh?6m 8mY?,:էۯ/ZeNkU`~r(5 / 8aig򖅫FV&[&FVmdZ((j
xW~VWZiZNmigjmڵV6}А	^d@U~Jg 8k:  "<ɡ"z}k:Cwczq+N<p;H$UqC96,X*R;b?44+]}t8O4?0[JDҥ
I+JUO,Py@n
"TH#BJoqT -w%y.G}Y[;C3fP \ X 2ߧ)RA@#zpOI/(ހFE'@t*ˏ3Aie]e#3GYԊ7{8i 8w;_3] BQյkn/ቕgqxٿySQʛ⯅ 7|o)EZU|~Chjy3:G¤P) *V~^j^uխh]K"U>;qWԗ{uV-9#
jkA Nt e/%|jڶywJ2H+ΏHIUju_6g4ZS]Ϗ7.wkPLr@D<I* X%[yHQUY#H:vlUֿ6yUPY`]'iBQFe"aᗞ<ГyKiOT@ڀb5M{ʲzfcY"FYӈQq'qQ<ѧj$Do
Nث;__:{MoIA,V7
AtVUC"V: k&w꺆n^--g0XT*@	&M S.4˸Hm'I~L4/ï7^Z-݌H5%2G?*.I鷇jb]{L6R2@7bN*_ӭiZnj&[j>i5ē][\!h&@QDb O>KyL& '[yyJuff-#@Mq1yEc_?cJmn#^] 9$[V~bj@=Zw/C.Es5WBdPTbJHc_G/ 8
-'nr@{{Y%V%e
C k?uO_+o,oP4.X_\G}5Hyr+~ǖ* , 8ץ>VOQG/cIKcW!x=uh5OȟݔjMOWnpKjsƐA
(ta$Kˈ[g~_ ߓj姛i܏^Z҆SUpW/KW~G1yInR1?,U2FY2<]~oc7AK!A8Ut"Mq_AҤpe0JUUt97KXt>p%tF*ͿʉIeeooǋƬP^5t튾z =ɾm7-!pXwqWߟ446 QD&zkmO
1Uߢxpq1T<5=K(*shK(Ce1UDѴТ^"4卣nSR]KU(qnVàV8obx|1T}KRk8rhz\`AE4Xvq)n(Q[AQ|1U|U>?;˥yɚ㶗Q_o>~`h_4]*/<K;}R\$EٙT/??<}P~fu]~JkUӢߐtAyGY=wQ	VdG2zaq+ȳo1 1~HOߔ|6B| 2ꚶue2DmUJH;̶ͷL1W0xY4e^DZ=RړG2zYlrߔn{}y1i:6wAu6"FfI^ky;ʖѯyAk *y9@a짗2@TCkk| 9hVEk>VUѴ{{mRMBtHPzѸYT=zU&h6'?172SOX[M./~eDhㆱ
o/?wM@K?=?# +?,|g:m6tϪ[ԋdHb(uuoWv/*OE6L&CF0#;HT  9 8 
X.o"Mqhv_U
|]DaԂ	r> H8"rqPܷF$V,+[>hJIT1T-lU bB ޗW\ip%y#qG(wR * ?c}VY4]Vk~>vLP̠*y ?5 Ko<ݫzCx-_J4kTe,.K1Cw4ƽcϚw奇捄nlq.tЈ=f%c.30I6 8#K 6eΤO>kFFy_XG4r8:ҠUo~y~fyWrKz憟/,yX$ҵl$hlRbAʘm :38fvCI;}rSǦuN^Dń2QOpLU6 9WCI|趋k7X*W	xRjq+ڣu_U~tay+qvӿ0  -;\J[P}&=IGoKa(XUYq+N*=+rqBO4y#:^jhv&P
BIVFz4b_󑿘y]r3ō~fyݥnddh$
8tU7Ǟ. /|_MgY|w5_{;-hHһG$I4ޓ&6 8yCv4
/M5?iOQ󷿉qDLb̬Rj~z 4q~n͟5?2<o=Mھ-$SfOF@C
,b?8ϧZW?2.})a'Ԭ~k$R~ό2NCۊ*\Jb*Uث<yzZ\2_^ɓZLUɷt=:AAP$WnH }C| (_+u}.bY&hVAH=0̾  F~sysjߛ<ío|*<7hm5]Fb U}< 8[m^(^VN6C-q'82
20VRm0Vy^ĶIYڲ1RGJҕ_~WW&?/~V|ū_wK[YKE|C4Kɖ
bb [W
,:u-3Mw|˨G$W7Yk&*-H[J\4+Jz2D8~% 90֦?M1GIyٳ,i2)_O4
7ZƋMr)k98xoPՁ`
P:mwO|?=ŭu^}J;KX"vYA cPT}[~rVi.mVKNǐggjϚ۫Xk?/ybG:gn0˦-=W-NM(1WTY4E/|mke2`ێR-5,@kͺ<#OCQEլv"Ĵ ԒIQ6\\>z^K]b񮤴I
fKxyI(;\US>m٤m]0d%YDpB*VB1_O< *]}2o2\z~}s,Zӕ6@Bjb_LϚ3.%oSR/4߭Zq]I'f*bI?75OȝcyTHF6'J{y_Ւ-MF*!Y|tk}i/>ĞN@+6!Adaûݟk,\DFVEc@Nث8W?3˚thuch WQfaH>1T cNO瘼<tk{n--N⼸[A4]`6LUi3=<0
?6Zkgoy2PSWhGy2KT3G6勅ռͤXYE%OUd,zѵ_4V6\O"iZ3]%i*PNƣ`kp:}7:%].$	@8aX,Q@F*]3 ={xVo2hU[Gq
W"({DEpꦃ*XߔB Y$m>V&PQ`[̌bT lAO_G|~^~e~SizߑgNm1kh$5ZGŒDvNf4ܑ~A O~Vh?Z;*U:{)v֖TUt~%X_Jj( ;v[yYмFyE-C[;w2dX4i^P  K־մ7`8,tۭV*,P
SJ(| 9%!y(P7䇝wu/$[fyg[;hd]A9PZJfE' ^_3Kyznp/{D,Rq	tYMҿ%N
ԞĪMkbG}ւXM=Wy?֙tBE*I}(iSi-b 3  ,u3u]/VFZ{-`T%W
;w_c 1>^Af[ިȬfQGV=،U+ 8]+_0e֘m? .m)pF*?@ttLpU+qL(!-	F*mAlOG
/Qኾw hSTORPjR#q[ʺbT>XOo$
FK%nOZLqɶ5D/S>V \oRG*g֫ VE@8uw 8[n8Z#m]R=LڪM8b?~Xie^.V+䏔ͮ1u3r, jPov*UO=ͭ7VI%o<JE.Eb i0y[_??
sO>ik~e͵I2V i@©I֗iQA"B#<Ky6v/F	 ]?'oỏ%%}WEo`5H!կNn-nD/aHM6<ݦLy[GY 
[])ɭZ_Z=ާ[j:VonѤf!	GyPy#[/^ڒ@ޟ!Ox8d1+)]+&]}+6eu4[i`
S^ 80ƱB܃2Ҟvҥ  'Լ7&|y WZ-KZӌ:f5k{q5X-UYi!-4?&,GV~]A=Q鷷ZH!/)"K2BnNqOP"+N>,YWn]w1WbVIJdPzF@j*D#P6 bWb]v*UثWb]v*UثWÒO?+~ajzjnqGZqӦ'OLU~ 8Md1GVϓKImMLU' @$ZjZȲc7?>M"e 0*,SCӭ#nN*qN`ѹQZU:Nc
<*b]v*UثWb]v*UثWb]v*UثW      
     )`        3 r             Atlas  	@         $   1 JFIF  H H  Photoshop 3.0 8BIM     x    H H    03BG{    H H    (    d      '              h                                8BIM      H B   H B  8BIM             8BIM
       8BIM'     
        8BIM     H /ff  lff       /ff         2    Z         5    -        8BIM     p                8BIM          @  @    8BIM	             J    o      JFIF  H H   'File written by Adobe Photoshop 4.0  Adobe d     			



  J "   ?          	
         	
 3 !1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw 5 !1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw   ? C33:ǽtv㸹nֹ;ՍթĮWsM7~cTz`|}arW[uh
=no=17ڞK39YB&1k=09RlkAk9@uz4T4L$ )sTՙanb"KI4{p~l̥
s6gWwz` ?s2./ZΞ5X*4۶jT}/v)ǆG?Uzl
$͹ߜ?{"'(H˅f/~NjVAᏣRзIEOml
3ȓ˲7YL\NHJ_OQK7?v3zmeF4?p;vXVK}K1@k5iP*0C ;rdqF0!/ IϤ*5/l7IEOm[=֘iD Yt>ɲ&e^sN}gإ< 5gN10rR wp78ǫYVDOW`ͮe^K<wn?PavoCmphЁWs.<Ĥ(G^ՓծĲ׽k=7~{30[]m5V{f5kqx[FC=Couu]2.@iӧҳ@
  i\1g	FU~е	& ~\r2ً^sbHbWֱ5۵ѿ_ d?G!ksˋ샭z-8]2ǵ&}sϏkuLkkkx7]2Ƹl {DGI؏^k3%$HX%ˍ		Lx}LneT4<Rv )XWdY{y.kCZE}=Wq`.А$p+ ʃ8՗!r9dS!Uz.K:GKuu׀I-ak]OL(ƭm%}J?H~IWǎs,ulu5Ĵn4kgwjY&ѷp4L >sF<8	 }du 1}7@gkznk@ Vc>
?Fye%[3ƫN3qO<)gꌽ?qNgArNbH([kgc#?w>'Uh%`1ĎG9/o'^_,'j6nxe9`;b}`[:*k}J9.s= [X_|VXAFQsS<0q3Dy<~YsDG\Qx;46~cd2=: m.G Gk|6BC$ӄ&<.&2"d<ѱח" v"ԫue?A&z W |_OL|ο# E<$yIe@} GJHW}MAսӴpO4oi	i?mwrIT70Q~	DCL3ŋ=xwpXŉFי_c.̗6+HpS-G.54VnӨtޣGl-FllNmeG>>k˟3806y|S1v5kKXH;OΦڝ>s7sʪ%lyP5dXI-<\/31Æ,CܟC۟aÈk=4MK1)kIGJxe	] 9fu0}<=ۻB s?ulPE?񫮥s5\}ܒOFI3҇-G)pQo{\ 7e=`'_.-v
uT1갷fuCr+Y8><r,3818jg͓M1	N"_N_+~?UΐַL?rɒ/wSu,s g󚴺Cv㷱a(`%D6?9|>8_ұ TdgWD`yusF>Qauh{v,xnA#_vV VñtI<'~zeOWGC㧀k]SNc:[A2Ʒo wwX:*2Ml V;k6\%ˀK?ErYq.bBr1 |xe?@G>\ Rik3k/yVil'=[Gމs8at}F$yNW.os1bD>c+RY!ǇӘjQ}h4<\	ݹV}[A:ߤ7D׼e$ag1OL_}x)p.,q f8 %!_}c2]Mok[-55:..%j7jZ=Ⓤ>7p|q1E9Qkvm.vɃhKsH0 }#O_^RT
_F2n]Տx$[ieUCO{ro$([W'201d"*1rA>Qt,~.`ۼ!}Fno{5~ u; h,`a;v\_4	qGy9cS <GO+[wm'mh~5ͧfZ+N嵰5ku1u]$<P7fNkwф#,TTa :z?ϫ?>k
cŏ-
QuթbKA&ỻ?1t?Y Z? Wb{?Ëv._}qppp\1x}6Oߚ>;]e{m _X/>~;n#qT~>/jI/_S'8C[G$|>ӹ${W%|V~l͐}_պ_?( >Opx}6Oߚ>;[%^U 	c/U?ds|uS?W Co u:_?( >OqwCuZIwݟObݓ]5UCktKIxav~9gMp^5{{\>s  8BIM           'File written by Adobe Photoshop 4.0  Adobe d@        $                	
            	 
 	u!" 1A2#	QBa$3Rqb%C&4r
5'S6DTsEF7Gc(UVWdte)8fu*9:HIJXYZghijvwxyz m!1 "AQ2aqB#Rb3	$Cr4%ScD&5T6Ed'
sFtUeuV7)(GWf8vgwHXhx9IYiy*:JZjz   ? q|zӯp[7-eVЇs:u%n[zoZ.J:\5Ș8y>Ｏe޿t}|;1:N;Veckja'MČ4l/vS~P-ۚ9ml.Lv]Bܞ$1	Y޲&{mN|7}E^;7;^iwܔԔN7
WYPRCS_}߹w^s\I}
zDsqG	c/ylvM6<{own?G=o3IkwyiQMZ=͔m7 {66p!#;=tC;g6Nƫ4X9!nMHv&0cKYO;2O{}۽MrOݾwۍn9yΫKx7Dl^H9i{Se~}᷾TNW~T}k岽ݶĺwD+$ۓjݴ }4ԩ9Ou'qgJ|vԭ3]{anlF|v֨{c<Ub^jxk|'Ø>^Ocʜ8\jޯmD-$Y-x'[|vhbZKw}l-}勛+(wܑy4Kh)#[k+cwh"&5d I}m_{?O/uׯ_Oȟfm WޗtSy}W~}CWc/z꾚VONMtvSFNu4.\}!s`;[h7O!R1Q͖z`ϵ%XqV[+dtYK=]e]{{wNgl&qoU{'/o{$L^q;/{u̗Y\[MsĂXLp3
3k>Dnu6
/HàT
ܮżVL-TK 3+me⿚mvolݸY"E$v6m(HginCnʞ쿽v_uyn˗/}
lVݬ-K-߶4;7Ojߒ1eaA*75/#7-J:cT<lU-M<dry>wiqms{=㿳LcEmVI-VK Ҏvq-{c}̜awYl;.6
-2G#[\[,S|dfgȿXm]˱{6~+׭w~YhmmMgeVlt5tuqJ zDpsv͋ڝ9wYR馱྿7SX'/'HIXƨMm|ﲿy-^YybdsڮmӰ'պ]^Y75WuXOg?Ǜcuou ـ'w5  #j 7χ73 <]Qi׫Oxx }6 ~rh-<]>?xק- : 1݋r 0?Q=k[sk:fFn]C觬ئz9qnJPT=t͎\jy0y6s!Fk~7Q9.M[+2D7n(bi#ܦ۔\ڞUeHҢGOrϳ퓾Smp
7}A41\R)ol u_nkOW	o<OMt-Okp~[׆>gH RmOǣ4/M_[Q
b%7U`8%KcGa3fwwIȪdOY<! X>g[o Y,M؀
b5h$G.q_=QI۾&t_?_~/tAw[b2,߿?bCuPXi?awie+#STyn[7S-/L$6%Q*۶
iPcwMꓚ?~xwE6^o}53wi~5]?eCzف *  %- %NU ]W~ t /"OPv~$? Xx^SƯN         Palu  	@         $     JFIF  H H  Photoshop 3.0 8BIM     x    H H    03BG{    H H    (    d      '              h                                8BIM      H B   H B  8BIM             8BIM
       8BIM'     
        8BIM     H /ff  lff       /ff         2    Z         5    -        8BIM     p                8BIM          @  @    8BIM	             J    o      JFIF  H H   'File written by Adobe Photoshop 4.0  Adobe d     			



  J "   ?          	
         	
 3 !1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw 5 !1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw   ? yyWP=k7{\kWef+A&ƨ0u.g*n^G߼\ϰ1FSrRrg2(B1|>oTIE5>ݷWԱʡw
D.r2l-ì[dIi {Fs>c
f׬Tdc0o ۟@\COGz['\a#su3*9*4ivN 4:,֞\\[}!QՋ_g2N~'p%&?a-gFRczzOϲ[hk%fm.[g_9A3ek]dyvAc;W!4<έvXG1W>xeɂ܄=,g*2J@Gxe?ӷCYWQMLv%,7Z渖6˷uU-C/Fߦ50Xio:[W{5X~\9xow5Y_*yiDs.q<zQ+m*5>ݷGVgʃZaye
7HkC%1V8!s#Kb?憳'&]hSz Iz}f7}[Ig?D=R]"ʽ4?p;v\ո |}rl;#Dv
xq%!GXqSծĲ׽k=7YVOSmUǼ;֛6k]rq]P{q6:}]H6ӵO1g>2p?|$y|rzJ2c?бԜׇI ߗ4bףl4~麜zV+v', ukl
pnsCo?1c l\732 tNL1iɳsc\#sg6j%S6}:lZx-144[-`#rvm`6#?9e(s,2	eo'is>BsBS"F8xb~^S;Qf&W^2<c =jos+weõa=mb5?hH1Z,˰<6]\7>b3gq?ǌqd D
G{^鸞b9-ڜ}ůҵZ?S)peb&5pmR}z캥$~۳VdP8i;ŶkY;Z`c
h͛6+	-$p) 90%궹F1eB/?տxCu+k3\+{Zg,))uR\?8T1s5L|U]k;}msXϫ_W?ju:YvG!=uNS~g6C,1x0ښ"_zO= U$?˖G?,Rt-fg;~Kcasyd>y	u]x <&G'ٻ)\獀p5ۺ}nĩ+<7xwm`V-|AZ7'Kas]]EC,9L	#g!f2#)qG8<WU@"=^c`jڟ?~E	N򔸛_ ˖#7?Uk,.0EGO󕯪Ap2E T]?A&z A ?9OGyHHʀ6C$*2M|{%hdQZX|7eۄ4qp6PΨ*`Yt?r٢}&IN~Ŋ_is	>(ǃ>K5tjX\5.ks\ Ai>fc׺pI[}.oMVSGM,-OӨ-?Z <N`x|N9pKr )/+8!.%?xU7aUNWk躼y
~3/ٽٻ/ #o[9֌4ʻi}^gx0<O\mcd'a|IEx&w-6q9'r\`y{C۷v ~ؠz~W]Kq%k>k.b>Yd'r#$  J^gK4?w zH;{ 8D/ma.3 <*tYlnkU65{y^gF㔱aǆQ!S>liHq/rV?i]3 ڭtfXLSۯic؍67?ա۷;?r$%үҏ?u_'xO?Ucv9  9T~^爍}/wu1ak0g:\\<7J T8#\@>Qv#.'>LJhs\t޹Xki7RgXxh&XK]^[~ZmD
ٷfK䣚9p	w12r趹.K.3HNQ&8>9hՋ_^א--vmv3eC*m5փǷsKx0.v6.)f2HgLx E;K$8s
@#2 1{O}Q.73Cw7ygS~]זc\I r߱'2̒=2=oN+5	+G/g$0e2J(b{U0X=J!J.8F- EحuL۰^vgJx[1hi[+8+,fk
98H{`эוּ5?7ǹS$d/>rQ
e_7]RT
F2n]Տx$[ieUCO{rih
F#'/.ᖑNk&d1#8Oj}7$s
UWJil<
r??jvݷ[?PsKr
F
`ۧk?}U#L~\џ#=0p}1p}]v~zc\F2Gܹjw-ǁ[a⁽c4:v[ {~!d⢥ׇί?:[cŎsvkUѩSeE얂M!ݟ 3Lrxq{Zo݋w\|<>t}6Oߚ:lN>帒}K?E=$n;!,[ msdw5l{?. s'	- O~>/~jTk8}ǈ]JE7)~?vU.&,}To:_WzYff>6Zn7#n}Է܆%o   =R)yM{q>	ogkx;
l樎|>ӹn$@ WVOK?E=$n;㪙,[ msdw5l{?/ )ϓѩ]e5,]=! ~6~e5P}X
-%?5+W~[Tؽw/kf?xx} 8BIM           'File written by Adobe Photoshop 4.0  Adobe d@        $                	
            	 
 	u!" 1A2#	QBa$3Rqb%C&4r
5'S6DTsEF7Gc(UVWdte)8fu*9:HIJXYZghijvwxyz m!1 "AQ2aqB#Rb3	$Cr4%ScD&5T6Ed'
sFtUeuV7)(GWf8vgwHXhx9IYiy*:JZjz   ? [or|ި Dm{ef7nٔۡ+w7sWejoU(җG3:&*9%NE俻+d/ncrζ䓵<N;0Xڢcut#%h=ӛݾUo~dvgi5m$=7'3IBodkVgeiAacQ|r- 8:MtnlVۘLXjN*Td"Ê৫V [y{ z6
te $V%ROc-[XO8G~[?̾~	˼y,-ykmv+;-nYggۼh{i`mT|jo=WPYJ򞫭NߝO5T{k#ݳA}?2+cs5h|u4r#^o[xd;hJmL;|[h&J/oly?talnWۖknccna(4Z\4Fbadndo+ZwftgmJwFo\uiq̅6TmmJ0-F1cV.%桧y߿}ǕyipI<Ӽ"չZI3̲[OP	n6r;Tpii#6vѬRFW)4VWh"& O5_` Hs ~z _g/ЗL q 1? =urC mWޗtSy}W~}CW eO|/꾞?F
m4t_4\}⢣!s`;Gf7O!R1Q͖zۋ{dr8ݫL:P%N.Ӳi.ym3Ŷ@D_\㪽=FL@h u/87MLyOfK,.o]bAr,&q
8H@M;Gs}׵wE]Ah%'nTmMŋn*jI?m 
B&$.f/mOe竎Tl7H-qc-,NK=CEEcodd׏=Ü7>{
{T'ݭ"/7[RI$PHwkߴK0mXeklH*coWTmonLGuzWm}
͐QavTte؜f-Oz:5*V
Ǵw1[/4Eѹܭ̻UD.U.HB2Nc_ޛ??nwA==lKvN\~KٷSbnͥ[HӶ6nW;b?Tm^W[gXuf1؛Kvʭlj@3ayO#n~Nٱ{Sr5*]}47[jx%vp	<+	~6ebw_/,v<qXùmW6Giw{yƋjmlvخl,wƚ+:'3 OWco:  ;  5
 {gÛN}zx .o4է<<zv 3y`}F4}_.zk_,9}̟t&;=jmוT
{q3ch+*+OE4{nCYlvN{SɧOky7[rn^i!(%lo<1C
sɞKnx6#ލ֮f@T/|E.o
G)tÜ(ޛE{Lvul/CU-*H"ue>tKmwKvlz}9EƋr~k׆5kt >RǇ!>jl[W̊.Ch1hӴrc
Yzʮڹm.0ѭJj(%SnD =ː ]V ЗBA}hk^_zׄyD|mTubeJhcX2[= FLt_~u"'HpxSo
6ا:Nh4ɲjESO*Ys
]n Je~Id:[vQ;}M*`e?<;^o}>jf
?jrݏ+y>GKO3M_G_= N9Wv ]> +7KO!}gYw?yx.ӣ:tc         climat  	@         $    JFIF  H H  $Photoshop 3.0 8BIM     x    H H    03BG{    H H    (    d      '              h                                8BIM      H B   H B  8BIM             8BIM
       8BIM'     
        8BIM     H /ff  lff       /ff         2    Z         5    -        8BIM     p                8BIM          @  @    8BIM	    /         J    o      JFIF  H H   'File written by Adobe Photoshop 4.0  Adobe d     			



  J "   ?          	
         	
 3 !1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw 5 !1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw   ?  PI_8	鲑{qX|Qb7jҟi9uQc=FH{uO?Zno/ :Ȳx]eulgK멮xo
Klwѭ+XA׌W0\Cā0on<L|^Kz;x^u.zutWc7M1q%f1mOuwmqo4[voמC349~]?YߋG[c,O}^_O_u[˚g1u1 	&DsL|N+{Ǳ	[_:&7Va'ԟD86Ycnֽ?T tܑ\ӝuoܚZʛY݆w7lQ3 ,Đ{hd EA␢|n5(WoGk$
LvU ,zM^. Wg穏'}?-K\AvW}oX
u8WcX5׳:kh~UDԅ2CNvH	 BrL`5@jFF	 {vy|{.K>~f^le֗Ff;ᖇ֮gGs[㛽,z
w5^ 9u<2hs ^UQm_eB},`qKo3<U#r.20~}zg[#ʳuֳ7c zسz13-oO`
,q^aU2.&h5
'7z]
-npr<ROv1,x}_y__><0BG$?4pߋRgC뱄mG`U[Ti'*oLmO]["m;* ũs6wY*c R7z@ߺߣwO9<0d<brÎW]ߋɐb/rqo>}We=>Xe^vC]*=V }jL*ījkfK[{Ml~CTetm*mJ&_S|?uu&KIeT̪Xv豍k5aa!rd~oSIf\mn{D qfΥey ݎ`f n;,kH"L
~jT<`g}_p@n!C^^un^}3"d[M=Zݭ^gphT(k5I0vYB߬}1W]mkͭk[iPsP*GZ_}GyYU>XN7^q=k[Y
^;L,D!F&g& &S׃|4@sv=i"|ab:Z+2ZfEs/sXPWc+^jW*,}3\:k}kW.z=k})c?Gk7ouƱ-~S~grac!1(z͒2 Ì=m ?:cw湄kY3ܵil ,,L]UߵwA7s}/kvV&#O~mi7+sk2F4H!/nG,9f$qD_]1]{ 8v?P=[9;Mm= 
"u>uC?z]MtP*Z@1@cN(bDg J_)qΌ\z~>g} ߘꡐms+JyW:xEs2CZae;$$iڦ]NU,T$N~))N}ĉ%BˍnfV],`i#ȭw))h':?_:լGюiav5nڕ| z̐SeTFŵ>fu~Vel
macKv{_o^L.PcQA!s?K{@ߣyfԯG^\+թέ-eNbϩt^~͓Mio4Xݯ ͪԱƌ2@H믁w{HJoPׅײۏұ)4dbm/=&ſN4Xќf#R[ e<7Z{+՛GKY+|q^F1f׾S w֫ifsz}sqY__W:w+t.i5QS UXu^loqU6;rZ۟sX=GԹޟlZ>T}ǋC/_?<s#辶_8Ih4qzoZF>Mjsזh߻_:O^ٛ272.+gﲼ&~6c<|<BBU+⣻陸o-. y,x\gFQ~eufוMvW[OG%c5{]GZ7?.oOI5}W>b׿q5D!a
`Κ\斈1y*u<Ӻ=ݎּMXnv%T:_³wJɥރ0mα_8w)
OQLAǱ:F=C
նƸ\%~n5^>􆎛GDΪʭ
~ ҝm77=?ԟ-Ps_kSuE޵lu{/Sk3"v1Qw=Q%?%啕9R1v;{8N*u/kl޽c   ddL#U2sL@Ӊ84cbbR|j 1vnP.qВ@O	γpU" 	'w_jrO YsLjITJt@u3mmhiγ[k5 13_tG2k43:~Z?Z7k{/}]Ց}lWt|\c֖˂
o:]]Ek*-(nʹ2]cJ
HO\_7&<*ZƆ  z:. G <<^V5LW/ơ8|TO	G  8BIM           'File written by Adobe Photoshop 4.0  Adobe d@        $                	
            	 
 	u!" 1A2#	QBa$3Rqb%C&4r
5'S6DTsEF7Gc(UVWdte)8fu*9:HIJXYZghijvwxyz m!1 "AQ2aqB#Rb3	$Cr4%ScD&5T6Ed'
sFtUeuV7)(GWf8vgwHXhx9IYiy*:JZjz   ? ={7z_}I`*==){?2ևeW;m[f>j(f|ˣݛkƑyUU,"ݥ?c-in#AU_ۿ
Cx["Y*np`P~bi<Ġ$@Ļug>+Cݣk=sUl[gK^O{G(w横cjWC
=^}6r3m3A
ʱ}5D-h忸}`ܩ2D%GDolqcߥw* KɦHoc[{xJ$V.ep)UKK涷Ře5siY씵}>`wokn-ԧżW{IYq0Q'cOu.n̧B TUI(NOw*Ps7 2[5AJb0G[{>Guv.ow-ۃ۹Lٛ/ۗ9ugd.+lġݴ<j:)"+c9n[tZQV@5m9cLtjTE3'X;ǻu6(ȳF&ZQHP0"Q #ê[_Kj6/}&it:|:WFŪg| :Sï4͋޽bzpfD}z_G{zo\Oh z!x|6nouo]øc͒c8:H[~<߱[)r1[kAhr$x$yd2$Q½>mG6|mp϶yu,{~I$ns:ݡWvU$_[{BwǓY<>]GFqy0]z{v>j['/vTu%WM8Xtaun$sK4JZ{+2lmM!Mxcc#ݮz7*;ܧ]	&5I[5W2=#4jq*4U-MPcjuklPRW͏AN*#A"
G-%sߨ{dS|N8ڻ۝վnt9ޕ9_֤dɴQC<g
0Aw nd|M`jʲ]V
^ z;Y>cGdpY#C$4P_Ha TO6_- K ٠v Ew0wW5_៷qWcOGL)ij~
~Xop?_ԩ?>Lm<=] ~ѳ_|;?]\wKmn??x?l ?<vߩG[cFkAM\ 2O"?A?|x
|p|OmRaIo [  dr A  qҗ ?ğ" 7._5㿼a Zޛz#Җzi_W L !i_C??nkW4x>W5omS|eN 2[nGa
?.NZAх|)VHf-loƪM_P-ꘋVɦR5Q@F >'mt}'O>_?> x 	Wx
IM=\o_91W>VoHO>Z=<-bMU)XOHu wnbω^ >x`Rއ[xObx}SÇ~6i :          Avant   	D                         ] @ ` P h t   } @  | x p ` @    [                        &         @      k @ `                   Arrire   	D                         a       / _    ?          X       @          p 8        &        @      k      ?     ?          Retour   	D                 	       n  @  Ђ   ?  @               \       @      ` ` ` ` ` ` ` ` ` `     N  @                      s      ?                    bouton maladies.gif  	@       	(    GIF89a    f3 ̙f3 f3 ffffff3f 3333f333     f 3  f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333     f 3  ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333   ̙  f 3  ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f  3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33      f 3     ̙ f 3      f 3   f f f ff f3 f  3 3 3 3f 33 3         f  3                                                                                                                           ,        hE+O
İ.HZ ++ x(E}5đ'n|*D#Y= )v<0M)) u\嚯]S:Z" ɲbeqxݻuwQJb_ ׽
uTw @VZ%t͂
, %(@ )
,(F+Xb
JlJWMEܺX<+&SnKqU&[d%G4cvz+@jh<{*W>A5
L~=L8@KI)8$ͲcYQwЁJ!`-`Y 5v^-Q8JOI9`^17~Yby]C"{Yg]T ;         bouton pharmaco.gif  	@       H    .GIF89a    f3 ̙f3 f3 ffffff3f 3333f333     f 3  f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333     f 3  ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333   ̙  f 3  ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f  3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33      f 3     ̙ f 3      f 3   f f f ff f3 f  3 3 3 3f 33 3         f  3                                                                                                                           ,        H A+0Ȑ!V51Id1CzXk\hrVVRdȈ+V<l2ψtJT9k*q,Z̞KduM!+ zȵə/"JƅWD	#Ee㢤G fhQ/JcIյU-
LHU!ڊI$*8hǤx_$t{"(Jz$үd-Ls	Dtie.BLvѲeB44Ŝfv8¼AD}5>&~F| ;         
bouton guide  	@       l    GIF89a    f3 ̙f3 f3 ffffff3f 3333f333     f 3  f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333     f 3  ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333   ̙  f 3  ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f  3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33      f 3     ̙ f 3      f 3   f f f ff f3 f  3 3 3 3f 33 3         f  3                                                                                                                           ,        8pVV*\(J@V`aDLaDA"(#ȇBTx#ć!E0a!+V94̃]'P#zғ7
tUZ*,Ł]<0eǈ̲- ']ˮ$&޾YMW ]~81mpaĕk8\A"ya̺>5L)T߽(ڋx
$Z
|	a@ ;         bouton cartes.gif  	@       e       GIF89a      f3 ̙f3 f3 ffffff3f 3333f333     f 3  f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333     f 3  ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333   ̙  f 3  ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f  3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33      f 3     ̙ f 3      f 3   f f f ff f3 f  3 3 3 3f 33 3         f  3                                                                                                                           ,          ( A V][qÁ@1(PBVVj(Yᚓd +%8P!k.X3k ȚY &'ϵGX%qkx
$Az*׬FC
'.hq5UǜY90CW:$x+eïi1X9N 㤊³jvV89-Yj}|k,Bz?	gm'RYAұFC-e'$5K'oĝ.yݨ)߽Ʃz %Z
@\ 5yBv0GKMf\Vr ^cK-YC]
Hܷ[UT\H5[4$TOsNŚE;UT'U+YQBmdIK-ŕ#e[NԥEW@XtEh&AeԜ)s$#G  w09PPzPgc
	甁K<g( S:F ;         Search.gif  	@       a  * &  {GIF89a* &  !!!)))111999BBBJJJRRRZZZccckkksss{{{ƽcZZ1))9!!9  {c R c k  B!)! ! 9cR֜1 {kcR!Jc!c)c!RRJ Z9JJ Z)Z!cքscJ9)c{skskckJZ){cBc!ZRB1! ޽{991))!ޔkskckcRZR9B9k{{9BBcssZkkRccZcsss{kks99BZZk  ƽƜ{s{                                                                                                                                                                                                                                                                                                                           !    ,    * &   H*\0a,pa*XAB
"XXa(S`R\
 L A!2`a
)9, iҤ x(!\W^/5=pBOn{BBvpԨ4̰AL BB	N\xnH>ZAB
7ޜAPV
UrP2'HxA Ԝs0ܫ
ΘÂ. .N	A
w
`XI	dP )] 	!-ʿh(ט
8%A   Wt@4uxp%W\QQaxQIW#\AF	`b&!`\4JpTBLp(A0je!FQHb%(HudA	=J?Y!x$ v8Ђ)=wq<rFv*(a U!`0\$ntЇ>UAA#ā  'UJ$l@M`3xFbTPRvEy@ SP
2@C{8gq;F
q&	@0r ",1EIB
_R
6W8ౙW	@!C蠈i` %q18ADQD	(͋A`Bj$PqsJP?
FW0F	eN[(a|l
̧nH@iXե(UzDunrU0 i \@V,Qr] qP	XP 5T`pQEK}UA@CP@ ;      
     )h         0  ,         1015    1013    1014    1016    1017    1018    1025    1026      1027        
     )h           ,           1028    1030      1033      1034      1082   	 logo flash  	@       a  %   GIF89a%   !!!)))111999BBBJJJRRRZZZccckkksss{{{{ƽƵνRRJ΄s                                 !    ,    %   @p88l:fPVYX6`0 =
b!na1du+c(BSaCk	)%.44
K SS	&242$q`
2.(	5
#.2%+"5Qh,Z 	""js	i tFT 	,<C(FW4H AT(P Ӊf'PxQX!Dz Q	j0
h]ت"<:Qp4/b*AJk{
A ^[b3FJv<9H6$Bȴ\Dـ&a#^	
 wxZaB7[ h0`U&Z^NEk,O;*@L(p-22l1~SD gFqsRAm0Af8pi("Ea ;        
 	bmemento  	@       f      GIF89a   111ccc޽      !    ,       KɩJmqa
q^IO] 3A8\.$Lx9"))N_Ba\%_.ʁu{>Pzdq @qmqul1u1nb +%z9FE1J(y+I:s|20DN	 ;      
   Version  -          ^ g          5.0   : 
icone.png 	@       b& $ #  PNG

   
IHDR   $   #   sg?w   gAMA  BO    cHRM  n  th  $    m_  l  <  X;
  IDATxb
^9??ڵX
 ر;woٲdƍ+WZ|o߾!9s&2CCåK߿?~DPVVݶm<x Mh Yׯ_o߾{e0~:
v\ͼy0?. aYBB={֭[7g0a+VZب'O'''kiiC^RRϟ?BBB@pY@(v 0,\pɋ-+geeWXXhnntN2 B2:̙3>}sNuuG^OLL\`00pY@({͛?^SSӓ
"`pᲀ Eb߾}`lEVV֏? 
DDD( P$)Stww͟?ˀZZ@uuu slUUUtt3Yˀ)e bَ;<yL&L"K,y1T5 pFRe6mz5V@eZz)PV;  P,sN4	bHHPʁA011!mwww ŋ&  G  @|̀HVՃƍ2JUaw.D%9BY?3' fϞ
111	&xH@k `ԩS(Lx, ˀ)X9rX<޽{a-~
t}}}MKKc@ X
L8.,ᖉݻ~z`!TԷ, ˀ֭[

up,@ n,Љ,pY@(. jY.$%%岯/\%0,ƀe0G._|Vd 2ccc''<`F
` ,x\%y&0lmmsrrΟ?LS@Az[qY:'  a (G@BܢK7&LF3x/_+x!Bziuvĥfff@&
x&`~ ڷ{n`Hq@+qY:  A 87{|_"}IFхB $HUC:Zp6R`
355ۤW0`
۷"t 0P0 "  +:e@'oooxse&ʁX+cZ%.k    ul A3όDY:t7é*P^y,uL>\2inH	 ,U!! 5


]TTL &NbfffH^JJJ2`d
|@U | Nj t>W1dD
X 3>qE`,b +   a`dgg+zzz@q`D07@q??? 	,-W 	:0$`l-`kTHfMqqq			v6///Tl
@3`L	,100$b8\E pZV0!UUUќ
zHE~2 ep ,i]`1H~        IENDB`         
EdisanParams 3        B Q         Paramtres          U Geneva   U Geneva   U Arial   U Arial   W Arial       	@          Q    
   	CodesISO  )h          /         Afghanestan,Afghanistan,ISO004  Al 'Iraq,Iraq,ISO368  1Al-'Arabiyah as-Su'udiyah,Arabie Saoudite,ISO682  Al-Bahrayn,Bahrein,ISO048  @Al-Imarat al-'Arabiyah al Muttahidah,Emirats-Arabes-Unis,ISO784  Al-Kuwayt,Kowet,ISO414  Al-Magreb,Maroc,ISO504  Al-Urdun,Jordanie,ISO400  Al-Yaman,Ymen,ISO887  'Amerika Samoa,Samoa Amricaines,ISO016  Angola,Angola,ISO024  .Antigua and Barbuda,Antigua-et-Barbuda,ISO028  Argentina,Argentine,ISO032  As-Sudan,Soudan,ISO736  Australia,Australie,ISO036  Azerbaijan,Azerbadjan,ISO031  Bahamas,Bahamas,ISO044  Bangladesh,Bangladesh,ISO050  Barbados,la Barbade,ISO052  Belau,Blau,ISO591  Belgique,Belgique,ISO056  Belize,Blize,ISO084  Bermuda,Bermudes,ISO060  Bharat,Inde,ISO356  Bjelarus,Bilorussie,ISO112  Bolivia,Bolivie,ISO068  Bosnia,Bosnie,ISO070  Botswana,Botswana,ISO072  Brasil,Brsil,ISO076  8British Virgin Islands,Iles Vierges Britanniques,ISO092  Brunei,Bruni,ISO096  !Burkina Faso,Burkina Faso,ISO854  Burundi,Burundi,ISO108  Blgarija,Bulgarie,ISO100  Bnin,Bnin,ISO204  Cabo Verde,Cap-Vert,ISO132  Cameroun,Cameroun,ISO120  Canada,Canada,ISO124  $Cayman Islands,Iles Camanes,ISO136  *Ceska Republika,Rpublique Tchque,ISO203  Chile,Chili,ISO152  &Choson-minjujuul,Core du Nord,ISO408  &Christmas Island,Ile Christmas,ISO162  *Cocos (Keeling) Islands,Iles Cocos,ISO166  Colombia,Colombie,ISO170  Comores,Comores,ISO174  Congo,Congo,ISO178  Cook Islands,Iles Cook,ISO184  Costa Rica,Costa-Rica,ISO188  Cuba,Cuba,ISO192  #Cte d'Ivoire,Cte d'Ivoire,ISO384  Deutchland,Allemagne,ISO276  Djazar,Algrie,ISO012  Djibouti,Djibouti,ISO262  Dominica,Dominique,ISO212  Druk-Yul,Bhoutan,ISO064  Ecuador,Equateur,ISO218  Eesti,Estonie,ISO233  El Salvador,El Salvador,ISO222  Ellas,Grce,ISO300  Espaa,Espagne,ISO724  Eritrea,Erythre,ISO232  'Falkland Islands,Iles Malouines,ISO238  Fiji,Fidji,ISO242  Finland,Finlande,ISO246  France,France,ISO250  Gabon,Gabon,ISO266  Gambia,Gambie,ISO270  Georgia,Gorgie,ISO268  Ghana,Ghana,ISO288  Granada,Grenade,ISO308  Guadeloupe,Guadeloupe,ISO312  Guam,Guam,ISO316  Guatemala,Guatemala,ISO320  ,Guina Ecuatorial,Guine quatoriale,ISO226  Guine,Guine,ISO324  #Guine-Bissau,Guine-Bissau,ISO624  Guyana,Guyana,ISO328  )Guyane Franaise,Guyane Franaise,ISO254  Hayastan,Armnie,ISO051  Hati,Hati,ISO332  Honduras,Honduras,ISO340  Hong Kong,Hong Kong,ISO344  Hrvastska,Croatie,ISO191  Indonesia,Indonsie,ISO360  Iran,Iran,ISO364  Italia,Italie,ISO380  Ityopiya,Ethiopie,ISO231  Jamaica,Jamaque,ISO388  Jugoslavia,Yougoslavie,ISO891  Kazakhstan,Kazakstan,ISO398  Kenya,Knya,ISO404  Kibris,Chypre,ISO196  Kiribati,Kiribati,ISO296  Kyrgyzstan,Kirghizistan,ISO417  Kmpucha,Cambodge,ISO116  La Runion,La Runion,ISO638  Lao,Laos,ISO418  Latvija,Lettonie,ISO428  Lesotho,Lsotho,ISO426  Liberia,Libria,ISO430  Libiya,Libye,ISO434  Lietuva,Lituanie,ISO440  Lubnan,Liban,ISO422  Macau,Macao,ISO446  Madagasikara,Madagascar,ISO450  Magyarorszag,Hongrie,ISO348  Makedonia,Macdonie,ISO807  Malawi,Malawi,ISO454  Malaysia,Malaisie,ISO458  Maldives,Maldives,ISO462  Mali,Mali,ISO466  &Marshall Islands,Iles Marshall,ISO584  Martinique,Martinique,ISO474  Mauritius,Maurice,ISO480  Mayotte,Mayotte,ISO175  Micronesia,Micronsie,ISO583  Misr,Egypte,ISO818  Moldova,Moldavie,ISO498  Mongol Ard Uls,Mongolie,ISO496  Moambique,Mozambique,ISO508  Muritaniya,Mauritanie,ISO478  Myanmar,Myanmar,ISO104  Mxico,Mexique,ISO484  Namibia,Namibie,ISO516  Nauru,Nauru,ISO520  3Nederlandse Antillen,Antilles Nerlandaises,ISO530  Nepal,Npal,ISO524  $New Zealand,Nouvelle-Zlande,ISO554  Nicaragua,Nicaragua,ISO558  Niger,Niger,ISO562  Nigeria,Nigria,ISO566  Nihon,Japon,ISO392  Niue,Niue,ISO570  -Nouvelle-Caldonie,Nouvelle-Caldonie,ISO540  Pakistan,Pakistan,ISO586  Panama,Panama,ISO591  2Papua New Guinea,Papouasie-Nouvelle-Guine,ISO598  Paraguay,Paraguay,ISO600  Peru,Prou,ISO604  Pilipinas,Philippines,ISO608  Polska,Pologne,ISO616  /Polynsie Franaise,Polynsie Franaise,ISO258  Prathet Thai,Thalande,ISO764  Puerto Rico,Porto Rico,ISO630  Qatar,Qatar,ISO634  3Republica Dominicana,Rpublique Dominicaine,ISO214  Romnia,Roumanie,ISO642  Rossija,Russie,ISO643  Rwanda,Rwanda,ISO646  ;Rpublique Centrafricaine,Rpublique Centrafricaine,ISO140  "Saint Helena,Sainte Hlne,ISO654  7Saint Kitts and Nevis,Saint Christophe-et-Nevis,ISO659   Saint Lucia,Sainte Lucie,ISO662  9Saint Pierre et Miquelon,Saint Pierre-et-Miquelon,ISO666  DSaint Vincent and the Grenadines,Saint Vincent-et-Grenadines,ISO670  &Samoa i Sisifo,Samoa et Sisife,ISO882  Seychelles,Seychelles,ISO690  Shqipri,Albanie,ISO008  !Sierra Leone,Sierra Leone,ISO694  Singapore,Singapour,ISO702  Slovakia,Slovaquie,ISO703  Slovenija,Slovnie,ISO705  $Solomon Islands,Iles Salomon,ISO090  Somaliya,Somalie,ISO706  #South Africa,Afrique du Sud,ISO710  Sri Lanka,Sri Lanka,ISO144  Suriname,Suriname,ISO740  Suriyah,Syrie,ISO760  Suisse,Suisse,ISO756  Swaziland,Swaziland,ISO748  0So Tom e Principe,So Tom et Principe,ISO678  Sngal,Sngal,ISO686  T'aiwan,Tawan,ISO158  #Taehan-min'guk,Core du Sud,ISO410  Tajikistan,Tadjikistan,ISO762  Tanzania,Tanzanie,ISO834  Tchad,Tchad,ISO148  Togo,Togo,ISO768  Tonga,Tonga,ISO776  .Trinidad and Tobago,Trinidad-et-Tobago,ISO780  Tunis,Tunisie,ISO788  !Turkmenistan,Turkmnistan,ISO795  6Turks and Caicos Islands,Iles Turks-et-Caques,ISO796  Tuvalu,Tuvalu,ISO798  Trkiye,Turquie,ISO792  Uganda,Ouganda,ISO800  Ukrayina,Ukraine,ISO804  Uman,Oman,ISO512   United States,Etats-Unis,ISO840  Uruguay,Uruguay,ISO858  Uzbekistan,Ouzbkistan,ISO860  Vanuatu,Vanuatu,ISO548  Venezuela,Vnzuela,ISO862  Viet Nam,Vietnam,ISO704  8Virgin Islands of the United States,Iles Vierges,ISO850  )Wallis et Futuna,Wallis et Futuna,ISO876  Yisra'el,Isral,ISO376  Zambia,Zambie,ISO894  -Congo dmocratique,Congo dmocratique,ISO180  Zhongguo,Chine,ISO156  Zimbabwe,Zimbabwe,ISO716            	`       /        	a       .    Fiches 	m          B   
Codes ISO        	        findResult 3   u        Black ffffff      white       	darkgray   & D         	Rsultat          U Times New Roman   U Times New Roman   W Times New Roman   U Times   W Times       	@          D          
   Liste  )x   &on mouseUp
  goFoundCard
end mouseUp
       )H  Cliquez pour accder aux pages          -Risques sanitaires [Afrique du Sud-maladies]  $Paludisme [Afrique du Sud-maladies]  "Paludisme [Afrique du Sud-cartes]              `    @ 4 *         a    @ 7  
   Result  !h        H         (1002,/home/Edisan/docs/maladies/iso710m  (1088,/home/Edisan/docs/maladies/iso710m  &1031,/home/Edisan/docs/cartes/iso710c         `    @ 4        a    @ 7  
    	         U            L'expression : 
   Expression  )H         G           
paludisme      
                          +a t retrouve dans les pages suivantes :    flashFindResult 3   u        Black ffffff      white       	darkgray   D         	Rsultat          U Times New Roman   U Times New Roman   W Times New Roman       	@          D      
   Liste  )x   &on mouseUp
  goFoundCard
end mouseUp
       H  Cliquez pour accder aux pages          Sngal - 22 janvier 2002  Sngal - 19 mars 1999  Sngal - 9 avril 1998  Sngal - 12 janvier 1996  Sngal - 8 dcembre 1995  Sngal - 18 octobre 1995  Sngal - 7 octobre 1994  *(cit) Belgique/Gambie - 13 novembre 2001  *(cit) Afrique/Amrique - 18 juillet 2001  (cit) France - 10 avril 2000  (cit) France - 28 mars 2000  #(cit) Allemagne - 18 janvier 2000  !(cit) Afrique - 17 juillet 1997  (cit) Afrique - 17 avril 1997              	`    @ 4          a    @ 7  
   Result  !h        H         61780,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61525,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61055,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61196,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61200,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61205,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61261,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61767,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61745,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61607,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61606,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61582,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61092,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash  61108,/Donnes/ADIMI/Mise  jour 2.4/docs/commun/flash         `    @ 4        a    @ 7  
    	                     2Ce pays est prsent dans les dpches suivantes :    Progression CDcopy 3   w        Black   ffffff      white       	darkgray      c         Copie des fichiers          U Times New Roman   U Times New Roman   W Times New Roman       	@           c           	Dossiers  Ia        j 
     8          	Fichiers  Ia        Lj 
      
    	                       Dossiers : 
    	          8             Fichiers :    FileBrowser  <on refresh
  global g_fileBrowser
  set the cursor to watch
  lock screen
  --
  -- Rafraichissement du bouton "Path" et du nom de volume
  --
  get the directory
  if char 1 of it is "/" then delete char 1 of it
  set the itemDelimiter to "/"
  put empty into buffer
  repeat with i=the number of items in it down to 1
    put item i of it & return after buffer
  end repeat
  if last char of buffer is return then delete last char of buffer
  switch the platform
  case"MacOS"
    put buffer into btn "Path"
    put last line of buffer into fld "Volume"
    put return & "Bureau" after btn "Path"
    break
  case "Win32"
    if last char of buffer is return then delete last char of buffer
    put buffer into btn "Path"
    put last line of buffer into fld "Volume"
    put return & "Poste de travail" after btn "Path"
    break
  default
    if buffer is empty
    then put "/" into buffer
    else put return & "/" after buffer
    put buffer into btn "Path"
    put last line of buffer into fld "Volume"
  end switch
  set the label of btn "Path" to line 1 of btn "Path"
  --
  -- Mise  jour du champ
  --
  if the number of items in g_fileBrowser["xDirectory"] > 1 and the last char of g_fileBrowser["xDirectory"] is not "/"
  then put the last item of g_fileBrowser["xDirectory"] into filterstring
  if filterstring is empty then put "*" into filterstring
  put empty into field "Selection"
  if the last char of g_fileBrowser["xDirectory"] is not "/"
  then put "/" after g_fileBrowser["xDirectory"]
  put filterstring after g_fileBrowser["xDirectory"]
  put the directories into fName
  if line 1 of fName is ".." then delete line 1 of fName
  sort fName
  if the short name of this cd is "File" then
    set the textStyle of fld "Files" to "plain"
    put fName into fld "Files"
    put the files into fName
    filter fName  with filterstring
    sort fName
    get the number of lines in fld "Files"
    if it > 0 then
      put return & fName after field "Files"
      set the textStyle of line 1 to it of fld "Files" to "italic"
    else
      put fName into field "Files"
    end if
    set the hilitedLines of fld "Files" to empty
  else
    put fName into fld "Directories"
    set the hilitedLines of fld "Directories" to empty
  end if
  set the disabled of button "OK" to true
  set the disabled of button "Open" to true
  unlock screen
end refresh

on openFolder theSelection
  put the directory into oldDir
  if the number of lines in btn "Path" is 1 then
    switch the platform
    case "MacOS"
      put "/" & theSelection into theDir
      break
    case "Win32"
      put theSelection & "/" into theDir
      break
    default
      put "/" & theSelection into theDir
    end switch
  else
    put the directory into theDir
    if last char of theDir is "/"
    then put theSelection after theDir
    else put "/" & theSelection after theDir
  end if
  set the directory to theDir
  if the result is not empty then
    answer "Impossible d'accder au dossier :" & return & theDir
    set the directory to oldDir
  else refresh
end openFolder

on returnKey
  send "mouseUp" to button "OK"
end returnKey

on escapeKey
  send "mouseUp" to button "Cancel"
end escapeKey

on openStack
  global g_fileBrowser
  put empty into g_fileBrowser["xSelection"]
  put g_fileBrowser["xPrompt"] into field "Prompt"
  set the directory to g_fileBrowser["xPath"]
  put g_fileBrowser["xPath"] & "/" & g_fileBrowser["xFilter"] into g_fileBrowser["xDirectory"]
  --
  set the itemDelimiter to "/"
  switch the platform
  case "Win32"
    put item 1 of g_fileBrowser["xPath"] into fld "Volume"
    break
  case "MacOS"
    put item 2 of g_fileBrowser["xPath"] into fld "Volume"
    break
  default
    put "/" into fld "Volume"
  end switch
  set the itemDelimiter to ","
  set the volumesList of btn "Path" to getVolumesList()
  --
  refresh
end openStack

on closeStack
  if there is a fld "Files"
  then put empty into field "Files"
  else put empty into field "Directories"
  put empty into field "Selection"
  put empty into field "Prompt"
end closeStack

function getVolumesList
  # local oldDir,buffer
  # switch the platform
  # case "Win32"
  # put the directory into oldDir
  # put "A:" into buffer
  # repeat with c=67 to 90
  # get numToChar(c) & ":/"
  # set the directory to it
  # if the result is empty then put return & numToChar(c) & ":" after buffer
  # end repeat
  # set the directory to oldDir
  # break
  # case "MacOS"
  # put GetVol() into buffer
  # break
  # default
  # put "/" into buffer
  # end switch
  # if last char of buffer is return then delete last char of buffer
  # return buffer
  return the drives
end getVolumesList
  w        Black   ffffff      white       	darkgray     en         Navigateur disque      GetVol    U Times New Roman   W Times New Roman   U Times New Roman   W Times New Roman   U 
Helvetica  U Times New Roman    File   	@          en         Folder   	@          en         
Document.png 	@        r   #  PNG

   
IHDR       #   z
   gAMA  BO    cHRM  l  &  $    m_  l  2  I  IDATxbOc @Ȝ`, ыi@ !, *ח/_>~D 4 bo޼z'>|h T4  KT
ZځY @ڢ}@@-@@@CB	  Ys( p `tt;;;du$d Ds  Q`
\"-    hn@ D  >    hn@ < } @Y@d! h "3  >    h  @  𵋨 ײ mJ _ă'b  "3  @ o    IENDB`         Fond   i       hh
     	`        M                      Dossier ouvert.png 	@        L * #  PNG

   
IHDR   *   #   m   gAMA  BO    cHRM  l  &  $    m_  l  2  I  wIDATxb?  b?$@F z}ׯ_}d ; ȷbϟ??~W޼y͛7@AX@ c=ŏ=:s̆
f͚lٲsν~ݻw70  |c ׯ+..NKK\bũS?tМ9sVZuڵ/_ [@ 	@FGGzyyEFF]0qD08qħOp?@ ah7>xӧOcZ A20>|Çpq4 @B@g~ٳg>}:0RoT`bfX .z Bh'Mф'"ClΆ1 !ׁŋSNMMMƨ0ccc!1rb.0́
pttZO}t <0q]677h1&l }@(ؕ+W->>XB6	 X?cQL4 ׁ
̻㛠=``Dp[Ln\& z `G
 tc t!x=@  TI@E!) ,B 9ߓov@ aş=!  pJ NDd >u  pbbb9H@ S
7VUU۲`dX D@0 . F0"R>C @ 	]`և耧 J,  "v
~X D)dw`	 ' 4 [` {3	    IENDB`         Disque.png 	@        # ' %  PNG

   
IHDR   '   %   N	gi   gAMA  BO    cHRM  l  &  $    m_  l  2  I  IDATxb?  H  mׯ_?PQ
ϟ߽{Ë/;vÇ@6P($h1@ o߾={ҥK\vIa  Ł@5@@@]x BcSL͍	 ( U 
rǎ퉉...0@6P=~@+ccc=<<6(281g +W\yyu.j V3|r`}	h2Z08O-CMQs6.33Yfp i+P50M8p [urrX°Ý7>xaAqSʖNw
ٵk] n+P0f͚5dKGB,<^UZUİ0h@n1nl_={={v@| i+0x%|q	UEY٧
7v70:dkysʲbC]x1ܴh4H#0"0c $xs,c{AD1~Pr"#֔ז| |	H#ĉN[0pjjj9gL3<?C[,a=vÂʸq*V,ZbȽ{


RRR z@?a`
C7[~0Wwtt@Lf#n>@ X!۪ [ 5|'كk7M64uNhlok[v V`RX^^UA?(ZQ@10ՕLoϛ33gV "	7n,_<''m 	Ee깩i2ά*U]<fYhlt8? VHӧO^%aaa[VYוen^g>};`p?#`" b@R iaa!0BrXTUUƍzCCŖk3_s \>3<!3 { Ā LD@_­;w9̟?5;;hǏzWY]_bϐn䵅_n	J`cF B
S&%%A@HK8fϞ,?\Vs@$+pA.p ¨X| 4sL`
B6r⡐ [@,>P^;s9ËAZ a+faݖ,Y0nذX\߁aPZZԱxk7i@[.]m,Sm t[ԣGl}2@i|ݕM+A2axp𴴰"0HJJ"
@l?~000HNNN H
$j_^^ں(tן_򟁣 &&;n?JJJȶ>['L ]͛f̘``Vܹ{,=V iШ0ڵf-]( f}EEEd[_N8(L_$Ω3Zf͝7oެl+@ aIAAA4bAvNNGGg ֭[edd z~6mZjj*b%P|M``' 4.H !>5-X УDDDМ@e}`_20ALFh!j B)/_tcMKxpp00QZ
hJ e% JA105~`t>  C6[+K=%ّ {T 40
` E@    IENDB`         Cancel dx    mon mouseUp
  global g_fileBrowser
  put empty into g_fileBrowser[xSelection]
  close this stack
end mouseUp
        'L G  Annuler         	   	      OK dx    won mouseUp
  global g_fileBrowser
  put fld "Selection" into g_fileBrowser[xSelection]
  close this stack
end mouseUp
        L g  
Slectionner         	   	   
   Prompt  +H          `             
   
Selection  )h          .W                Path 	}  bon menuPick x
  local oldDir,l,i
  put the directory into olddir
  set the wholeMatches to true
  put lineOffset(x,me) into l
  if l is the number of lines in me then
    put x into me
    if the platform is in "Win32,MacOS" then
      put x into fld "Volume"
      if the short name of this cd is "File" then
        put the volumesList of the target into fld "Files"
        get the number of lines in fld "Files"
        set the textStyle of line 1 to it of fld "Files" to "italic"
      else
        put the volumesList of the target into fld "Directories"
      end if
    else
      set the directory to "/"
      refresh
    end if
    put empty into fld "Selection"
    set the disabled of button "OK" to true
    set the disabled of button "Open" to true
  else
    get empty
    repeat with i=l to the number of lines in the target -1
      put "/" & line i of me before it
    end repeat
    if the platform is "Win32" then
      delete char 1 of it
      put "/" after it
    end if
    set the directory to it
    if the result is not empty then set the directory to olddir
    refresh
  end if
end menuPick
       : T     volumesList  Trantor Dossier Netscape Communicator    FDossier Netscape Communicator
Applications (Mac OS 9)
Trantor
Bureau        	     
  	 Volume  )         9 0             Trantor    Open dx    on mouseUp
  if there is a fld "Files"
  then openFolder the selectedText of fld "Files"
  else openFolder the selectedText of fld "Directories"
end mouseUp
        L G  Ouvrir         	   	   
   Directories  )x   on mouseDoubleUp
  if the clickText is not empty then openFolder the clickText
end mouseDoubleUp

on mouseUp
  if the clickText is empty then exit mouseUp
  put the clickText into theSelection
  if the number of lines in btn "Path" is 1 then
    put empty into theDir
    if the platform is "Win32"
    then put theSelection & "/" into theDir
    else put "/" & theSelection into theDir
  else
    put the directory into theDir
    if last char of theDir is "/"
    then put theSelection after theDir
    else put "/" & theSelection after theDir
  end if
  if last char of theDir <> "/" then put "/" after theDir
  put theDir into fld "Selection"
  set the disabled of btn "OK" to false
  set the disabled of btn "Open" to false
end mouseUp
        8 t
           Adimi  
Bibliothque  Compaq  cpqdrv  cpqs  DHO  Eudora  	hibernat  
Importations  linux  Mes Documents  Program Files  prolog4  	quickenw  STAT  temp  WINDOWS   
    )`      . t     Dossier.png 	@        n ! $  PNG

   
IHDR   !   $   Kċ   gAMA  BO    cHRM  l  &  $    m_  l  2  I  IDATxbO1*  Jׯ_}d  X;?H~W^y7o
0}@퀘l<|˗@̙36l5kֲe.\ӧ? @쀘#q3f̘>}5ko߾z꾾ⴴ7 gP)0@^~
t QQQqqq'Nd 4; @O|,(++qq -8ǋ/W__
4h=ܸ#\d nrsZlf1 Au999A|? `paaatt40>]\\C2D2? `!11-<  PPF@KKKxx8F
F3 BÇCJ$ nǡC9 	 ځfa@Dxӱ  ?   z  ?   z z L!  ,wI.!  P ǎkllt  4xԩS!  P 6={gϞT\ t  6M5&,?H5 ]ĚϟCpC3 6HA @%C @ aLkD  H$ 0 t%M    IENDB`      
   Files  )x   Con mouseDoubleUp
  if the clickText is empty then exit mouseDoubleUp
  if the textStyle of the selectedLine is empty then exit mouseDoubleUp
  openFolder the clickText
end mouseDoubleUp

on mouseUp
  if the clickText is empty then exit mouseUp
  if the textStyle of the selectedLine is not empty then
    put empty into fld "Selection"
    set the disabled of btn "OK" to true
    set the disabled of btn "Open" to false
    exit mouseUp
  end if
  if the number of lines in btn "Path" is 1
  then put empty into theDir
  else put the directory into theDir
  put the clickText into theSelection
  if last char of theDir is "/"
  then put theSelection after theDir
  else put "/" & theSelection after theDir
  put theDir into fld "Selection"
  set the disabled of btn "OK" to false
  set the disabled of btn "Open" to true
end mouseUp
        8 t
                  9`    @ 1 u      answer CDcopy 2  on preopenCard
  set the loc of this stack to the screenLoc
end preopenCard

on mouseUp
  global g_xAnswer
  if "button" is word 1 of the name of the target then
    put the label of the target into g_xAnswer
    close this stack
  end if
end mouseUp
  w        Black   ffffff      white       	darkgray     , x         Copie du CD-ROM      U Times New Roman   U Times New Roman   W Times New Roman       	@          , x        
   Texte  	         ;   /         EVous demandez la copie du contenu du CD-ROM Edisan sur votre disque.         Annuler eo          T T  Annuler          	        OK eo          T T  
Continuer          	        warning.gif 	@       	  * &   GIF89a* &   BBBRRRΜc       ,    * &  0IX;ۛV !jV*Pv!Za;w\\7KQR]dP2YYb ,[y7kGiP}`I|qP>uC]_mz+&0V)/{XsyA;ȲHҸNdM	 ;         PrintProgress 0   w        Black   ffffff   white    	darkgray                  U Times New Roman   U Times New Roman   W Times New Roman       	@                   
   Label  	          c8          Prparation des donnes ...         curseur  Ia       4 @    20             i           New Button Ag        |          	     
     	`        v                   Impression en cours.jpeg 	@        N C  !
 JFIF  H H  Photoshop 3.0 8BIM     x  P H H    
,7P {  P H H    
     d           '                 d      "r            \   8BIM      G   G  8BIM             8BIM
       8BIM'     
        8BIM     H /ff  lff       /ff         2    Z         5    -        8BIM     p                8BIM          @  @    8BIM	                 %     JFIF  H H   'File written by Adobe Photoshop 4.0  Adobe d     			



   "   ?          	
         	
 3 !1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw 5 !1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw   ? .pEMK\ Ygz%Ϯ]RoCٍs纯c={ͯ=bcbu}1ͽ=In?ȩr4ىMw}Vs,C
ex#Mly)f0/6v5}޳= [~/C^s[wʪdFտ?sǦon
Ls5YMֺQuVd]w Zϳ Sߤ}e 8Mm[]V̡2˫N  p?]>[,L?o2ݛ_uhk+wU2/IO$l_ΣK3z5bۃ6im6z;E&uڱoKߵ1h b~涇  .)R^}WZ 4WSuY=WYNJ=1kuet(oY@%ӷӗ7 ~:%88枋ϴ	nh܆v6gkkOCp۝cwML=|]gۛm g)\3ky9.%r,K.V9}_huϬ΋C AnCvQ^ ^F	,OƳ:ܗ?5zl{Uq[I'n 
%?~t ygFUU`u6
}R~7 n,l_]1܌B-
c*zMWm?kOJ̏Mw$_V7[㖊mmM #f]E .$R+6ITIJI$RI$I%)$IJI$S 8BIM           'File written by Adobe Photoshop 4.0  Adobe d@     
				




  CN   *            	
         	
 s !1AQa"q2B#R3b$r%C4Scs5D'6Tdt&	
EFVU(eufv7GWgw8HXhx)9IYiy*:JZjz m !1AQa"q2#BRbr3$4CS%cs5DT	
&6E'dtU7()󄔤euFVfvGWgw8HXhx9IYiy*:JZjz   ? *Uit
JVk"JqQڸȼI
EVbz'坝nE.Y~*5 ݚWXeyKo^
6/FS?QߌbOh^Qe=*UثWb]v*UثWb]v*UثWb]v*UثWb]v*U*Kjb?3{u4/,mng"ԙ,mIo }W^^{e+/Z_y>KԮ= %,$S
=cOqiFm*_V] O~!#rfUo^} 9:痘| ZҬҵkJ/J5ЇF
>uo+immt
ykkrAޣP1z~8k
ҼcOdvA*I=I81Wb]v*UثWb]v*UثWb]v*UثWb]v*UثWb銾C<kUuO:>܏B^i2*|ӎ_*Y~lyj/jz.bQQ?YPWbSO5WVnt_ZL vۙz*`дxc?,}=oMfadg ݻW*֙yK_-yj ˾e{cjYf#+IcI^)f
W^oqljOoi50i';X>D:f J  z*5M3I\귰Xۖ&!BǠ
UJ8t`YH  U~*UثWb]v*UثWb]v*UثWb]v*UثWb]ƕ}o]CQ	cBgB_MW7R=gDԶ֭<%Ԯ9oo5PBQ}7}UkXݻ֣j0F#_/١<"NC7X4/>j>Wҵo=cU+Jtz^hi4讟a		ɢ#[Q#w^r[Ҽۭ^_gdG$
>ث*~k ~,|6J	4S֪C
_^RK"P+LU_>s&}mO[{#O>` K&|T~R/k/;L+h/Oe%"(_lU_'嶑yXt˫ybEfaU Mi͚}qRB6^T<is
i
r9XxD!hc2Vy8O8yo*g:fC8!rD/1TA2)yv>lIZf	S }Qzm.~|<PNJ_]vO-ykW
lZ5 $bCl+6lU "~a[[yXk
nX{c	#2FgP
2Kɖ'垅kטa ɤ[̚Q+ic#gT8-* ǒ	]hmJiA  r*~f[JVkkWRoi4?\{VI"z;*^NC6}&;p^]2l=@¬Mo˯˿6W͟+7̪m)<ҷvTf#yAÖ* ,?.}/ͿX%X+X$Ui<l8L ,?' & 6Wׄ:#h;*1@  N#v*[i>\izΨe6Dx]ni!1W"<Ӯu"jY:Gk4R[\[(ق,UVY</ˏ-yΚZVi@ՙݾq;SD*o˿o̝i<zm~.2β1(qVS 9YS=>v՚_IX[x"G2Tŕ_/rX]ZkX%m>"W*&<UZeSb
 dίObصpH+40EE4 d~DySEе5(`3%&6)ud*?%`ZvwJBSLifЧɍB8`*cr[Iĺӡnn 9 D`xb?۷$򝬫k*o ەѐ!VO
|\X}[% eq/Յ֝$G}k
#qnI3}* Ϳ5'^2v&ƭ=A(Y?{\ʓA*XeeaPAF*]v*  U
ߛϜ,˿*& XԜZp{RrXFT_kK|u~kBڤi1W$JA8m|i[G~!˽fI)rqKFC gY"L2}Mo.yht//J)B(*hf:Pqnz'ѥg5n6֢;M12oYWxz꿘^u jpiZi֊ غ;Pģ
~bӏ%XIc^y 9_?D/eh3O+f}_ZG8G)sԢ⯁ 8_3y=FVGd-5խIlYV$%iɕwUk ;~cZ[%?&v$֡?|/]>kG#Kpjdz$>
ۧ(<;:v6\[4P9F].Ǘ#㊼PuKJ]EsZA'-
6AfWK#zִ񡮝-֗Kc[ JcA)f@IY"4<soCR#$k,VFZ)Fơı.*mCqXn-2Y`Q]Sq +z_ǟk%jtD2*t@g<#Q1TWwk%ܲq$jVÇvI.VjINGO?:$?0?0M"QHZ^,y]f8ԛnRo>'CҬKiW2X-F "$IUUQ~r hWo)Vfˤܞ	,IIH]ʣm-7U.k[Xa0qٝ+ɘ 6ʨZ3y
46ARyBV4jJ4XB#|Uw⟔!{-v.与I%EU*~##Cs'CPSa.Iuq>tW"Ueu'!JJ Uǔ#JRѦME;mlIY̓ Ñ&TbΟ?^~<+򶾷Y(2lC??
z k{ed64W1,qzNF2Um銿J<y*k$K9!Ki&`(ǒLUW $?1#|ɫ]|ur6GBҫ(c^LO= 4EUO&d_*OA[] {:Wʯ6 yZ5KYiK<djK7½?\U_蚴hDѴ91C,DH&`^o_?kgi^k#-}3tɒAN-֧UW/KCǘ׼붗b^ؠ6Tۗ
>8{O{])44[hH]]k4އuXzԮѤoQe_I˾?XlU4^}R4[NJht%vCFUKJյ;m)mw%\e(ݽi]M5dYt1h.\Pܙ8s}PB|õyb9* *j]՚#8O4E{ɔ riXRJejK\H׌UbwC״[
k8i
d 7Ѐ33U@)v)GÊ[CguDzy$l?|JUy\X)ߞ^_/(h>L 6jb
4V3>ulUǖQy@ͧ|ud@K*Oډ
VWoتm,I2UOPqTE&銣XZK٦*|Fx/O(5%ŋnuJ1ViAR>^	k 8ֲ}b2\y:!j*o[j⯢-AK(F*˺b
Ҕ1T^V*'hzUy.M
#[ 0$+P3E튢<Y,PWPsy#CS+'#튪[y?Eb 'byWJE
Ԑ1T/E)y7EoXۯ2kZbWIU$H^bO=uUku:l1TO1+F vYr1U˚qh'?$hQeUr/CYalCD,i*j(1U+)iN$
Yzbr3ExlU9Uzۢq{tvFnH@tMxz}bcsʰYDL e"K3`qW域|>]z{0].o==OHZq|+X|{8/cmo$[-nhvEɫWgڸ1>Iu~qyJnn-/j"[-lǌR$A(_⨟ȿ<0yT!4hPI,q3~|}YcaeqVG!gT_ysKF֎_Hid oy[)?2O68XySykhLV.TZUsJqB튲lUثWbVz1rW]v*UثWb]v*UثWb]v*UثWb]ܩFz0*KQmA	h;fy̬zm*tٽ8Q@
_MU?(fDi8)Wʦ~oiTU*6fI%E.h6bLӭR1EAAqWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb*UثWb]v*UثWb]v*UثWb]v*UثWb]v*UثWb]v*U         PrintBuffer    w              white    	darkgray   D 5o   visble  true                      	@          5o   PrintTools    w              white    	darkgray              PrintTools         
 U 
Helvetica   U times  
 U times  
 U clean  
 U charter  
 U courier       	@                  
   Header  )h   
       
  u         <HTML>  <HEAD>  L   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">  F   <META NAME="Content-Type" CONTENT="text/html; charset=iso-8859-1">  )   <META NAME="Author" CONTENT="Edisan">  ,   <META NAME="GENERATOR" CONTENT="Edisan">     <TITLE>?TITLE?</TITLE>  </HEAD>  (<BODY text="#000000" bgcolor="#FFFFFF">  <TABLE COLS=3 WIDTH=100%>  <TR>  
<TD></TD>  <TD ALIGN=CENTER>  <IMG SRC="logo.gif"><BR>  <H2>?TITLE?</H2>  </TD>  /<TD ALIGN=CENTER VALIGN=TOP><B>?DATE?</B></TD>  </TR></TABLE>  <P>         	`    @    d       a    @   i  
   Map  )h   
       
 z j         <TABLE COLS=2 WIDTH=100%>  <TR>  <TD><IMG SRC="?CARTE?"></TD>  <TD VALIGN=TOP>  ?TEXTE?  </TD>  </TR></TABLE>  <P>         	`    @  {  Y       a    @     
   htmlBuffer  )h   
       v 4         17 janvier  2003 
   Risques  )h   
       
  j         !<TABLE BORDER COLS=4 WIDTH=100%>  <TR>  N<TH>Viraux</TH><TH>Bact&eacute;riens</TH><TH>Parasitaires</TH><TH>Autres</TH>  </TR>  <TD>?VIRAUX?</TD>  <TD>?BACTERIENS?</TD>  <TD>?PARASITAIRES?</TD>  <TD>?AUTRES?</TD>  <TR>  </TR>  	</TABLE>  <P>         	`    @    Y       a    @  =   