home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / utilities / dirscanner / rexx / jump2marked.dsrx < prev    next >
Text File  |  2000-05-30  |  545b  |  30 lines
  1. /*
  2.    $VER:Jump2Marked.dsrx 1.0 (30.5.00) Copyright (c) Nils Görs
  3.  
  4.    bind this script as follows:
  5.    Title: Jump2Next sel                     Title: Jump2prev sel
  6.     Path: Jump2Marked.dsrx                   Path: Rexx/Jump2Marked.dsrx PREV
  7. */
  8.  
  9. options results
  10. PARSE ARG args
  11.  
  12. DSPort = SUBWORD(args,WORDS(args))
  13.  
  14. IF WORDS(args) > 1 THEN DO
  15.     direction = WORD(args,1)
  16.     direction = UPPER(direction)
  17. END
  18.  
  19. address value DSPort
  20.  
  21. SET LOCKGUI 1
  22.  
  23.  
  24. IF direction = "PREV" THEN direction = PREVSEL
  25.         ELSE direction = NEXTSEL
  26.  
  27. GOTO direction
  28.  
  29. SET LOCKGUI 0
  30.