@  7,  3  SAY "CODEART"
@  7, 16  say  vcode
@  7, 22  SAY "FAMILLE"
@  7, 30  GET  M->FAMILLE
@  7, 36  SAY "BLANC OU ROUGE"
@  7,50 get blouro
@  8,  3  SAY "FOURNISSEUR"
@  8, 16  GET  M->CODEFOURN
@ 10,  3  SAY "DESIGNATION"
@ 10, 16  GET  M->DESIGNART
@ 10, 59  SAY "COLISAGE"
@ 10, 70  GET  M->COLISAGE
@ 12,  3  SAY "CODE TVA"
@ 12, 15  GET  M->CODETVA
@ 12, 18  SAY ":                    PRIX D'ACHAT UNITAIRE"
@ 12, 65  GET  M->PRIXACHUN
@ 14,  3  SAY "PRIXVENTE 1"
@ 14, 16  GET  M->PRIXVENTE1
@ 15,  3  SAY "PRIXVENTE 2"
@ 15, 16  GET  M->PRIXVENTE2
@ 16,  3  SAY "PRIXVENTE 3"
@ 16, 16  GET  M->PRIXVENTE3
@ 17,  3  SAY "PRIXVENTE 4"
@ 17, 16  GET  M->PRIXVENTE4
@ 18,  3  SAY "PRIXVENTE 5"
@ 18, 16  GET  M->PRIXVENTE5
@ 16, 29  SAY "QUANTITE"
@ 16, 41  GET  M->QUANTITE
@ 17, 30  SAY "MINIMUM"
@ 17, 46  GET  M->QUANTMIN
@ 20, 3   SAY "STOCK DE DEPART AU 31 12 ANNEE PRECEDENTE"
@ 20, 46 GET M->ART1
@ 21, 3 SAY"DEGRE" GET M->DEGRE