{$r-,s-}      { Range and stack checking don't work!!! }
{$n-,e-}      { There's no floating point support at all! }

program test;

const
  msg : array[1..45] of char = 'This program has almost no run-time library!$';

procedure printstring;
begin
  { We can't use any of the system routines; we have to do our
    printing using DOS services }

  asm
    mov dx,offset msg
    mov ah,09
    int $21
  end;
end;

begin
  printstring;
end.