{*************************************************************

         - - -   Le CyberZo‹de Qui Fr‚tille  - - -

                 .. le Web scientifique ..

  http://www.multimania.com/cyberzoide/info/turbo/turbo.htm
                 cyberzoide@multimania.com

***************************************************************}

Uses Graph ;

Var r, a, mode, pilote : Integer ;

BEGIN
Mode := Detect ;
InitGraph(mode, pilote, 'c:\bp\bgi') ;
SetColor(14) ;
r := 0 ;
Repeat
Inc(r, 8) ;
Arc(GetMaxX Div 3, GetMaxY Div 2, 0, r, 180-(r Div 2)) ;
Until r>360 ;
ReadLn ;
CloseGraph ;
END.