home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST107.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.0 KB  |  46 lines
  1. ********************
  2.  
  3. PROCEDURE Olddate
  4.    
  5.    PARAMETERS _olddt, _olddl, _olddb, _olddr
  6.    
  7.    IF PCOUNT() = 0
  8.       _olddt = 15
  9.       _olddl =  2
  10.       _olddb = 19
  11.       _olddr = 52
  12.    ENDIF
  13.  
  14.    IF PCOUNT() = 2
  15.       _olddb = _olddt + 4
  16.       _olddr = _olddl + 50
  17.    ENDIF
  18.  
  19.    PRIVATE _oldmid, _mdate, _new
  20.  
  21.    _oldmid = _olddr - _olddl
  22.    _oldmid = _oldmid - 40
  23.    _oldmid = _oldmid / 2
  24.    _oldmid = _oldmid + 36
  25.  
  26.    _mdate = DATE()
  27.    prompt = "Today's Date is " + CDOW(DATE()) +  ", " + CMON(DATE())
  28.    prompt = prompt + " " + STR(DAY(DATE()),2) + ", " + STR(YEAR(DATE()),4)
  29.  
  30.    Wpush(_olddt, _olddl, _olddb, _olddr)
  31.    
  32.    Wsayget(1, Wcenter("changing system data"), "Changing System Date" )
  33.    Wsayget(2, Wcenter(prompt), prompt )
  34.    Wsayget(3, Wcenter("Enter in Date:       "), "Enter in Date:  ", "_mdate", "99/99/99")
  35.    Sjsread()
  36.    IF UPDATED()
  37.       IF FILE(scrprog + "\COMMAND.COM")
  38.          _new = DTOC(_mdate)
  39.          RUN DATE &_new
  40.       ENDIF
  41.    ENDIF
  42.    Wpop()
  43.  
  44. * End of File
  45.  
  46.