Ausgabe eines Textes auf TV

[Trabukh]

So, mal schaun, ob's geht. Ist nach Jan B.s Methode... Ich habe nicht wirklich etwas geändert, nur die Bezeichnungen für die Variablen und die Grafik unten, schließlich gehts es mir ja hauptsächlich um das Bild!  

$regfile = "M16def.dat" 
$crystal = 16000000 
$baud = 9600 

Dim Zeile as String * 28
Dim Zeichen as String * 1
Dim Reihe as Byte
Dim Spalte as Byte
Dim Nummer as Byte

Restore Daten

For Reihe = 1 To 24
	Read Zeile
	For Spalte = 1 To 28
		Zeichen = Mid(Zeile , Spalte , 1)
		Nummer = Asc(Zeichen)
		If Nummer > 32 Then Nummer = Nummer - 48
		Print Chr(Nummer)
	Next Spalte
Next Zeile

Do
Loop

End

Daten:
Data "      I    F         OCCM   "
Data "       ICCF          O  O   "
Data "      HA  BD         OLLG   "
Data "      FJEJEI         O      "
Data "      E    J         OHD    "
Data "     J      E         BA    "
Data "    HNCGKCGKOD        JE    "
Data "   LADDDDDDDDFML      JE    "
Data " NCK GFFFFFFEEE I     JE    "
Data "J  J GFFFFFFEEML I    BA    "
Data "F GK GFFFFFFEOEBEJ   L  L   "
Data "EJAJ MLLLLLLLOE EJ   BMNA   "
Data "IJDJ        HNEHEJ    NM    "
Data "JCCGMLLLLNOOOOEGHN   NABM   "
Data "JBEEHC KMJC JM EGN          "
Data "BCCAJ DNOJHLNG CCA   HGKD   "
Data "     ONOEJONNE       JGCA   "
Data "    J  JOJ  JO       JEHD   "
Data "    BNFOGJLGOG        CC    "
Data "    HC JIJC JE        HD    "
Data "    J DNOJHLNN        JE    "
Data "    HONOMJONNM        JE    "
Data "    GBCOOF CKOE       JE    "
Data "    MNOOOMLLNOE       JE    "