F - Epson

SPEL+ Sprachreferenz
Beispiel einer GoSub Anweisung
Das folgende Beispiel zeigt eine einfache Funktion, die einen GoSub-Befehl verwendet, um zu einem
Label zu verzweigen, einige E/A-Befehle auszuführen und dann zurückzukehren.
Function main
Integer var1, var2
GoSub checkio 'GoSub unter Verwendung von Label
On 1
On 2
Exit Function
checkio: 'Hier startet die Subroutine
var1 = In(0)
var2 = In(1)
If var1 = 1 And var2 = 1 Then
On 1
Else
Off 1
EndIf
Return 'Hier endet die Subroutine
Fend
194 SPEL+ Language Reference Rev 3.5