Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/CMPLTPAS.ZIP/GLOAD.PAS

Pascal/Delphi Source File | 1988-07-24 | 532 b | 25 lines

{<<<< GLoad >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1988  ISBN 0-673-38355-5 }
{ Described in section 19.10 -- Last mod 12/5/87 }

PROCEDURE GLoad(GName : String; VAR IOR : Integer);

TYPE
  ScreenBuff = ARRAY[0..16383] OF Byte;

VAR
  GBuff : ScreenBuff ABSOLUTE $B800 : 0;
  GFile : File;

BEGIN
  Assign(GFile,GName);
  {$I-} Reset(GFile,16384); {$I+}
  IOR := IOResult;
  IF IOR = 0 THEN
    BEGIN
      BlockRead(GFile,GBuff,1);
      Close(GFile)
    END
END;