home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 1662 / TIMER.RS_ / TIMER.RS
Text File  |  1993-10-07  |  437b  |  28 lines
  1. :Begin:
  2. Input(%1)"Enter timer duration: (in seconds)"
  3.  
  4. :TimeIt
  5. Status "Waiting %1 seconds..."
  6. Wait(%1)
  7.  
  8. Status "Time is up!"
  9. %2=0
  10. :Repeat:
  11. Beep
  12. %2=+1
  13. wait(0.1)
  14. If %2="20" Then Goto Skip
  15. Goto Repeat
  16.  
  17. :Skip:
  18. Status "Time is up!"
  19. wait(1)
  20. List(%3)"Repeat with same time|Enter new time|Quit"
  21. If %3="-1" then goto Quit
  22. If %3="0" then goto TimeIt
  23. If %3="1" then goto Begin
  24. If %3="2" then goto Quit
  25.  
  26. :Quit:
  27. Status OFF
  28.