float serfci(float);
float serfi(float);
float serfix(float,long);
void serm1(STRING,long,long,STRING,STRING,float,byte);