Der Code der mir die 2 Schwarzen Kästchen angibt ist hier:

Dim A As String * 6
A = Input
A = String(2 , 6)
Cls
Locate 1 , 1
Lcd "A"
Wait 1
Cls
Locate 1 , 1
Lcd A
End

liebe grüsse