So ich hab mich mal versucht.würde das so gehen:
Code:
$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Pinb.1 = Output

 Dim Eingang As Integer

 Do
   Pulsein Eingang , Pind , 1 , 2
   Eingang = Eingang * 10
   Wait Eingang
   Pinb.1 = 1
   Wait Eingang
   Pinb.1 = 0
 Loop
 End