$RUN CAH2CO
$L132
$PON
$PAR=.
TITRE CAH (lignes)  vins  ; 
PARAM NI=18 NJ=5 IOPT=1 LECIJ=1 ;
OPTIONS HISTO=1 DESCRI=1 ARBRE=1 ;
$PRT=vins.SCL
$F11=vins.FAL
$END