Hallo,

Code:
Sub Position(byval X_Wert As Byte, byval Y_Wert As Byte) 
   Dc = 0                                                   'in den Kommando-Mode 
   X_Wert = X_Wert XOR &H80                   'X_Wert = Spalte 0-83
   Spiout X_Wert , 1
   Y_Wert = Y_Wert XOR &H40                   'Y_Wert = Zeile 0-5 
   Spiout Y_Wert , 1
   Dc = 1                                                   'zurück in den Daten-Mode 
End Sub
Damit kannst du die Position für die Textausgabe festlegen ...