begin comment exception SINCOSERR; real r, s; xcplimit(SINCOSERR) := 3; xcpmark(SINCOSERR) := true; xcpmsg(SINCOSERR) := "log of negative exception"; xcpaction(SINCOSERR) := 2; r := 10000000.0; s := sin(r); write(s); end.