fpc/docs/go32ex/flags.tex

\begin{FPCList}
\item[Example]
\begin{verbatim}
Program flags;

uses go32;

var r : trealregs;

begin
     r.ax := $5300;
     r.bx := 0;
     realintr($15, r);
     { check if carry clear and write a suited message }
     if ((r.flags and carryflag)=0) then begin
        Writeln('APM v',(r.ah and $f), 
                '.', (r.al shr 4), (r.al and $f), 
                ' detected');
     end else
         Writeln('APM not present');
end.\end{verbatim}
\end{FPCList}