Po kompilacji tego wywala mi error 320 [syntax error, token=' w ostatniej linii :
$crystal = 1000000
Dim Kod As Bit
Dim Command As Byte , Subaddress As Byte
Config Lcd = 16 * 1a ' lub Config Lcd = 16 * 1
Config Int0 = Falling
On Int0 Receiverc5
Enable Int0
Enable Interrupts
Cls
Lcd "W8ing 4 RC5"
Cursor Off
Do
If Kod = 1 Then
Disable Int0
Cls
Lcd "Com: " ; Command ; ",Adr: " ; Subaddress
Kod = 0
Enable Int0
End If
Loop
Receiverc5:
Getrc5(subaddress , Command)
Kod = 1
Return