*  TIMECHK.cmd  12/12/82
*  ASHTON-TATE       written by joe stegman
*
*  Load the time/date subprogram and read the time and date
*   into memory variables.
set talk off

*   this routine requires that TDATE be loaded first.
DO TDATE
STORE 'T /  /  ' TO T:I:M:E
STORE 'D  .  .  ' TO D:A:T:E

*   set the call address
SET CALL TO 41984

*   read the date, then time into the variables D:A:T:E & T:I:M:E
CALL D:A:T:E
CALL T:I:M:E

*   Using the substring operator,
*   pull the week day out of the date variable
STORE $(D:A:T:E,1,1) TO W:K:D:A:Y

*   and isolate the regular date from the week day
STORE $(D:A:T:E,2,8) TO D:A:T:E

*   set dBASE II's system date
SET DATE TO &D:A:T:E
*   return back to dBASE II
RETURN