10 REM > LocalError
   20 REM Test local error handler
   30 FOR A=-3 TO 3:PROCfred(A):NEXT
   40 END
   50 :
   60 DEFPROCfred(A)
   70 LOCAL ERROR:ON ERROR LOCAL REPORT:PRINTERL:ENDPROC
   80 PRINT"10/";A;"=";10/A
   90 ENDPROC

Download LocalError

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.