Der Code:
$regfile = "m168def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 64
$swstack = 20
$framesize = 60
'----------------------------------
Config Pinc.0 = Output
Config Pind.2 = Input
Led Alias Pinc.0
Eingang1 Alias Pind.2
Dim X As Byte
Const Ein = 1
Const Aus = 0
'---------------------
For X = 1 To 10
Led = Ein
Wait 1
Led = Aus
Wait 1
Next X
For X = 1 To 10
Led = Ein
Waitms 500
Led = Aus
Waitms 500
Next X
End