'Programm zum auslesen des Garmin etrex '4800 Baud '90S 2313 'takt 3.2768 Mhz Dim Data(20) As Byte 'Array für die Daten Hier 20 Bytes groß zum tesen Dim A As Byte Dim B As Byte Cls ' Lcd Anzeige löschen Do 'Endlos Schleife A = Inkey() 'Zeichen einlesen von RS 232 If A = 36 Then 'Startzeichen abfragen $ ' Daten einlesen For B = 1 To 20 '20 zeichen einlesen Data(b) = Waitkey() 'auf Zeichen warten und in Data schreiben Next B 'nächste Zeichen 'Daten auf LCD Anzeige ausgeben Locate 1 , 1 'Stelle einstellen For A = 1 To 20 'Und die 20 daten ausgeben Lcd Chr(data(a) ); 'als Zeichen Next A End If Loop