program eprom_vari1;
var
i,j,n,actif : integer;
b : byte;
fichier : file of byte;
begin
assign(fichier,'c:\eprom1.bin'); {Le fichier ou se trouve le résultat}
rewrite(fichier);
for n:=0 to 31 do
begin
actif:=round(n*128/31);
b:=255;
for i:=1 to actif do write(fichier,b);
b:=0;
for j:=1 to 128-actif do write(fichier,b);
end;
close(fichier);
end.
Ne disposant pas d'un routeur , je ne peut malheureusement
pas vous proposer de "typon" prêt a l'emploi.Si un cybernaute se sent l'envie
d'un réaliser un , surtout qu'il ne s'en prive pas ! Ce serait bien d'en faire
profiter tout le monde ! et moi en premier ... |:-)