home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / MEDIAPO3.DMS / in.adf / ARexx.lha / Timecode.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-08-25  |  360 b   |  17 lines
  1. /* Read the timecode example */
  2. /* MediaPoint needs to be set to timecode for this script!*/
  3.  
  4. ADDRESS 'MEDIAPOINT'
  5. options results
  6.  
  7. CURSOR OFF
  8.  
  9. DO I=1 TO 500
  10.   TCGET
  11.   hours   = TRUNC(result/1000000)
  12.   minutes = TRUNC(result/10000)
  13.   seconds = TRUNC(result/100)
  14.   frames  = result
  15.   say hours':'minutes-100*hours':'seconds-100*minutes':'result-100*seconds
  16. END
  17.