ok, das Prinzip wurde erkannt, es sollte so in etwa funktionieren,
aber ... es gibt immer ein aber ... viel zu kompliziert Bild  

Code:
dim textstring as string * 20
dim buchstabe as string *1
dim y as byte
dim x as byte

textstring="STAT1; EXIT; "
textlaenge=len(textstring)
for x=1 to textlaenge step 1
    buchstabe=mid(textstring,x,1)
    y=chr(buchstabe)
    Portd=y
    gosub Drucker_senden
next x
man verwendet gosub, weil man dann an genau die gleiche stelle
über return zurückspringt ... ist schöner als goto.
so in etwa könnts laufen und der Text ist viel flotter änderbar.
man sehe, die Bytes werden einer nach dem andern an den Drucker
geschickt, aber man kann das auch in ner Schleife unterbringen Bild  

oder andere Variante:
Code:
dim textstring as string * 20
dim bytewerte(20) as byte at textstring overlay
dim x as byte
dim y as byte

textstring="STAT1; EXIT; " 
y=len(textstring)
for x = 1 to y step 1
    Portd=bytewerte(x)
    gosub Drucker_senden
next x