mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 10:03:57 +02:00
16 lines
241 B
TeX
16 lines
241 B
TeX
\begin{FPCList}
|
|
\item[Example]
|
|
\begin{verbatim}
|
|
program outport;
|
|
|
|
uses crt, go32;
|
|
|
|
begin
|
|
{ turn on speaker }
|
|
outportb($61, $ff);
|
|
{ wait a little bit }
|
|
delay(50);
|
|
{ turn it off again }
|
|
outportb($61, $0);
|
|
end.\end{verbatim}
|
|
\end{FPCList} |