Bonjour,
j'ai un problème au niveau de la compilation d'un programme source
je m'explique: j'ai pris sur le net un codes source déjà réalisé pour le tester .lorsque je saisi le code source et que je compile ,turbo pascal 7 m'affiche le message" error 15: file not found(clavier.tpu)"
le programme source est le suivant:

program etoiles;

{$M 4096,0,0}

{$G+ : Utilise les fonctions du 286 : SHL & SHR (multiplication ultra rapide)}
{$R- : Ne contr“le pass les d‚passement de valeur }

uses Clavier,EcranVga,Fps,PalVideo;

const
NEtoile = 500; { min : 1; cool=500; max=10000 }
VitesseMax = 3;

const FS = $64; { Utilise le segment FS (uniquement avec un 386 ou mieux) }

type Coordonnee = RECORD
x,y : word;
z: byte;
vitesse : shortint;
end;

var
Etoiles: array[0..NEtoile-1] of Coordonnee;
FpsOn: Boolean;
i: word;

procedure DemoEtoile; begin
ActuFps;
repeat
if FpsOn then with FpsInfo do begin
inc(NbrImage);
if TxtModifie then ActuFps;
end else AttendEcran;

for i := 0 to NEtoile-1 do with Etoiles[i] do begin
Mem[$A000: y shl 8 + y shl 6 + x] := 0; { Efface }

inc (x,vitesse); { Deplace }
if 319<x then with Etoiles[i] do begin
x := 0;
{ y := Random(199);
vitesse := 1+Random(VitesseMax);
z := Round(vitesse*63/VitesseMax);}
end;

Mem[$A000: y shl 8 + y shl 6 + x] := z; { Dessine }
end;
until TouchPresse;
end;

procedure Init; var i: word; begin
ModeVga256;

Randomize;
for i := 0 to NEtoile-1 do
with Etoiles[i] do begin
x := Random(320);
y := Random(200);
vitesse := 1+Random(VitesseMax);
z := Round(vitesse*63/VitesseMax);
end;

for i := 0 to 63 do ChangePal (i,0,i,0);

ChangePal (255,63,63,63);

FpsOn := FALSE;
end;

procedure Fin; begin
ModeTxt;
FinFps;
end;

begin
Init;

DemoEtoile;

{ Relance la d‚mo en activant le nombre d'image par seconde }
InitFps (0,0,FALSE);
EffaceEcran (0);
VideTamponClavier; FpsOn := not FpsOn;
for i := 0 to NEtoile-1 do with Etoiles[i] do Y := 8+Random(200-8);
DemoEtoile;

Fin;
end.

Configuration: Windows Vista
Firefox 2.0.0.16