Profil Primes	COMMENT

-------------------------------------------------------------

Begin

Texte1 = SaisieChaine("ComH1","")
Texte2 = SaisieChaine("ComH2","")

Texte1B = SaisieChaine("ComB1","")
Texte2B = SaisieChaine("ComB2","")

Call SaisieCarac("ComH1","ComH1","","ComH","A100","50,0",3)
Call SaisieCarac("ComH2","ComH2","","ComH","A101","50,0",3)

Call SaisieCarac("ComB1","ComB1","","ComB","B100","50,0",8)
Call SaisieCarac("ComB2","ComB2","","ComB","B101","50,0",8)

if Texte1 <> "" then
	Exec("Lprime_COMH")	
	methodeCalcul = 2
	Tauxs = 0
	Bases = 0 
	Liblong = Texte1 
	ligneneutre = true
	Exec ("GenereLprime")
endif

if Texte2 <> "" then
	Exec("Lprime_COMH")	
	methodeCalcul = 2
	Tauxs = 0
	Bases = 0 
	Liblong = Texte2
	Exec ("GenereLprime")
endif


if Texte1B <> "" then
	Exec("Lprime_COMB")	
	methodeCalcul = 2
	Tauxs = 0
	Bases = 0 
	Liblong = Texte1B
	ligneneutre = true
	Exec ("GenereLprime")
endif

if Texte2B <> "" then
	Exec("Lprime_COMB")	
	methodeCalcul = 2
	Tauxs = 0
	Bases = 0 
	Liblong = Texte2B
	Exec ("GenereLprime")
endif


end