##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-03/22:50-0400 ##+ # # errorclear.icn, Demonstrate error keyword condition reset # link printf procedure main() &error := 1 nonexistent() # source line tracking not optimal here if &errornumber ~= 0 then write(printf("%s:%d Runtime error %d:%s", &file, &line-5, &errornumber, &errortext)) errorclear() if &errornumber ~= 0 then write(printf("%s:%d Runtime error %d:%s", &file, &line-9, &errornumber, &errortext)) end