Hi
ich hab das programm für mich ein bischen umgeschrieben. jedoch funktioniert bei mir gar nichts vielleicht kann mir ja noch mal jemand helfen?

hier mal das program was ich geschrieben habe
Code:
$regfile = "m16def.dat"                                     

$crystal = 8000000                                 

$framesize = 32
$swstack = 8
$hwstack = 24


Dim A As Byte , B1(13) As Byte , B2(13) As String * 1 , C As Byte , T As Bit
Dim Rfid As String * 13
Portd.5 = 0
Portd.6 = 0

C = 1
Do

A = Inkey()

If A > 32 Then
B1(c) = A
B2(c) = Chr(b1(c))

If C = 13 Then
Rfid = B2(1) + B2(2) + B2(3) + B2(4) + B2(5) + B2(6) + B2(7) + B2(8) + B2(9) + B2(10) + B2(11) + B2(12) + B2(13)
Portd.5 = 1
Else
Portd.6 = 1
C = 0

End If

Incr C

End If
mfg