Der Ursprungscode ist von hier: http://www.mkprojekt.de/index.php?content=3310_1

Ich habe dann nur vor dem SPIOUT jeweils eine Abfrage drin ob das Zeichen invers oder nicht dargestellt werden sollte. Ich gebe dann nur nach der Positon und Text an ob inverse Darstellung oder nicht.

Code:
Dim Invers as Bit


Do
Position x,y
Text = "Hello World"
Invers = 1               'Inverse Darstellung = 1, normale Darstellung = 0
Call Nprint
.
.
.
.

Sub Zeichenout
Dc = 1                                            
For Count = 1 To 6
Read Daten
Ce = 0
        If Invers = 0 Then Spiout Daten , 1
        If Invers = 1 Then
                Negdaten = Not Daten
                Spiout Negdaten , 1
                End if
Ce = 1
Next Count
Dc = 0
End Sub