home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 14 / grafik / ghc_demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-10  |  790 b   |  25 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    GHC_DEMO.PAS                        *)
  3. (*         Demonstrationsprogramm der Unit GraphHC        *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM GHC_DEMO;
  6.  
  7. USES  Crt, Dos, Graph, GraphHC;
  8.  
  9. VAR  GraphMode, GraphDriver : INTEGER;
  10.      ch                     : CHAR;
  11.  
  12. BEGIN
  13.   GraphDriver := Detect;
  14.   InitGraph(GraphDriver, GraphMode,'');
  15.   SetTextStyle(1, 0, 4);
  16.   OutTextXY(0,  10, 'Demonstration der');
  17.   OutTextXY(0,  70, 'Hardcopyroutine der');
  18.   OutTextXY(0, 130, 'Unit GraphHC');
  19.   ch := ReadKey;
  20.   GraphHardcopy;              (* Routine der Unit GraphHC *)
  21.   ch := ReadKey;
  22.   CloseGraph;
  23. END.
  24. (* ------------------------------------------------------ *)
  25.