LPARAMETERS tcForm, tcParm1 IF PARAMETERS() < 2 DO FORM (tcForm) ELSE DO FORM (tcForm) WITH tcParm1 ENDIF