freepascal.compiler/docs/go32ex/softint.pp

Program softint;

uses go32;

var r : trealregs;

begin
     r.al := $01;
     realintr($21, r);
     Writeln('DOS v', r.al,'.',r.ah, ' detected');
end.