(WINDOW "invoice" 473 192 410 400 0 NIL "invoice") (CELL "CELL31676799-212" 5 7 70 60 0 "Units" "" NIL (NIL NIL) NIL NIL MODEL) (CELL "CELL31676799-213" 88 9 70 60 0 "Price" "" NIL (NIL NIL) NIL NIL MODEL) (CELL "CELL31676799-214" 173 10 70 60 0 "Subtotal" "Units * Price" (* #S(CELLREF FORM NIL CELLID CELL31676799-212) #S(CELLREF FORM NIL CELLID CELL31676799-213)) (NIL NIL) NIL NIL MODEL) (CELL "CELL31676799-215" 5 81 70 60 0 "UsrMkp" "ERROR" (MAKE-ERRORDYCON NIL NIL (QUOTE USER-SIGNALED)) (NIL NIL) NIL NIL MODEL) (CELL "CELL31676799-222" 88 82 70 60 0 "Markup" "if (ERROR? UsrMkp) then (if (Units < 100) then 2.0 else 1.5) else UsrMkp" (IF (ERROR? #S(CELLREF FORM NIL CELLID CELL31676799-215)) (IF (< #S(CELLREF FORM NIL CELLID CELL31676799-212) 100) 2.0 1.5) #S(CELLREF FORM NIL CELLID CELL31676799-215)) (NIL NIL) NIL NIL MODEL) (CELL "CELL31676799-305" 173 82 174 60 0 "Invoice" "if (ERROR? Subtotal) then \"bad Units or Price\" else (if (Units < 1) then \"bad Units\" else (if (Price <= 0) then \"bad Price\" else (if (ERROR? Markup) then \"bad UsrMkp\" else (Subtotal * Markup) ) ) ) " (IF (ERROR? #S(CELLREF FORM NIL CELLID CELL31676799-214)) "bad Units or Price" (IF (< #S(CELLREF FORM NIL CELLID CELL31676799-212) 1) "bad Units" (IF (<= #S(CELLREF FORM NIL CELLID CELL31676799-213) 0) "bad Price" (IF (ERROR? #S(CELLREF FORM NIL CELLID CELL31676799-222)) "bad UsrMkp" (* #S(CELLREF FORM NIL CELLID CELL31676799-214) #S(CELLREF FORM NIL CELLID CELL31676799-222)))))) (NIL NIL) NIL NIL MODEL) (CELL "CELL31676799-532" 6 171 390 221 0 "" "\"I was completely unable to find any way to determine if a cell was empty. Thus it is necessary to set UsrMkp to ERROR in order to use the default values for Markup. It seems that there is a thoroughly regrettable and annoyingly complete lack of documentation on Forms/3 which makes this much harder than it should be...\"" (<- "I was completely unable to find any way to determine if a cell was empty. Thus it is necessary to set UsrMkp to ERROR in order to use the default values for Markup. It seems that there is a thoroughly regrettable and annoyingly complete lack of documentation on Forms/3 which makes this much harder than it should be...") (NIL NIL) NIL NIL MODEL) NIL