<pre>on imprimerEnveloppe  put theAddress("Enveloppe") into vAdresse  if vAdresse is empty then answer "Il n'y a pas d'adresse!"  else    lockAll    answer "Est-ce que l'enveloppe est prte?" with "Annuler" or "Imprimer"    if it is "Imprimer" then      push card      go to card "Enveloppe" of stack "RCH LetterLandscape"      if the result is not empty then answer the result      else        put theCie("2Lignes") into cd fld "ReturnAddress"        put vAdresse into cd fld "Address"        print card      end if      pop card    end if  end ifend imprimerEnveloppe</pre>