so das erste war mist aber würde es so gehen:
$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Pinb.1 = Output

Dim Eingang As Integer
Dim A As Integer
Do
Pulsein Eingang , Pind , 1 , 2
Eingang = Eingang / 10
A = 0
If A < 10000 Then
Wait Eingang
Pinb.1 = 1
Wait Eingang
Pinb.1 = 0
Wait Eingang
Pinb.1 = 1
Wait Eingang
Pinb.1 = 0
Wait Eingang
Pinb.1 = 1
Wait Eingang
Pinb.1 = 0
Wait Eingang
Pinb.1 = 1
Wait Eingang
Pinb.1 = 0
End If
Loop
End