home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / ozogan / CTVERCE.IPS < prev    next >
Text File  |  1997-08-18  |  358b  |  20 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.    ImageBrushColor(clYelow)
  12.    Rectangle(5,5,95,95)
  13.    ImageBrushColor(clRed)
  14.    FOR k:= 10 to 70 step 30
  15.       ctverec(10,k);
  16.       ctverec(40,k);
  17.       ctverec(70,k);
  18.    ENDFOR
  19. ENDPROC
  20.