переписать из паскаля в делфи(выдать уровни на ногу порта)

[ovram]

Есть програмулина выдающая уровни на элтепе. Вводим 10010101 выбираем длину фронта, подтягуем ногу к + и погнали любоваться на осцилограф. Но беда в том что не работает под виндой.

LPT 1:

_25 - земля.



_8 - выход данных на запись.

_10 - вход детектора

схема устройст




program mywrite210 ;

uses crt;
const
{time=75;}
por=888;
var
halft,i,n,o,time:integer;
z,f,s:byte;
mass:array[1..650] of byte;
a:text;
h:string[25];

procedure prep;
begin
textbackground(11);
for i:=1 to 2000 do write(' ');
clrscr;
textcolor(4);
writeln(' writer Copywrite by leg ');
for i:=1 to 650 do mass[i]:=0;
i:=0;
textcolor(yellow);
{normvideo; }
writeln('select line "1" --> iso1 "2" --> iso2');
readln(h); { h:='1'; }
if h='1' then begin
o:=650;
writeln('write iso1 line');{ enter time of fronta (20-150)');
read(time);}
time:=35; {sinchron time}
end;
if h='2' then begin
o:=250;
writeln('write iso2 line');
time:=75;
end;
halft:=round(time/2);
write('input CAR-file name?:');
readln(h);
{ h:=h+'.car';
{h:='v2.car'; }
assign(a,h);
reset(a);
{ if filesize(a)=480 then o:=250;
if filesize(a)=1260 then o:=650;}
repeat
inc(i);
read(a,f);
mass[i]:=f;
write(f,' ');
{ read(a,f); }
until eof(a);
close(a);
writeln;
writeln('insert in writer');
writeln('time of front: ',time);
end;

begin
{halft:=round(time/2); }
prep;
port[por]:=0;
repeat
delay(time);
if port[por]=0 then port[por]:=255;
if port[por]=255 then port[por]:=0;
z:=port[por+1];
until z=255;
{uslovie starta}
{delay(100);} {smeshenie}
textcolor(red);
writeln;
writeln('!!!record!!!');
for i:=1 to o do
begin
f:=mass[i];
{readkey; } {step by step}
write(f,' ');
if f=0 then
begin
z:=port[por];
if z=0 then s:=255;
if z=255 then s:=0;
port[por]:=s;
{for n:=1 to time do
begin }
delay(time);
{ end;
write(f,' '); }
end;
if f=1 then
begin
z:=port[por];
if z=0 then s:=255;
if z=255 then s:=0;
port[por]:=s;
{for n:=1 to halft do
begin }
delay(halft);
{ end;
{2 chast}
z:=port[por];
if z=0 then s:=255;
if z=255 then s:=0;
port[por]:=s;
{for n:=1 to halft do
begin}
delay(halft);
{ end;
write(f,' ');}
end;
end;
textcolor(yellow);
writeln;
writeln;
writeln('complite!');
sound(3000);
delay(30000);
nosound;
end.

бюджет 50гр

[dosha]

стучи помогу 631694469

[LeoSoft]

сделаю
ICQ: 239931678

[raxp]

самый простой способ заставить работать под XP подобные утилиты - добавить инициализацию драйвера giveo.sys (как вариант), дающего доступ к портам пользовательскому приложению ...правда ваше приложение все же лучше "немножко переделать" в консольное в том же delphi.

[fat-lip]

437675148 пиши