Jak skopiowac Turbo Pascala na komputer

[parabol]

Jak przeniesc TP na komputer? Nie mam netu.
Aha i czy ktos moze wie co moze byc nie tak w tym programie?
program strzal;
uses Crt, GRAPH;
var x,y :integer;

a,alfa,b,vo :real;
odl :string [5];
ster, tryb :integer;
begin
clrscr;
write('vo'); readln(vo);
writeln('kat');
write('alfa='); readln(alfa)
;alfa:=alfa*Pi/180;
ster:=detect; tryb:=detect;
InitGraph(ster,tryb,'c:\bp\bgi
');
SetColor(RED);
Line(0,349,639,349);
a:=9.81/(2*sqr(vo*cos(alfa)));
b:=-sin(alfa)/cos(alfa);
x:=0;
y:=348;
PutPixel (x,y,White);

repeat
delay(50);
PutPixel (x,y,Black);
x:=x+5;
y:=348+round((a*x+b)*x);
PutPixel (x,y,White)
until (x>=639) ;

SetTextJustify (Centertext,CenterText);
if x>639
then OutTextXY (319,174,'Odleglosc ponad 640 m')
else begin
Str (x,odl);
OutTExtXY (319,174,'Odleglosc: '+odl+' m')
end;
repeat
until KeyPressed;
Closegraph
end.

[soku11]

Twoje pytanie jest ze tak powiem 'dziwne'... Nie rozumiem, co maszna mysli mowiac przeniesc TP na komputer Jesli chcesz za pomoca twojego kodu stworzyc program wynikowy, to potrzebny ci bedzie jakis kompilator do Pascala a tego to wezmiesz tylko z neta, albo od jakiegos kolegi co sie moze tym interesowac i miec taki kompilator np na plytce. A co do samego kodu to napisz co nie dziala. POZDRO

[Xitami]

a masz MP3?

[parabol]

No nic nie dziala. Zatrzymuje sie przy slowie graph i pisze "File not found. GRAPH.TPU."

[blost]

na moje oko to podałeś błędną ścieżkę dostępu, albo tego pliku po prostu nie masz na kompie... no ale nie jestem pewien bo też mam właśnie problem z włączeniem trybu graficznego w tp :/

[parabol]

Podalem mu dokladna sciezke dostepu i ni kuma nic dalej