20 lines
387 B
Plaintext
20 lines
387 B
Plaintext
program Fenster1;
|
|
|
|
uses crt;
|
|
|
|
procedure Ueberschrift(Text:string; VF,HF: byte);
|
|
begin
|
|
window(1,1,80,1);
|
|
TextColor(VF);
|
|
TextBackground(HF);
|
|
ClrScr;
|
|
GotoXY(40-(length(Text) DIV 2),1);
|
|
Write(Text);
|
|
end;
|
|
|
|
begin
|
|
TextBackground(0);
|
|
ClrScr;
|
|
Ueberschrift('Mal sehen was passiert, wenn die šberschrift die Zeilenl„nge sprengt Test Test',10,1);
|
|
ReadKey;
|
|
end. |