*  TIME.cmd	12/12/82
*  ASHTON-TATE		written by joe stegman
*
*   program to load time/date subprogram and read the time and date
*     and display on the screen
SET TALK OFF
*   TDATE loads the subprogram into memory
DO TDATE

*   initialize the memory variables.
STORE 'T /  /  ' TO T:I:M:E
STORE 'D  .  .  ' TO D:A:T:E
*   set the call address
SET CALL TO 41984

*   read the time and date into the variables T:I:M:E & D:A:T:E
CALL T:I:M:E
CALL D:A:T: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
? 'THE TIME IS: ',T:I:M:E
? 'THE DATE IS: ',D:A:T:E
RETURN