senden:

Code:
Sub Senden(was As String * 21)
   While Z1 <> "A"                                          'warteschleife bis A (ACK) kommt
      Print Was ; Chr(13):                                  'solange das ganze bis dei schleife geschlossen ist
      Waitms 10
      Z1 = Inkey()
   Wend                                                     'ende der schleife

   Z1 = Inkey()                                             'das C verschlucken
   Z1 = Inkey()                                             'das K verschlucken
   Z1 = Inkey()                                             'das {013} verschlucken

   Z1 = ""
End Sub
empfangen:

Code:
Sub Empfangen()
   While Isit <> 255                                        'warten bis synchronbyte kam
      Isit = Waitkey()
   Wend                                                     'ende des wartens
   For I = 1 To 9                                           '9 Bytes einlesen (auf TC abgestimmt, bei bedarf ändern)
      Isit = Waitkey()
      Ar(i) = Isit
   Next                                                     'ende der schleife
End Sub
initialisierung:

Code:
Print Chr(13):
Call Senden( "NF 30")
Call Senden( "RM 1" )

While Z1 <> "A"
   Was = "CR 18 32 19 32"
   Print Was ; Chr(13):
   Waitms 10
   Z1 = Inkey()
Wend
Z1 = ""

Call Senden( "DM 60")

While Z1 <> "A"
   Was = "TW"                                               '"TC 90 140 220 240 0 30"
   Print Was ; Chr(13):
   Waitms 10
   Z1 = Inkey()
Wend
Z1 = ""
und das hauptprogramm:

Code:
Do
   Call Empfangen()

   Waitms 50
Loop
dann musste noch nen ausgabebefehl einfügen der AR(2-9) ausgibt