DiSok>p.s u kogo est' krasivie nadpisi,prisylaite primery,a to otkuda ya uchitsya budu?
Учиться, говоришь?
Вообще, не совсем понятно, что ты хочешь, но вот, порылся в школьных запасах...
Программуля выводит текст построчно "титрами", со скроллированием. Но в графике, и с извратами вроде прямого доступа в экранную область
Ко всему нужен полный турбо-паскаль, чтобы шрифты в папке bgi были.
uses crt,dos,graph;
var
gr1,gr2,i:integer;
f:boolean;
src:byte absolute $A000:$0050;
dst:byte absolute $A000:$0000;
bot:byte absolute $A000:$95B0;
{ вывод строчки s. t - стиль (номер шрифта), d - размер }
procedure out(t,d:integer;s:string);
var
i,w,h:integer;
begin
settextstyle(t,0,d);
w:=textwidth(s);
h:=textheight(s)+7;
if f then
for i:=0 to h+3 do begin
move(src,dst,38320);
fillchar(bot,80,0);
end;
f:=true;
for i:=2 to (w div 2)+5 do begin
setviewport(320-i,471-h,320+i,479,true);
outtextxy(i,h div 2,s);
delay(10);
end;
end;
begin
gr1:=detect;
initgraph(gr1,gr2,'d:tp7bgi'); { нужно подставить правильный путь до папки,
где хранится egavga.bgi и шрифты *.chr }
cleardevice;
f:=false;
setcolor(15);
settextjustify(1,1);
out(1,20,'Hello!');
out(3,4,'');
out(1,5,'Learning To Fly');
out(1,4,'by Pink Floyd');
out(7,3,'(from A Momentary Lapse of Reason album)');
out(3,4,'');
out(3,3,'Into the distance, a ribbon of black');
out(3,3,'Stretched to the point of no turning back');
out(3,3,'A flight of fancy on a windswept field');
out(3,3,'Standing alone my senses reeled');
out(3,3,'A fatal attraction holding me fast, how');
out(3,3,'Can I escape this irresistible grasp?');
out(3,2,'');
out(5,4,'Can''t keep my eyes from the circling skies');
out(5,4,'Tongue-tied and twisted');
out(5,4,'just an earth-bound misfit, I');
out(3,2,'');
out(4,5,'Zeus');
out(3,2,'');
out(2,4,'-----------------------------------------------------------------------');
out(1,100,'');
out(1,100,'');
out(1,100,'');
out(1,100,'');
closegraph;
end.