Das könnte so ausssehen:
Code:
Dim S As Byte
S = 4
Print Chr(27); ' ESC einzeln, oder so
Print Chr(27) ; "TP"; S; ","; ' usw.