home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 4 / CD_ACTUAL_4.iso / share / lectores / gfp / example.pak / SVGA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-05-23  |  528 b   |  37 lines
  1. {$G+}
  2. {$A+}
  3. {$B-}
  4. {$N-,E-}
  5. {$I-}
  6. {$R-}
  7. {$S-}
  8. {$V-}
  9. {$X+}
  10. UNIT SVGA;
  11.  
  12. INTERFACE
  13. const
  14.   XNOR_PUT        = 5;
  15.   NOR_PUT        = 6;
  16.   NAND_PUT        = 7;
  17.   TRANS_COPY_PUT    = 8;
  18.  
  19.  
  20. PROCEDURE SVGA256;
  21. PROCEDURE INICIA(GRAPHMODE:INTEGER);
  22. IMPLEMENTATION
  23. USES GRAPH;
  24.  
  25. VAR GRAPHDRIVER:INTEGER;
  26.  
  27. PROCEDURE SVGA256;EXTERNAL;
  28. {$L SVGA256.OBJ}
  29. PROCEDURE INICIA;
  30. BEGIN
  31. GRAPHDRIVER:=INSTALLUSERDRIVER('SVGA256',nil);
  32. IF REGISTERBGIDRIVER(@SVGA256)<0 THEN HALT(1);
  33. initgraph(graphdriver,graphmode,'');
  34. cleardevice;
  35. END;
  36. END.
  37.