Tedd

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


Peter		mailto:peter@...		http://www.isoma.com