Program SystemedeFenetrage;
Begin
Pref iiuwgraph block
 Begin
 Pref mouse block


   (*****************************************************************************)
   (*                   P r o g r a m  m e   P r i n c i p a l                  *)
   (*****************************************************************************)
   var v,p,h,i : integer,
       l,r,c : integer,
       rep : arrayof char,
       d : boolean,
       xx,yy : arrayof integer,
       status,code,x,y,flags,button : integer;
   
   Begin
     
     call gron(0);
     call init(1,0);
     
     call showcursor;
     call patern(5,5,635,475,2,0);
     call outstring(10,10,"x=",2,0);
     call outstring(100,10,"y=",2,0);
     call outstring(10,30,"status = ",2,0);
     call outstring(10,50,"code   = ",2,0);
     call outstring(10,70,"flags  = ",2,0);
     call outstring(10,90,"button = ",2,0);
     call patern(100,210,300,320,3,1);

     array xx dim (1:6);
     array yy dim (1:6);
     xx(1):=410; yy(1):=10;
     xx(2):=450; yy(2):=30;
     xx(3):=460; yy(3):=50;
     xx(4):=430; yy(4):=80;
     xx(5):=420; yy(5):=40;
     xx(6):=480; yy(6):=30;
     call intens(6,xx,yy,8,1);
     for i:=1 to 6
      do
       yy(i):=yy(i)+100;
      od;
     call intens(6,xx,yy,15,0);
     
     call cirb(500,300,50,40,100,3500,10,0);
     call cirb(400,400,40,40,600,4000,11,1);


     i:=hfont(100,350,6,-9999999,9999999,500,9,0,15); 
     call hpage(100,400,10,unpack("Il fait beau dans ma verte campagne"),9,0); 
     rep:=hfont8(100,430,10,80,unpack("tototutu"),9,0,15);
     
     call getmovement(1,1); 
     
     do
      d:=getpress(v,p,h,l,r,c);
      if (d)
      then call outstring(10,400,"Event",2,0);
           call patern(80,25,130,100,0,1);
           call track(40,10,v,0,4);
           call track(140,10,p,0,4);
           call track(80,30,h,0,4);
           call track(80,50,l,0,4);
           call track(80,70,r,0,4);
           call track(80,90,c,0,4);
           if((h=164 and l=27) or (c=3))
           then exit;
           fi;
      fi;
     od;
     call groff;
     writeln("i=",i);
     for i:=lower(rep) to upper(rep)
      do
       write(rep(i));
      od;
     writeln;
   End
 End
End.