62 lines
1.5 KiB
Plaintext
62 lines
1.5 KiB
Plaintext
|
program pr;
|
||
|
uses crt, graph;
|
||
|
var tmp_d, tmp_m : integer; {screen variables}
|
||
|
p : char; {readkey}
|
||
|
y_wlcm : integer; {Vsplivayushii text}
|
||
|
javame : string;
|
||
|
|
||
|
{Procedura inicializacii grafiki}
|
||
|
procedure init_screen;
|
||
|
begin
|
||
|
tmp_d := detect;
|
||
|
initgraph(tmp_d, tmp_m, '');
|
||
|
end;
|
||
|
|
||
|
{Procedura inicializacii peremennyh}
|
||
|
procedure init_variables;
|
||
|
begin
|
||
|
y_wlcm := -20;
|
||
|
javame := 'JavaME';
|
||
|
end;
|
||
|
|
||
|
{Procedura vyvoda zastavki}
|
||
|
procedure helloscreen;
|
||
|
begin
|
||
|
init_screen;
|
||
|
repeat
|
||
|
setcolor(7);
|
||
|
bar(0,0,640,480);
|
||
|
settextstyle(1, 0, 7);
|
||
|
{vyvod texta Welcome s tenyu}
|
||
|
setcolor(green);
|
||
|
outtextxy(172, y_wlcm+2, 'Welcome');
|
||
|
setcolor(lightgreen);
|
||
|
outtextxy(170, y_wlcm, 'Welcome');
|
||
|
inc(y_wlcm);
|
||
|
{Vyvod imeni}
|
||
|
settextstyle(3, 0, 4);
|
||
|
setcolor(red);
|
||
|
outtextxy(y_wlcm*2-100, 171, 'Author: Victor aNNiMON Melnik');
|
||
|
setcolor(lightred);
|
||
|
outtextxy(y_wlcm*2-99, 170,'Author: Victor aNNiMON Melnik');
|
||
|
delay(1000);
|
||
|
until y_wlcm>100;
|
||
|
repeat until keypressed;
|
||
|
|
||
|
end;
|
||
|
|
||
|
{Glavnaya programma}
|
||
|
begin
|
||
|
helloscreen;
|
||
|
{
|
||
|
repeat p:= readkey;
|
||
|
setbkcolor(blue);
|
||
|
if(p=#72) then inc(colbk1);
|
||
|
if(p=#80) then colbk1:=colbk1-1;
|
||
|
if(colbk1<0) then colbk1 := 15;
|
||
|
if(colbk1>15) then colbk1 := 0;
|
||
|
|
||
|
until p=#27;
|
||
|
readkey; }
|
||
|
closegraph;
|
||
|
end.
|