home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS01.DMS / in.adf / Macros / OutLocator.rx < prev    next >
Encoding:
Text File  |  1994-11-26  |  413 b   |  21 lines
  1. /* OutLocator.rx */
  2.  
  3. Address MOVIESHOP
  4. Options RESULTS
  5.  
  6. GETTIMELINELOCATOR OUT
  7. If ~RC Then Do
  8.   If (RESULT >= 0) then CLEARTIMELINELOCATOR OUT
  9.   Else Do
  10.     GETTIMELINEFRAMEPOS
  11.     If RC Then Leave
  12.     OutLoc = RESULT
  13.     GETTIMELINELOCATOR IN
  14.     If RC Then Leave
  15.     InLoc = RESULT
  16.     If (InLoc < 0) Then InLoc = OutLoc
  17.     If (InLoc > OutLoc) Then DISPLAYBEEP
  18.     Else SETTIMELINELOCATOR OUT OutLoc
  19.   End
  20. End
  21.