Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  boy
Language: PASCAL
Code:
Program kross;
uses graph,crt,mouse;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
setbkcolor (4); setcolor(blue);
rectangle(7,7,630,470);
rectangle(10,10,626,468);
settextstyle(5,0,0); setcolor(7);
outtextxy(50,50,'Kyrsovoy proekt');
outtextxy(100,150,'Tema: Krossvord');
outtextxy(100,250,'Gruppa: T*****');
outtextxy(100,300,'Vypolnil: ****');
rectangle(495,450,585,405);
outtextxy(520,420,'NEXT');
repeat
readmouse;
if (mousex<495); and (mousex>585); and (mousey<450); and (mouse>405); and leftpressbutton then
begin hidemouse; clrscr; showmouse;
readln;
end.
Comments: