Code:
$regfile = "m8def.dat"
$crystal = 7372800
$baud = 9600
$hwstack = 40 ' Stack für Gosubs...
$swstack = 40
Dim S As String * 10
Dim B(11) As Byte At S Overlay
Dim N As Byte
config portx = output
Do
n = inkey
If N > 0 Then
gosub empfangen
End If
Loop
end
empfangen:
select case n
case 49
reset portx ' port x komplett abschalten, wenn eine 0 empfangen wurde.
case 49
set portx.y 'portx.y stzen, wenn eine 1 empfangen wurde
case 50
set portx.y 'portx.y setzen, wenn eine 2 empfangen wurde
end select
print n
return
Lesezeichen