F - Epson

SPEL+ Sprachreferenz
Beispiel einer Return Anweisung
Das folgende Beispiel zeigt eine einfache Funktion, die einen GoSub-Befehl verwendet, um zu einem
Label namens checkio zu verzweigen und die 16 ersten Anwender-Eingänge zu überprüfen. Danach
kehrt das Unterprogramm zum Hauptprogramm zurück.
Function main
Integer var1, var2
GoSub checkio
On 1
On 2
End
checkio: 'Hier startet die Subroutine
var1 = In(0)
var2 = In(1)
If var1 0 Or var2 0 Then
Print "Message to Operator here"
EndIf
finished:
Return 'Die Subroutine endet hier und kehrt zu Zeile 40 zurück
Fend
366 SPEL+ Language Reference Rev 3.5