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