home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / CTVERCE.IPS < prev    next >
Text File  |  1998-03-25  |  373b  |  21 lines
  1. VAR
  2.    k : integer;
  3. ENDVAR
  4.  
  5. PROCEDURE ctverec(x : integer, y : integer);
  6.    Rectangle(x, y, x+20, y+20);
  7. ENDPROC
  8.  
  9. PROCEDURE main
  10.    ImageInit(100,100);
  11.    ImageShow;
  12.    ImageBrushColor(clYelow)
  13.    Rectangle(5,5,95,95)
  14.    ImageBrushColor(clRed)
  15.    FOR k:= 10 to 70 step 30
  16.       ctverec(10,k);
  17.       ctverec(40,k);
  18.       ctverec(70,k);
  19.    ENDFOR
  20. ENDPROC
  21.