LCD I2c einen String ausgeben (Zeichenkette)

Hallo...


ich möchte auf den I2C Bus des rnbfra Boards etwas ausgeben.
Ich habe das I2C LCD02

Das Ansprechen funzt... ich kann z.b. das LCD löschen... u.s.w

Aber wie kann ich einen Text ausgeben? z.b "Das ist ein Test"

Code:

---

Dim S As String * 12
Dim A As Byte
S = "test"
A = Len(s)


$crystal = 8000000                                          'Quarzfrequenz


Const Lcd_adr = &HC6                                        'I2C Adr lcd02

Config Scl = Portc.0                                        'Ports fuer I2C-Bus
Config Sda = Portc.1



I2cinit

    Waitms 2000
        I2cstart
        I2cwbyte Lcd_adr
        I2cwbyte 0
        I2cwbyte 12                                        'clear screen

    Waitms 1000
      I2cwbyte S
      I2cstop

End

---

Bei diesem Code kommt nur ein Zeichen raus... das "t"

Wie kann ich die Ausgabe wie z.b: mit dem Print Befehl arbeiten?

Danke Uwe