9 lines
215 B
Text
9 lines
215 B
Text
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
|