short input_function (void)
{
  char buffer_func[101];                      // 6 bytes "f(x)=" max. 100 bytes fct, 1 byte zero (ANSI)
  
  HANDLE handle = DialogNewSimple (140, 45) ;
  DialogAddTitle (handle, "Derivee", BT_OK, BT_CANCEL) ;
  DialogAddXFlags(handle,0,XF_NO_ALPHA_LOCK,0,0,0) ;
  DialogAddText (handle, 3, 13, "Entrer la fonction:") ;
  DialogAddRequest (handle, 3, 23, "f(x)=", 6, 20, 14) ;
  
    if (DialogDo (handle, CENTER, CENTER, buffer_func, NULL) == KEY_ENTER)
    {
      push_parse_text (buffer_func+6) ;      /* Tokenisation de l'expression entree */
      push_internal_simplify (top_estack) ;
      HeapFree (handle);
      return TRUE ;
    }
    else
    {
      HeapFree (handle);
      return FALSE ;
    }
}

y=(5*x-cos(x))/yscl;