{****************************************}
{* Prozeduren um ein Hardcopy innerhalb *}
{* eines Programms aufrufen zu k”nnen   *}
{****************************************}

{$IFDEF VER70}      {Ist es Version 7?}

 PROCEDURE Hardcopy; ASSEMBLER;
 ASM                {Inline-Asm}
  INT 05h           {Interrup 5}
 END;

{$ELSE}             {andere Version}

 PROCEDURE Hardcopy;
 VAR Regs : Registers; {dieser Typ ist in der
                        Unit Dos deklariert!}
 BEGIN
  Intr($05,Regs);      {Intr auch aus Dos!}
 END;

{$ENDIF}