1 Program SystemedeFenetrage;
\r
8 (*****************************************************************************)
\r
9 (* P r o g r a m m e P r i n c i p a l *)
\r
10 (*****************************************************************************)
\r
11 var v,p,h,i : integer,
\r
15 xx,yy : arrayof integer,
\r
16 status,code,x,y,flags,button : integer;
\r
24 call patern(5,5,635,475,2,0);
\r
25 call outstring(10,10,"x=",2,0);
\r
26 call outstring(100,10,"y=",2,0);
\r
27 call outstring(10,30,"status = ",2,0);
\r
28 call outstring(10,50,"code = ",2,0);
\r
29 call outstring(10,70,"flags = ",2,0);
\r
30 call outstring(10,90,"button = ",2,0);
\r
31 call patern(100,210,300,320,3,1);
\r
35 xx(1):=410; yy(1):=10;
\r
36 xx(2):=450; yy(2):=30;
\r
37 xx(3):=460; yy(3):=50;
\r
38 xx(4):=430; yy(4):=80;
\r
39 xx(5):=420; yy(5):=40;
\r
40 xx(6):=480; yy(6):=30;
\r
41 call intens(6,xx,yy,8,1);
\r
46 call intens(6,xx,yy,15,0);
\r
48 call cirb(500,300,50,40,100,3500,10,0);
\r
49 call cirb(400,400,40,40,600,4000,11,1);
\r
52 i:=hfont(100,350,6,-9999999,9999999,500,9,0,15);
\r
53 call hpage(100,400,10,unpack("Il fait beau dans ma verte campagne"),9,0);
\r
54 rep:=hfont8(100,430,10,80,unpack("tototutu"),9,0,15);
\r
56 call getmovement(1,1);
\r
59 d:=getpress(v,p,h,l,r,c);
\r
61 then call outstring(10,400,"Event",2,0);
\r
62 call patern(80,25,130,100,0,1);
\r
63 call track(40,10,v,0,4);
\r
64 call track(140,10,p,0,4);
\r
65 call track(80,30,h,0,4);
\r
66 call track(80,50,l,0,4);
\r
67 call track(80,70,r,0,4);
\r
68 call track(80,90,c,0,4);
\r
69 if((h=164 and l=27) or (c=3))
\r
76 for i:=lower(rep) to upper(rep)
\r