na szybko mam coś takiego i nie nawiązuje połączenia mam FT-817 Commander versja Beta 2.2 HB9DRV
Kod:
$regfile = "m644pdef.dat"
$crystal = 16000000
$baud = 9600
Config Serialin = Buffered , Size = 32
Echo Off
Enable Interrupts
$hwstack = 64
$swstack = 10
$framesize = 40
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Cls
Dim S As String * 16
Echo Off
Do
Input S
Cls :
Locate 1 , 1 : Lcd S
Loop
End