Mause.tpu, Как указать путь Опции

[killerfriz]

Я програмирую в среде Turbo Pascal попытался запустить вот эту прогу (посмотреть мож чему научиться)

Код

program lab42;
uses mouse,graph;
var d,m,x,y:integer;
   c,f,e:boolean;
procedure nlo(x,y:integer);
begin
fillellipse(x,y,50,20);
Ellipse (x,y-4,190,357,50,20);
Line (x+10,y-12,x+20,y-40);
Line (x-10,y-12,x-20,y-40);
Circle (x+10,y-12,2);
Circle (x-10,y-12,2);
line(x-10,y+20,x-20,y+40);
line(x+10,y+20,x+20,y+40);
line(x-25,y+40,x-15,y+40);
line(x+15,y+40,x+25,y+40);
end;
begin
d:=0;
initgraph(d,m,'');
getmousexy(x,y,c,f,e);
setxrange(50,580);
setyrangle(40,430);
repeat
setcolor(0);
nlo(x,y);
getmousexy(x,y,c,f,e);
setcolor(7);
nlo(x,y);
until c=true
end.

После чего он мне выдал мол Фаил MAUSE.TPU не найден. Подскажите как оно ... ато я не догоняю (Дурень наверно )

[BlackShadow]

Для того, чтобы это заработало, нужно тебе иметь все используемые библиотеки. Mouse.Tpu в стандартный набор не входит, а в этой проге используется. Так что скачай откуда-нибудь и вперёд.

[Altair]

Советую начинать с программ без подключаемых модулей.

[BlackShadow]

Или хотя бы без крысы

[trminator]

а mouse.tpu положишь туда же, где лежит graph.tpu (этот путь должен быть прописан в Options > Directories > Unit directories)