Hallo,
der Code ist:

Code:
$regfile = "2313def.dat"

$crystal = 8000000

  $baud = 9600

  Declare Sub Blink()
  Config Portb.0 = Output
  Statusled Alias Portb.0

Statusled = 1

Do
                  Blink

      Print "test"
Loop

Sub Blink()
Statusled = 0
Waitms 20
            Statusled = 1
End Sub
Danke für deine Hilfe.