Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (15 sloc) 293 Bytes
{* Turn a LED on or off *}
program led;
const
INPUT = 0;
OUTPUT = 1;
var
pin, value: Integer;
begin
write('Enter pin number: ');
readln(pin);
write('Enter value (0 = LOW, 1 = HIGH): ');
readln(value);
Bdos(220, (pin shl 8) + OUTPUT);
Bdos(222, (pin shl 8) + value);
end.