Uses Crt,Dos;
Const
      VideoPtr : Pointer = Ptr($B800,0);
Type
      VideoArray  = Array [ 1 .. 4000 ] of byte;
      PVideoArray = ^VideoArray;

Var
            F : File;
            N : Word;
            X : Word;
        S1,S2 : String[13];
       Buffer : PVideoArray;

Begin
 GetMem(Buffer,4000*SizeOf(Byte) );
 Buffer := VideoPtr;
 Assign(F, ParamStr(1) );
 Reset(F,1);
 BlockRead(F,Buffer,1);
 Close(F);
End.