Procedures | Cast3M

   1 : * @EXCEL1   PROCEDUR  AM        94/01/20    21:15:10     1033           
   2 : *-----------------------------------------------------------            
   3 : ******              PROCEDURE @EXCEL1                 ******
   4 : *-----------------------------------------------------------            
   5 : *                                                                       
   6 : *    CETTE PROCEDURE A ETE MISE GRACIEUSEMENT                           
   7 : *   A DISPOSITION DE LA COMMUNAUTE  CASTEM2000                          
   8 : *     PAR  Ch. LABORDERIE (LMT - ENS Cachan )
   9 : *                                                                       
  10 : *-----------------------------------------------------------            
  11 : DEBPROC @EXCEL1 EV1*EVOLUTION FICOUT*MOT;
  12 : PROG1=EXTR EV1 ABSC;
  13 : PROG2=EXTR EV1 ORDO;
  14 : NB=DIME PROG1;
  15 : I=0;
  16 : ii=vale impr;
  17 : OPTI IMPR 10 IMPR FICOUT;
  18 : REPETER BOU1 NB;
  19 :   I=I+1;
  20 :   X1=EXTR PROG1 I;
  21 :   Y1=EXTR PROG2 I;
  22 :   MESSAGE X1 ';' Y1 ;
  23 :   FIN BOU1;
  24 : OPTI IMPR II;
  25 : FINPROC;