<pre>on printCrd where,FMT,H1,H2,H3,H4,HDG,TXT,F1,F2,F3,NC,NB,fromPage,toPage		  if where is in "Imprimante Printer" then 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 Fax" then    get doSetup(FMT,HDG)    put word 1 of it into PL    put word 2 of it into LR    put H1 into cd fld "Header1"    put H2 into cd fld "Header2"    put H3 into cd fld "Header3"    put H4 into cd fld "Header4"    if F1 is empty then put timeStamp() into cd fld "Footer Left" else put F1 into cd fld "Footer Left"    put F2 into cd fld "Footer Center"    if F3 is empty then put true into printPageNumber    else      put false into printPageNumber      put F3 into cd fld "Footer Right"    end if    if NC is not empty and NC > 1 then put makeColumns(TXT,PL,NC,LR) into TXT    put the number of lines in TXT into LL    if LL <= PL then put 1 into NP else put trunc(LL/PL) into NP    repeat with P = 1 to NP      if fromPage is not empty and fromPage > P then next repeat      if toPage is not empty and P > toPage then exit repeat      put 1 + PL * (P - 1) into AA      put AA + PL - 1 into Z      if Z > LL then put LL into Z      put HDG & line AA to Z of TXT into cd fld "Text"      if F1 is empty then put timeStamp() into F1      if printPageNumber is true then put "Page" && P & "/" & NP into cd fld "Footer Right"      if where is in "Imprimante Printer" then        if NB is empty or NB is not a number then put 1 into NB        repeat with C = 1 to NB          print card        end repeat      else      end if    end repeat    pop card    hide msg  else if where is in "Viewer ecran Screen" then    go to card "Viewer"    put pad(H1,40) & padLeft(H2,30) & return into cd fld "TXT"    put pad(H3,40) & padLeft(H4,30) & return & return after cd fld "TXT"    put HDG & return & return after cd fld "TXT"    put TXT & return & return after cd fld "TXT"    put F1 & return & F2 & return & F3 & return after cd fld "TXT"    put "Cliquer n'importe o dans l'ecran pour continuer!"  else if where is in "Fichier File eMail" then    if where is "eMail" then answer "eMail pas prt -> comme Fichier en attendant!"    put char 1 to 16 of H2 & ".txt" into fName    ask file "Sauver dans quel fichier?" with fName    if the result is not "Cancel" and it is not empty then      put it into fName      open file fName for write      write H1 & return & H2 & return & H3 & return & H4 & return & return to file fName      write HDG & return & return to file fName      write TXT & return & return to file fName      write F1 & return & F2 & return & F3 & return to file fName      close file fName    end if  else if where is "Fax" then    answer "Fax pas prt -> comme Imprimante en attendant!"  else    sayProblem "Je ne sais pas o envoyer" && where & "!"  end ifend printCrd</pre>