##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: August, 2016 # Modified: 2016-10-03/22:51-0400 ##+ # # Runtime error conversion to failure; &errortext # procedure main() &error := 2 write("&errortext: ", &errortext) every i := 1 to 3 do { write("attempt: ", i, " &error is ", &error) a := "1" + [] write("&errortext: ", &errortext) } end