home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / SETTIME.OPL < prev    next >
Text File  |  1993-11-09  |  946b  |  37 lines
  1. ==========
  2. psion/opl #831, from dw2, 672 chars, Nov  8 17:20 93
  3. Comments. 
  4. ----------
  5. Setting the system time/date from Opl:
  6.  
  7. (In response to a question asked elsewhere)
  8.  
  9. You can use TimSetSystemTime, os-call $0389, which sets the system
  10. time, in seconds from 1st Jan 1970, according to the ULONG in CX:DX.
  11.  
  12. Eg
  13.     PROC test:
  14.       local s&,s%
  15.       statuswin on :font -$3fff,0
  16.       s%=addr(s&)
  17.       s&=datetosecs(2000,1,1,0,0,0)
  18.       print "Press any key to set time" :get
  19.       call($0389,0,peekw(s%+2),peekw(s%))
  20.       giPrint "Done" :pause -40
  21.     ENDP
  22.  
  23. Regards, DavidW
  24.  
  25. (This is for the S3a.  The os-call is available on any Sibo
  26. computer, but you'll have to remove eg the "font" flanneling, from
  27. the above program, to get it to run more generally.)
  28.  
  29. ==========
  30. psion/opl #832, from jtd, 59 chars, Nov  9 04:11 93
  31. Comment to 831. 
  32. ----------
  33. Many thanks, it was me who asked in a mail to you.
  34.  
  35. -John-
  36.  
  37.