' tb-screen: 80x25
' ON ERROR/RESUME NEXT/ERR/ERL (Spec vm-fehlerbehandlung):
' Handler-Eintritt setzt ERR und ERL (letzte numerische Zeilennummer);
' RESUME NEXT setzt nach der fehlerausloesenden Anweisung fort.
ON ERROR GOTO Handler
10 ERROR 5
20 PRINT "nach RESUME NEXT"
x = 1 / 0
PRINT "weiter"
ON ERROR GOTO 0
PRINT "fertig"
END
Handler:
PRINT "ERR="; ERR; "ERL="; ERL
RESUME NEXT