Za citanje je kao za pisanje, samo sto koristis Portw, ili sl. Ako ti ovo ne proradi, javi mi se na mail, pa da pogledam u svojim backup cd-ovima kako tacno radi. Naravno, to ne funkcionise na NT-olikim sistemima, vec na window$-ima do Me.
Code:
program dark;
uses crt;
Const Data = $378;
Status = Data + 1;
Control = Data + 2;
var
Bits: Byte;
begin
Bits := 0;
Port[Data] := Bits;
//writeln('Na izlazu 00000000, pritisni taster 1');
end.
Pera električar 0637129710, BG, preporučujem.