Der Sender könnte so aussehen (aus dem Kopf, Fehler also nicht ausgeschlossen)

Code:
dim b as byte
declare function lcdsenden(byval lcdzeile as byte, byval lcdspalte as byte, byval lcdtext as string *20) as byte
...
...
do
...
...
if lcdsenden(1,1,"Hallo")<>1 then
   b= lcdsenden(6,0,"1")   'fehler abfangen
   
endif

loop
end

function lcdsenden(byval lcdzeile as byte, byval lcdspalte as byte, byval lcdtext as string *20) as byte
dim b as byte
set zeile.7
set spalte.7
print lcdzeile + lcdspalte+lcdtext
waitms 100'evtl erhöhen, wenn keine 1 kommt.
lcdsenden=waitkey()

end function







Der Empfänger könnte so aussehen (aus dem Kopf, Fehler also nicht ausgeschlossen)

Code:
dim b as byte
dim lang as byte
dim sEingang as string *22 at &h60
dim Zeile(2) as byte at &h60 overlay
dim stext as string*20 at &h62 overlay

...
.
.
do

if ischarwaiting() then gosub Empfangen

loop
end

Empfangen:
b=waitkey()
if b > 12 then
    if b=13  then
      if zeile(1) > 128 and zeile(2)> 128 and lang>2 then
          reset zeile(1).7
          reset zeile(2).7
          if zeile< 5 and spalte<20 then
                locate zeile(1),zeile(2)
                lcd stext
           else
               if zeile=10 then reset led 'Paar Steuerungsmöglichkeiten durch definierte Zeilennummern...
               if zeile=11 then set led           
               if zeile=88 cls
                . 
                .
               
           print "1";'Alles klar senden
          lang=0
          seingang=""
      else
          print "2"; 'Fehler senden
          lang=0
          seingang=""
     endif
   else
      seingang=seingang + chr(b)
      incr lang 
      if lang>22 then
          print"2";
          seingang=""
          lang=0
      endif
 endif
endif
return