Das Char kannst du sparen.pitch12 = Char(27)+Char(31)+'11';
Einfacher geht es so:
Code: Alles auswählen
pitch12 := #27#31+'11';
Code: Alles auswählen
WriteLn(#27'[12;35H'#27'[32mHello World');
So abwegig sind die Escape-Sequenzen gar nicht. Jede Linux-Konsole verwendet sie heute noch.Wenn du auf so etwas stehst, versuch einen alten Fernschreiber zu bekommen... 50Bd sind doch was