F - Epson

SPEL+ Sprachreferenz
Do
' Schaltet das Access Flag ein
On $port
' Überprüft, ob der Task eingeschaltet ist
If ZeroFlg = 0 Then
Dieser Task hat die Kontrolle, also wird die Funktion verlassen
Exit Function
EndIf
' Wartet auf den Steuertask,
' um die Ressource freizugeben
Wait Sw($port) = Off
Loop
Fend
Function ReleasePort
Off $port
' Gewährte Zeit für einen anderen Task,
' um Zugriff zu erhalten
Wait .01
Fend
464 SPEL+ Language Reference Rev 3.5