<pre>function doSetup FMT,HDG  put word 1 of FMT into stkName  put word 2 of FMT into crdName  if crdName is empty then go to stack ("RCH" && stkName) else go to card crdName of stack ("RCH" && stkName)  if the result is not empty then sayProblem the result  else    put "Choisir" && stkName    doMenu "Page Setup..."    hide msg    if stkName is "LetterPortrait" then get (48 - (the number of lines in HDG)) && "90"    else if stkName is "LetterLandscape" then      if crdName is "Inventaire" then get "25" && "120" else get (35 - (the number of lines in HDG)) && "120"    else if stkName is "LegalPortrait" then get (66 - (the number of lines in HDG)) && "90"    else if stkName is "LegalLandscape" then get (35 - (the number of lines in HDG)) && "150"    else sayProblem "Je ne connais pas le format" && stkName  end if  return itend doSetupfunction doSetup FMT,HDG  put word 1 of FMT into stkName  put word 2 of FMT into crdName  if crdName is empty then go to stack ("RCH" && stkName) else go to card crdName of stack ("RCH" && stkName)  if the result is not empty then sayProblem the result  else    put "Choisir" && stkName    doMenu "Page Setup..."    hide msg    if stkName is "LetterPortrait" then get (48 - (the number of lines in HDG)) && "90"    else if stkName is "LetterLandscape" then      if crdName is "Inventaire" then get "25" && "120" else get (35 - (the number of lines in HDG)) && "120"    else if stkName is "LegalPortrait" then      get (66 - (the number of lines in HDG)) && "90"    else if stkName is "LegalLandscape" then      get (35 - (the number of lines in HDG)) && "150"    else      sayProblem "Je ne connais pas le format" && stkName    end if  end if  return itend doSetup</pre>