at_work/exe_old/486.inc/old1.log

   1 Program SystemedeFenetrage;\r
   2 Begin\r
   3 Pref iiuwgraph block\r
   4  Begin\r
   5  Pref mouse block\r
   6 \r
   7 \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
  12        l,r,c : integer,\r
  13        rep : arrayof char,\r
  14        d : boolean,\r
  15        xx,yy : arrayof integer,\r
  16        status,code,x,y,flags,button : integer;\r
  17    \r
  18    Begin\r
  19      \r
  20      call gron(0);\r
  21      call init(1,0);\r
  22      \r
  23      call showcursor;\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
  32 \r
  33      array xx dim (1:6);\r
  34      array yy dim (1:6);\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
  42      for i:=1 to 6\r
  43       do\r
  44        yy(i):=yy(i)+100;\r
  45       od;\r
  46      call intens(6,xx,yy,15,0);\r
  47      \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
  50 \r
  51 \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
  55      \r
  56      call getmovement(1,1); \r
  57      \r
  58      do\r
  59       d:=getpress(v,p,h,l,r,c);\r
  60       if (d)\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
  70            then exit;\r
  71            fi;\r
  72       fi;\r
  73      od;\r
  74      call groff;\r
  75      writeln("i=",i);\r
  76      for i:=lower(rep) to upper(rep)\r
  77       do\r
  78        write(rep(i));\r
  79       od;\r
  80      writeln;\r
  81    End\r
  82  End\r
  83 End.\r
  84 \r
  85 \r
  86 \r
  87 \r
  88 \r
  89 \r
  90 \r
  91 \r