Télécharger la plaquette Cast3M


fr en

Télécharger @excel1.procedur

Retour à la liste

Numérotation des lignes : 

  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;
  26.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales