$RUN ANCOMP
$L132
$PON
$PAR=.
TITRE  vins ;
PARAM NI=18 NJ=8 NF=5 LECIJ=1 STFI=1 STFJ=1 ;
OPTIONS IOUT=1 IMPFI=1 IMPFJ=1 NGR=5;
GRAPHE X=1 Y=2 GI=3 GJ=3 OPT=3 CADRE=1 ;
GRAPHE X=1 Y=2 GI=0 GJ=3 OPT=3 CADRE=1 ;
GRAPHE X=1 Y=2 GI=3 GJ=0 OPT=3 CADRE=1 ;
GRAPHE X=1 Y=3 GI=3 GJ=3 OPT=3 CADRE=1 ;
GRAPHE X=2 Y=3 GI=3 GJ=3 OPT=3 CADRE=1 ;
LISTE VIN(1,4) BELGIQUE(5,9) NEDERLAND(14,10) RFA(24,8) ITALIE(32,7) 
      UK(39,8) SUISSE(47,7) USA(54,7) CANADA(61,7)  ; 
$F11=vins.sdf
$PRT=vins.sac
$F21=vins.fal
$F23=vins.fac
$END