home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Enigma Amiga Life 106
/
EnigmaAmiga106CD.iso
/
www
/
afc
/
afc-dir
/
ciatimer_examples.lha
/
Examples
/
CIATimer_Example1.e
< prev
Wrap
Text File
|
1998-01-17
|
595b
|
37 lines
/*
$VER: CIATimer Example 1 - (C)Amiga Foundation Classes
Written By: Fabio Rotondo (fsoft@intercom.it)
This example shows the basys of CIATimer methods.
*/
MODULE 'afc/ciatimer'
PROC main() HANDLE
DEF cia:PTR TO ciatimer
NEW cia.ciatimer()
WriteF('CIATimer Example.\nA message will be sent every 3 secs.\n')
WriteF('Hold down Left Mouse Button to end the demo.\n')
cia.set(3,0)
REPEAT
cia.start()
Wait(cia.signal())
cia.stop()
WriteF('Msg Arrived!\n')
UNTIL Mouse()
EXCEPT DO
WriteF('CIATimer terminating...\n')
END cia
CleanUp(0)
ENDPROC