RosettaCodeData/Task/Detect-division-by-zero/BASIC/detect-division-by-zero-3.basic

100 WHEN EXCEPTION USE ERROR
110   FOR I=5 TO-2 STEP-1
120     PRINT 10/I
130   NEXT
140 END WHEN
150 HANDLER ERROR
160   IF EXTYPE=3001 THEN PRINT EXSTRING$(EXTYPE);" in line";EXLINE
170   CONTINUE
180 END HANDLER
September Morn Update 2019-09-12 10:33:56 -07:00			`100 WHEN EXCEPTION USE ERROR`
			`110 FOR I=5 TO-2 STEP-1`
			`120 PRINT 10/I`
			`130 NEXT`
			`140 END WHEN`
			`150 HANDLER ERROR`
			`160 IF EXTYPE=3001 THEN PRINT EXSTRING$(EXTYPE);" in line";EXLINE`
			`170 CONTINUE`
			`180 END HANDLER`