<pre>on importScripts  put the seconds into startTime  toComputer  hide menubar  go to stack pile("moteur")  put fld "filename" of cd "commandes" into theCommands  put fld "filename" of cd "fonctions" into theFunctions  put disk() & ":Fichiers:Procedures:Commandes:" into cmdFolder  put disk() & ":Fichiers:Procedures:Fonctions:" into funcFolder  go to last cd of bg "scripts" of stack pile("scripts")  set lockMessages to false  put 0 into msg box  ---------------------------------------------------------------------------  repeat with x = 1 to the number of lines of theFunctions    add 1 to msg box    put word 2 of line x of theFunctions into funcName    put stripQuotes(findFunction(funcName)) into funcPath    put stripQuotes(getFunctionParams(funcName)) into funcParams    delete word 1 of funcParams    put "scripted function" into funcType    put readFile(funcFolder & funcName) into funcScript    put the number of chars of funcScript into funcChars    doMenu "New card"    set script of this cd to funcScript    put return & funcScript after fld "handlerScript"    put funcParams after fld "handlerParams"    put funcType after fld "handlerType"    put funcPath after fld "handlerPath"    put funcChars after fld "handlerChars"  end repeat  beep 2  ---------------------------------------------------------------------------  repeat with x = 1 to the number of lines of theCommands    add 1 to msg box    put word 2 of line x of theCommands into cmdName    put stripQuotes(findCommand(cmdName)) into cmdPath    put stripQuotes(getCommandParams(cmdName)) into cmdParams    delete word 1 of cmdParams    put "scripted command" into cmdType    put readFile(cmdFolder & cmdName) into cmdScript    put the number of chars of cmdScript into cmdChars    doMenu "New card"    set script of this cd to cmdScript    put return & cmdScript after fld "handlerScript"    put cmdParams after fld "handlerParams"    put cmdType after fld "handlerType"    put cmdPath after fld "handlerPath"    put cmdChars after fld "handlerChars"  end repeat  ---------------------------------------------------------------------------  beep 4  answer the seconds - startTime / 3600 && "hours"  show menubar  show cd windowend importScripts</pre>