mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 12:39:38 +01:00
9 lines
90 B
ObjectPascal
9 lines
90 B
ObjectPascal
uses
|
|
crt,
|
|
go32;
|
|
|
|
begin
|
|
outportb($61, $ff);
|
|
delay(50);
|
|
outportb($61, $0);
|
|
end. |