home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / MISC / POWERUP / HOURLY.OPL next >
Encoding:
Text File  |  1994-12-02  |  851 b   |  35 lines
  1. PROC main:
  2.     local s&,ax%,bx%,t&,a%
  3.     PRINT "Psion Hourly Beep  ╕1995 PROTRONICS USA 404-351-1055"
  4.     PRINT "If POWERUP is running, Psion will shut back down all"
  5.     PRINT "by itself after beep. If not, press Y to set AutoOff"
  6.     PRINT "Press System to exit or press Psion-Esc to unload me"
  7.     dINIT 
  8.     dTEXT "","Set AutoOff=15 seconds?",2
  9.     dBUTTONS "Yes",%Y,"No",%N
  10.     REM Sets Auto Off to 15 seconds
  11.     IF DIALOG<>%n :call($188b,15) :ENDIF
  12.     call($138b)
  13.     call($198d,100,0)
  14.     gUPDATE
  15.     do
  16.     BEEP 4,600
  17.     BEEP 4,600
  18.     s&=(60-MINUTE)*60-SECOND+1
  19.     IF HOUR < 7 : s& = s&+(7-HOUR)*3600 :ENDIF
  20.     ax%=$0200
  21.     os($89,addr(ax%))
  22.     t&=unsig&:(ax%)*&10000 + unsig&:(bx%)
  23.     t&=t& + s&
  24.     a%=addr(t&)
  25.     call($0c89,0,peekw(uadd(a%,2)),peekw(a%))
  26.     until 0
  27. ENDP
  28.  
  29. PROC unsig&:(num%)
  30.     local ret&
  31.     ret&=num%
  32.     if num% < 0 :ret&=ret&+65536 :endif
  33.     return ret&
  34. ENDP
  35.