<pre>on printVar where,FMT,TXT  lockAll  push card  if where is "?" then    answer "Envoyer le resultat vers..." with "Fichier" or "ecran" or "Imprimante"    put it into where  end if  if where is in "Imprimante Printer" then    get doSetup(FMT,empty)    put TXT into cd fld "TXT"    print card  else if where is in "ecran Screen" then    go to card "Viewer"    put TXT into cd fld "TXT"  else if where is in "Fichier File" then    ask file "Sauver dans quel fichier?" with "Rapport.txt"    if the result is not "Cancel" and it is not empty then      put it into fName      open file fName for write      write TXT to file fName      close file fName      if the result is not empty then        answer the result      end if    end if  else    sayProblem "Je ne sais pas o envoyer" && where & "!"  end ifend printVar</pre>