home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / RMASTR02.ZIP / DEMO3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-09-23  |  793 b   |  35 lines
  1. (*
  2.  
  3.    ----------------------------------------------------------
  4.    DisplayDef procedure                                 RWDef
  5.    ----------------------------------------------------------
  6.  
  7.    Function   : Reads a DEF file.
  8.  
  9.    Decloration: ReadDef(Filename : String; X,Y : Word)
  10.  
  11.    Remarks    : NO I/O checking performed
  12.                 NO checking is done to verify that its a valid
  13.                 DEF file.
  14.  
  15. *)
  16.  
  17.  
  18.  
  19.  
  20. Program Demo3;
  21.  Uses Graph,RWDEF;
  22. Var
  23.  Gd   : Integer;
  24.  Gm   : Integer;
  25. Begin
  26.  Gd:=EGA;
  27.  Gm:=EGAhi;
  28.  InitGraph(Gd,Gm,'');
  29.  
  30.  ReadDef('RM.DEF',0,0);                    (* Display DEF file to Screen *)
  31.  
  32.  ReadLn;                                   (* Wait for Enter Key *)
  33.  
  34.  CloseGraph;                               (* Close graphics *)
  35. End.