home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / TIME3.OPL < prev    next >
Text File  |  1992-08-27  |  511b  |  36 lines
  1. APP Time3
  2. TYPE 1
  3. ICON "\OPD\~time3.pic"
  4. ENDA
  5.  
  6. PROC Time3:
  7. LOCAL ax%,bx%,cx%,dx%,a&,d&,t&
  8.  
  9. SCREEN 20,8
  10. gSETWIN 1,1,100,80
  11. STATUSWIN ON
  12.  
  13. REM d& Date.
  14. d&=DAYS(DAY,MONTH,YEAR)
  15.  
  16. REM t& Time.
  17. t&=DATETOSECS(1970,1,1,HOUR,MINUTE,SECOND)
  18.  
  19. DINIT "Edit time and date"
  20. DTIME t&,"Time",1,0,DATETOSECS(1970,1,1,23,59,59)
  21. DDATE d&,"Date",d&,DAYS(31,12,2049)
  22. IF DIALOG
  23.  
  24.     a&=86400.0*(d&-25567.0)+t&
  25.  
  26.     cx%=peekw(addr(a&)+2)
  27.     dx%=peekw(addr(a&))
  28.     ax%=$0300
  29.  
  30.     os($89,addr(ax%))
  31.     
  32. ENDIF
  33. GET
  34.  
  35. ENDP
  36.