Danke dir,

ich habs hinbekommen:
Code:
' Fritz Debug
'
' This debugs Fritz Box Fon WLAN 7050
' serial output to RS232 via Minicontrol
'
' made by Scarabol
' thx Richard

$regfile = "m168def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 38400

Print
Print
Print "Im ready!"
Print

Dim B As Byte
B = 0

Open "comd.2:38400,8,n,1" For Input As #2

Do


   B = Waitkey(#2)

   If B > 0 Then
      Printbin B
   End If

Loop

Close #2
MfG
Scarabol