uses graph;
var
pilote,mode:integer;
f:text;
s: string;
x:integer;
y:integer;
begin
x:=200;
y:=150;
pilote:=detect;
initgraph(mode,pilote,'c:\TP\BGI');
Assign (f,'c:\TP\menu.txt');
Reset(f);
while not eof(f) do
begin
Readln(f,s);
outtextxy(x,y,s);
y:=y+30;
end;
readln;
Close(f);
end.
|