{* Запись файла в буфер клавиатуры *}

Unit FTK;
Interface
Implementation
Begin
 writeln('Запись файла в буфер клавиатуры');
End.

Program pas60336;

Uses ftk.pas; {* Эту строку можно удалить *}
{$A+, B-, D-, E-, F+, G+, I-, L-, N-, O-, R-, S-, V-, X-}
{$M $400, 0, 0}
Uses dos; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  old8      :
Procedure ;
s         : String;
i         : word;
max       : word;
m         : Array[1..maxint] Of char;
Begin
  i := 1
End;
Var {* В работе нам потребуются переменные: *}
  reg : word;
Begin
  asm pushf
End;
  old8;
If i  0 Then
Begin
  getintvec(8, @old8);
  setintvec(8, @int8);
  setintvec(5, @int5);
  writeln('Stay resident, press  To transfer');
  keep(0)
End;

End....