19 lines
380 B
Plaintext
19 lines
380 B
Plaintext
uses Crt,VFx;
|
|
|
|
var i: integer;
|
|
|
|
begin
|
|
CursorOff;
|
|
WinBeep;
|
|
for i:=1 to 10 do begin
|
|
if i<5 then begin
|
|
TextColor(8);
|
|
WriteC('Dies ist ein Testtext ---------------------fdsafasdfasdfasdffsdfsdf-');
|
|
end;
|
|
FXWriteC('Dies ist ein Testtext ---------------------fdsafasdfasdfasdffsdfsdf-',15);
|
|
WriteLn;
|
|
end;
|
|
ReadKey;
|
|
CursorOn;
|
|
end.
|