home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0704.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-17  |  592 b   |  40 lines
  1. Program MyGraph;
  2.  
  3. Uses
  4.   CRT,
  5.   Graph,
  6.   Int05;
  7.  
  8. Var
  9.   gDriver,
  10.   gMode,
  11.   x,
  12.   y : Integer;
  13.  
  14. Begin
  15.   gDriver := Detect;
  16.   InitGraph (gDriver,gMode,'');
  17.   If ( GraphResult <> grOk ) Then
  18.     Halt ( GraphResult );
  19.   GraphPrn := TRUE;
  20.   x := 0;
  21.   While ( x < 100 ) Do
  22.   Begin
  23.     y := 0;
  24.     Inc ( x, 4 );
  25.     While ( y < 100 ) Do
  26.     Begin
  27.       Inc ( y, 4 );
  28.       Line (x,y,100-x,100-y);
  29.     End;
  30.   End;
  31.   ReadLn;
  32.   CloseGraph;
  33.   GraphPrn := FALSE;
  34.   TextMode ( co80 );
  35.   ClrScr;
  36.   For x := 1 To 25 Do
  37.     WriteLn ( 'This is a test.' );
  38.   ReadLn;
  39. End.
  40.