Declare Sub Testmodus()
Declare Function Dipschalterwert() As Byte
-----------------------------------------------------
Do
If Dipschalterwert() = 0 Then Call Testmodus()
Loop
-----------------------------------------------------
Sub Testmodus()
End Sub
-----------------------------------------------------
Function Dipschalterwert() As Byte

Result.0 = Dip_1
Result.1 = Dip_2
Result.2 = Dip_3
Result.3 = Dip_4
Result.4 = Dip_5
Result.5 = Dip_6
Result.6 = Dip_7
Result.7 = Dip_8
Dipschalterwert = Result

End Function
------------------------------------------------------


Statt () können auch Variablen übergeben werden und als Locale in der Sub verarbeitet werden.

Gento