Ich sende ja ganze strings und bei rintbin müßte ich alles auf Variablen legen und bei ca. 30 Textbausteinen ist es etwas umständlich .
Versuch's doch mal so..

Code:
$crystal = 16000000
baud =9600


Dim Sendestring As String * 20
Dim Sendezeichen As String * 1

Dim Meintext(5) As String * 20
Dim N As Byte
Dim S As Byte


Meintext(1) = "HALLO"
Meintext(2) = "WELT"
Meintext(3) = "so"
Meintext(4) = "gehts"
Meintext(5) = "auch ;)"


For S = 1 To 5
  Sendestring = Meintext(s)
  Gosub Senden
Next S
End


Senden:
For N= 1 to len (Sendestring)
  sendezeichen  = mid (sendestring,n,1)
  Printbin sendezeichen;
Next N
Return

Gruß
Christopher