FUNCTION detail$ 
   assign "bibdyn_syst.dll","stddetail"
END FUNCTION

FUNCTION ea(n)
   assign "bibdyn_syst.dll","stdea"
END FUNCTION

FUNCTION nea$(n)
   assign "bibdyn_syst.dll","stdnea"
END FUNCTION

FUNCTION sb(n,valeur)
   assign "bibdyn_syst.dll","stdsb"
END FUNCTION

FUNCTION nsb$(n)
   assign "bibdyn_syst.dll","stdnsb"
END FUNCTION

FUNCTION eadstr$(n$)
   assign "bibdyn_syst.dll","stdeadstr"
END FUNCTION





PRINT "Bonjour"
PRINT detail$
PRINT ea(0)
PRINT nea$(0)
PRINT nsb$(0)
PRINT sb(0,1)
PRINT eadstr$("0")
END