#include <time.h> #include <extend50.h> CLIPPER b_date() { char date[9]; _retc(_strdate(date)); }