Epcon RC+ Benutzerhandbuch Seite 127

Beispiel
Das folgende Beispiel zeigt eine einfache Fehlerbehandlungsroutine. Wenn ein Fehler auftritt, geht
die Programmausführung zum ErrHandler-Label, wo die Fehlerbehandlung startet. Die
Fehlernummer wird angezeigt und der Bediener wird gefragt, ob er fortfahren will, oder nicht.
Wenn der Bediener "N" eingibt, führt das Programm die Restart-Anweisung aus, um das
Programm vom Anfang zu starten.
Function Main
String cont$
Integer i
OnErr Goto Errhandler
For i = 1 To 10
Next i
Exit Function
' *** Error handler ***
Errhandler:
enum = Err
EClr
Print "Error #", enum, " occurred"
Print "Continue (Y or N)?"
Line Input cont$
Select cont$
Send
Fend
EPSON RC+ User's Guide
Jump P(i)
Case "y", "Y"
EResume Next
Default
Restart
Die Sprache SPEL+
113