home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / timer_eg.amos / timer_eg.amosSourceCode
AMOS Source Code  |  1993-01-08  |  1KB  |  38 lines
  1. '                      TIMER COMMAND EXAMPLES
  2. '                          BY Jason Chan 
  3. '                          Dated 26/8/91 
  4. Do 
  5.    CHOOSE
  6. Loop 
  7. Procedure CHOOSE
  8.    Screen Open 0,640,256,2,Hires
  9.    Under On : Centre "TIMER COMMAND EXAMPLES BY Jason Chan" : Print : Print : Under Off 
  10.    Print " 1 >>>> Timer Until Time Specified By User"
  11.    Print " 2 >>>> Timer Until A Key Is Press"
  12.    Print " 3 >>>> Timer Until A Mouse Click" : Print 
  13.    Input "Which Example ? ";WE$
  14.    If WE$="1" Then Cls : CHECKTIMER
  15.    If WE$="2" Then Cls : HITAKEY
  16.    If WE$="3" Then Cls : MOUSCLIK
  17. End Proc
  18. Procedure CHECKTIMER
  19.  Locate 2,2 : Input "Wait how many seconds ? ";TIME2 : Cls : Timer=0
  20.    Do 
  21.       TIME1=Timer/50 : Locate 10,5 : Print TIME1 : Curs Off 
  22.       If TIME1=TIME2 Then Bell 20 : Led Off : Wait 5 : Led On : Exit 
  23.    Loop 
  24. End Proc
  25. Procedure HITAKEY
  26.    Timer=0
  27.    Do 
  28.       A$=Inkey$ : Locate 10,5 : TIME=Timer/50 : Print TIME : Curs Off 
  29.       If A$<>"" Then Bell 20 : Print "You waited";TIME;" seconds" : Wait Key : Exit 
  30.    Loop 
  31. End Proc
  32. Procedure MOUSCLIK
  33.    Timer=0
  34.    Do 
  35.       C=Mouse Click : Locate 10,5 : TIME=Timer/50 : Print TIME : Curs Off 
  36.       If C=1 or C=2 Then Bell 20 : Print "You waited";TIME;" seconds" : Wait 10 : Repeat : C=Mouse Click : Until C=1 or C=2 : Exit 
  37.    Loop 
  38. End Proc