Computer Science A - 10/15/99

int LenOfIncreasing(SeqType S) - from worksheet
{
    int length = 1,
        value;

    do
    {
        value = CurrentValue(S);
        if(!EndOfSeq(S))
        {
            Advance(S);
            if(value < CurrentValue(S))
                length++;
        }
    } while(value < CurrentValue(S) && !EndOfSeq(S));

    return(length);
}