home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / afc / afc-dir / ciatimer_all.lha / CiaTimer_Examples.lha / Examples / CIATimer_Example1.e < prev   
Text File  |  1998-01-17  |  595b  |  37 lines
  1. /*
  2.  
  3.   $VER: CIATimer Example 1 - (C)Amiga Foundation Classes
  4.  
  5.   Written By: Fabio Rotondo (fsoft@intercom.it)
  6.  
  7.   This example shows the basys of CIATimer methods.
  8.  
  9. */
  10.  
  11. MODULE 'afc/ciatimer'
  12.  
  13. PROC main() HANDLE
  14.   DEF cia:PTR TO ciatimer
  15.  
  16.   NEW cia.ciatimer()
  17.  
  18.   WriteF('CIATimer Example.\nA message will be sent every 3 secs.\n')
  19.   WriteF('Hold down Left Mouse Button to end the demo.\n')
  20.  
  21.   cia.set(3,0)
  22.  
  23.   REPEAT
  24.     cia.start()
  25.     Wait(cia.signal())
  26.     cia.stop()
  27.     WriteF('Msg Arrived!\n')
  28.   UNTIL Mouse()
  29.  
  30.  
  31. EXCEPT DO
  32.   WriteF('CIATimer terminating...\n')
  33.   END cia
  34.   CleanUp(0)
  35. ENDPROC
  36.  
  37.