home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / CONTINUE.IPS < prev    next >
Encoding:
Text File  |  1997-08-14  |  578 b   |  20 lines
  1. VAR
  2.    x : integer
  3. ENDVAR
  4.  
  5. PROCEDURE main
  6.    ImageInit(100,100);    {Inicializuje grafickou plochu}
  7.    ImageShow;             {zobrazφ grafick² v²stup }
  8.    ImagePenColor(clBlue); {nastavφ modrou barvu}
  9.    FOR x := 1 to 100;
  10.        Point(25,x,3);
  11.        Point(75,x,3);
  12.        IF (x > 25) and (x < 75) then
  13.           CONTINUE;      {p°eruÜφ cyklus !}
  14.        ENDIF
  15.        Point(50,x,3);    {pro x od 31 do 59 se neprovede !}
  16.    ENDFOR
  17.    ImagePenColor(clRed);          {nastavφ Φervenou barvu}
  18.    Point(GetmaxX/2,GetmaxY/2,30); {nakreslφ bod doprost°ed}
  19. ENDPROC
  20.