35 lines
765 B
Plaintext
35 lines
765 B
Plaintext
unit RCString;
|
|
|
|
interface
|
|
procedure WriteCLn(t: string);
|
|
procedure WriteC(t: string);
|
|
procedure WriteCY(l: integer; t: string);
|
|
implementation
|
|
|
|
uses Crt;
|
|
|
|
procedure WriteCLn(t: string); { Schreibt einen String zentriert in die Zeile MIT Zeilenvorschub }
|
|
begin
|
|
GotoXY(40-Length(t) div 2,WhereY);
|
|
WriteLn(t);
|
|
end;
|
|
|
|
procedure WriteC(t: string); { Schreibt einen String zentriert in die Zeile OHNE Zeilenvorschub }
|
|
begin
|
|
GotoXY(40-Length(t) div 2,WhereY);
|
|
Write(t);
|
|
end;
|
|
|
|
procedure WriteCY(l: integer; t: string);
|
|
var cx,cy: integer;
|
|
begin
|
|
cx := WhereX;
|
|
cy := WhereY;
|
|
GotoXY(40-Length(t) div 2,l);
|
|
Write(t);
|
|
GotoXY(cx,cy);
|
|
end;
|
|
|
|
begin
|
|
WriteLn('þ Loading Unit: Strings - geschrieben von RoboCop of nOOb');
|
|
end. |