home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / musica / easyplayer / source / modsrc / timetest.e < prev    next >
Encoding:
Text File  |  1999-03-11  |  353 b   |  26 lines
  1. MODULE '*test','dos/dos'
  2.  
  3. PROC main()
  4. DEF timeobj:PTR TO time,hours,mins,secs
  5.  
  6.     NEW timeobj.time()
  7.  
  8.     timeobj.start()
  9.  
  10.     Wait(SIGBREAKF_CTRL_C)
  11.  
  12.     hours,mins,secs:=timeobj.stop()
  13.  
  14.     WriteF('\d \d \d\n',hours,mins,secs)
  15.  
  16.     timeobj.start()
  17.  
  18.     Wait(SIGBREAKF_CTRL_C)
  19.  
  20.     hours,mins,secs:=timeobj.stop()
  21.  
  22.     WriteF('\d \d \d\n',hours,mins,secs)
  23.  
  24.     END timeobj
  25. ENDPROC
  26.