[an error occurred while processing this directive]
|
Прогу буду запуcкать под MSDOS 7.0 (которая с WIN98), ес-сно ECP у LPT включено, боле того, прога на TP6 работает, но мне кажется, если написать на ASMe, то будет быстрее чем 3мкс на байт, в моём случае 3мкс на 3байта, потому как из порта получаю символы:
USES crt;
VAR
filename : string;
f : text;
BEGIN
clrscr;
write('Enter the logfilename: ');
readln(filename);
IF filename <>'' THEN
BEGIN
assign(f, filename);
rewrite(f);
REPEAT
write(f,port[$379]);
UNTIL keypressed;
close(f);
END;
END.