home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 002 / saytime_zi / SAYTIME.OPL < prev    next >
Text File  |  1993-12-15  |  855b  |  62 lines
  1. REM SAYTIME v0.2
  2. REM by Roger Burton-West <ubte30e@ucl.ac.uk>
  3. REM copy freely and of your own will
  4.  
  5. PROC stime:
  6.     local ev%(6)
  7.     cache 2000,2000
  8.     call($6c8d)
  9.     gUPDATE
  10.     call($198d,100,0)
  11.     gUPDATE
  12.     loadm "saynum"
  13.     do
  14.         do
  15.             getevent ev%()
  16.             if ev%(1)=$404
  17.                 stop
  18.             endif
  19.         until ev%(1)=$403
  20.         spktime:
  21.     until 0
  22. ENDP
  23.  
  24. PROC spktime:
  25.     local h%,m%
  26.     h%=hour
  27.     m%=5*intf(minute/5.+.5)
  28.     if m%>30
  29.         h%=h%+1
  30.         if m%=60
  31.             m%=0
  32.         endif
  33.     endif
  34.     while h%>12
  35.         h%=h%-12
  36.     endwh
  37.     if h%=0
  38.         h%=12
  39.     endif
  40.     if m%=0
  41.     elseif m%=15
  42.         say:("quarter")
  43.         say:("past")
  44.     elseif m%=30
  45.         say:("half")
  46.         say:("past")
  47.     elseif m%=45
  48.         say:("quarter")
  49.         say:("to")
  50.     elseif m%<30
  51.         saynum:(gen$(m%,2))
  52.         say:("past")
  53.     else
  54.         saynum:(gen$(60-m%,2))
  55.         say:("to")
  56.     endif
  57.     saynum:(gen$(h%,2))
  58.     if m%=0
  59.         say:("oclock")
  60.     endif
  61. ENDP
  62.