SET DECIMALS TO 4 ON ERROR DO errHandler WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) Main() ON ERROR CLEAR ALL RETURN