@  7,  3  SAY "CODEART"
@  7, 16  GET  SDARTI->CODEART
@  7, 22  SAY "FAMILLE"
@  7, 30  GET  SDARTI->FAMILLE
@  7, 34  SAY ":"
@  8,  3  SAY "FOURNISSEUR"
@  8, 16  GET  SDARTI->CODEFOURN
@ 10,  3  SAY "DESIGNATION"
@ 10, 16  GET  SDARTI->DESIGNART
@ 10, 59  SAY "COLISAGE"
@ 10, 70  GET  SDARTI->COLISAGE
@ 12,  3  SAY "CODE TVA"
@ 12, 15  GET  SDARTI->CODETVA
@ 12, 18  SAY ":                    PRIX D'ACHAT UNITAIRE"
@ 12, 65  GET  SDARTI->PRIXACHUN
@ 14,  3  SAY "PRIXVENTE 1"
@ 14, 16  GET  SDARTI->PRIXVENTE1
@ 15,  3  SAY "PRIXVENTE 2"
@ 15, 16  GET  SDARTI->PRIXVENTE2
@ 16,  3  SAY "PRIXVENTE 3"
@ 16, 16  GET  SDARTI->PRIXVENTE3
@ 16, 29  SAY "QUANTITE"
@ 16, 41  GET  SDARTI->QUANTITE
@ 17,  3  SAY "PRIXVENTE 4"
@ 17, 16  GET  SDARTI->PRIXVENTE4
@ 17, 30  SAY "MINIMUM"
@ 17, 46  GET  SDARTI->QUANTMIN
@ 18,  3  SAY "PRIXVENTE 5"
@ 18, 16  GET  SDARTI->PRIXVENTE5
READ
RETU