home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / diskmags / scripts&guides / startrek / trx / vcr.rexx < prev   
OS/2 REXX Batch file  |  1995-07-31  |  1KB  |  51 lines
  1. /* 
  2.  TAPE CUEING SCRIPT USING RC-10_REXX PORT - - SURE HOPE IT WORKS
  3.  
  4. ** This is an example of how to use Trek-The Guide for cueing up
  5. ** your favorite episodes. It uses the InfraRexxDaemon as its VCR controller
  6. ** and also assumes your controlling a VCR capable of doing a 'Time Search'
  7. ** such as a medium to high end Panasonic VCR does. The format and arguments
  8. ** are as follows:  'rx VCR.rexx 016 02 1 4 6'
  9. ** 016 is the tape number
  10. ** 02 is the cut number
  11. ** 1 is the the hour unit
  12. ** 4 is the tens of minutes unit
  13. ** 6 is in the ones unit
  14. ** 
  15. ** so the time to search in this case is 1 hour 46 minutes.
  16. ** NOTE: See InfraRexx docs for details on that end.
  17. */
  18.  
  19. if ~show('L','rexxarplib.library') then
  20.     call addlib('rexxarplib.library',0,-30)
  21.  
  22. /* tn is tape number, cn is tape cut number c1, c2, & c3 are the times ie 2:34
  23. ** written as 2 3 4 */
  24.  
  25. arg tn cn c1 c2 c3 .
  26.  
  27. request = Request(200, 200, 'Please insert Tape #'tn '\and rewind to the beginning.\ \   CLICK OKAY WHEN READY.\',, Okay, Cancel, TREKGUIDE)
  28.  
  29. if request = OKAY THEN DO
  30. address INFRAREXX
  31.  
  32. address INFRAREXX
  33. address INFRAREXX VID_TIME_SEARCH
  34. call delay(20)
  35.  
  36. address INFRAREXX 'VID_'c1
  37. call delay(5)
  38.  
  39. address INFRAREXX 'VID_'c2
  40. call delay(5)
  41.  
  42. address INFRAREXX 'VID_'c3
  43. call delay(5)
  44.  
  45. address INFRAREXX VID_FAST_FORWARD
  46.  
  47. /*address command 'run c:echo >speak:' "now cueing tape number" tn " to cut number" cn */
  48. call = Request(200, 200, 'Cueing tape number 'TN' to cut 'cn,, Okay,, TREKGUIDE)
  49. END
  50.  
  51.