home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / SETDATE.PRG < prev    next >
Text File  |  1984-08-05  |  1KB  |  36 lines
  1. * Program.: SETDATE.CMD
  2. * Author..: Luis A. Castro.
  3. * Date....: 7/28/83, 11/20/83.
  4. * Notice..: Copyright 1983 & 1984, Ashton-Tate, All Rights Reserved.
  5. * Notes...: Sets the system date with a verified date.
  6. *
  7. SET TALK OFF
  8. SET BELL OFF
  9. IF $(DATE(),1,5)="00/00"
  10.    *
  11.    * ---The system date was not entered.
  12.    ERASE
  13.    @ 2, 0 SAY "S Y S T E M    D A T E"
  14.    @ 3, 0 SAY "========================================"
  15.    @ 3,40 SAY "========================================"
  16.    *
  17.    * ---Loop through until a valid date is entered.
  18.    STORE F TO is:valid
  19.    DO WHILE .NOT. is:valid
  20.       STORE "  /  /  " TO mdate
  21.       @ 5,0 SAY "Enter system date as MM/DD/YY ";
  22.             GET mdate PICTURE "99/99/99"
  23.       READ
  24.       * ---Date verification routine.
  25.       DO Datetest
  26.    ENDDO 
  27.    *
  28.    * ---The system date is set at this point.
  29.    SET DATE TO &mdate
  30.    RELEASE is:valid, mdate
  31. ENDIF
  32. SET BELL ON
  33. SET TALK ON
  34. RETURN 
  35. * EOF: SETDATE.CMD
  36.