Time for an 2014 update…

2014-01-17 05:32:22 +00:00 · 2014-01-17 05:32:22 +00:00 · 09687c4926
commit 09687c4926
parent 372c577f83
2520 changed files with 34227 additions and 7318 deletions
--- a/Task/Detect-division-by-zero/BASIC/detect-division-by-zero-5.basic
+++ b/Task/Detect-division-by-zero/BASIC/detect-division-by-zero-5.basic
@ -0,0 +1,13 @@
+;Set up a Procedure to handle any Error
+Procedure MyErrorHandler()
+  Define txt$="The following error happened."+#CRLF$+ ErrorMessage()+"at line  "+Str(ErrorLine())
+  MessageRequester("OnError test", txt$)
+EndProcedure
+
+; Tell where to go if an Error happens
+OnErrorCall(@MyErrorHandler())
+
+;Now, do something very stupid so that we may see an Error...
+Repeat
+  A=Random(100)/Random(100)
+ForEver