keyword regress(s);
    local dep,ind,tok,dataset;
    dep = 0;
    ind = 0;

    { dep,s } = token(s);
    { tok,s } = token(s);

    if (upper(tok) $/= "ON");
        goto usage;
    endif;

    do until (upper(tok) $== "FROM");
        { tok,s } = token(s);
        if s $== "";
            goto usage;
        endif;
        ind = ind|tok;
    endo;

    ind = trimr(ind,1,1);
    dataset = s;
    call ols(dataset,dep,ind);
    retp;
Usage:

    print;
    print "***************************************************************";
    print "*                                                             *";
    print "*  Usage:                                                     *";
    print "*                                                             *";
    print "*    REGRESS <depvar> ON <indvar list> FROM <dataset>;        *";
    print "*                                                             *";
    print "*  Example:                                                   *";
    print "*                                                             *";
    print "*    regress pub6 on pub3 job mmale from sci;                 *";
    print "*                                                             *";
    print "***************************************************************";
endp;

__miss = 1;
regress pub6 on pub3 job mmale from sci;