<<<<The code has a Y2k problem.
Maybe use _AbbrevDate as described on p86 of the FBII Ref Manual, and get
the right 4 digits of the string ie 1998 instead of 98.

>    a$ = DATE$
>    year$ = RIGHT$(a$,2)     <----*** ONLY 2 DIGITS RETURNED
>    month$ = LEFT$(a$,2)
>    year = VAL(year$)
>    month = VAL(month$)
>
>    LONG IF year > 93 AND month > 6
>      FN doError (Msg$)   'display error message
>
>      END                 'let's not work anymore...
>    END IF
>>>>

You can get around that simply by changing:
LONG IF year > 93 AND month > 6
to:
LONG IF year <> 93 AND month > 6

The program will work again in 2093 for 6 months, but I don't think you'll
have to worry about it by then  :)


Al Staffieri Jr.

AlStaff@...
http://members.aol.com/AlStaff/index.html