Hallo,
vrsucht es doch mal mit dieser Methode:
(auf die Schnelle zuammengestrickt,
ist noch nicht 100%ig))

Gruß Jan

Code:
$regfile = "M32def.dat"
$crystal = 16000000
$baud = 9600



Dim A As Byte
Dim Z As Byte
Dim B As Byte
Dim C As String * 1
Dim S As String * 28

Print Chr(12);

Restore Daten

For Z = 1 To 23
   Read S
      For B = 1 To 28
      C = Mid(s , B , 1)
       A = Asc(c)
       If A > 32 Then A = A - 48
       Print Chr(a);
   Next B
Next Z

Do
Loop

End

' A = chr(17), B=chr(18) usw. bis O = chr(31)
'  Leerzeichen ist Leerzeichen
' Grossschrift !!!
'jede Zeile hat genau 28 Zeichen

Daten:
Data "   ABCDEFGHIJKLMNO          "                         'Zeile 1
Data "AAAAAAAAAAAAAAAAAAAAAAAAAAAA"                         'Zeile 2
Data "                            "
Data "  DDDDDDDDDDDDDDD           "
Data "                            "
Data "BBBBBBBBBBBBBBBBBBBBBBBBBBBB"
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "       ADGKHLDDEG           "
Data "       KJLKN NO             "
Data "       KBHLLABGFKK          "
Data "     HJLKBGFCRE             "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "     DEFGH                  "
Data "  ADDDFFJJJJ                "                         'Zeile24