home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / EX_TIMER.OPL < prev    next >
Text File  |  1992-08-27  |  676b  |  38 lines
  1. PROC timer:
  2.     LOCAL min&,sec&,secs&,i%
  3.     dINIT "Countdown timer"
  4.     dLONG min&,"Minutes",0,&7FFFFFFF/60-1
  5.     dLONG sec&,"Seconds",1,59
  6.     dBUTTONS "Cancel",-27,"Start",13
  7.     IF DIALOG=13
  8.         STATUSWIN ON
  9.         SCREEN 30,9,1,1
  10.         gSETWIN 0,0,179,79
  11.         secs&=sec&+60*min&
  12.         WHILE secs&
  13.             PAUSE -20
  14.             REM a key gets us out
  15.             IF KEY
  16.                 RETURN
  17.             ENDIF
  18.             secs&=secs&-1
  19.             AT 13,4 :PRINT GEN$(secs&/60,-2);"m"
  20.             AT 17,4 :PRINT GEN$(mod&:(secs&,int(60)),-2);"s"
  21.         ENDWH
  22.         DO
  23.             BEEP 5,300
  24.             PAUSE 10
  25.             IF KEY :BREAK :ENDIF
  26.              i%=i%+1
  27.         UNTIL i%=10
  28.     ENDIF
  29. ENDP
  30.  
  31.  
  32.  
  33. PROC mod&:(a&,b&)
  34.     REM modulo function
  35.     REM computes (a&)mod(b&)
  36.     RETURN a&-(a&/b&)*b&
  37. ENDP
  38.