/*
  $VER: Jump2NextMarked.sfrx 1.0 (28.7.99)

This is an Arexx-Script for SimpleFind3

You can only start this script from SF3 and not from a shell.

Label : _Jmp2NextMarked
Action: EXECUTE PROGDIR:ARexx/Jump2NextMarked.sfrx MODE=AREXX
*/

options results

sfport = ADDRESS()

GET PUBSCREEN
sfPubScreen = result

GET SELENTRIES
selectedEntries = result
IF selectedEntries = 0 THEN DO
		'REQUEST BODY "no selected entries!" GADGETS "_Thanks"'
	EXIT
END

GET MARKERPOS			/* wo steht der Marker? */
SET ENTRYPOS result		/* nun den internen Counter dahin setzen! */

SET ENTRYPOS NEXTSELECTED
nextEntry = result
IF nextEntry = "-1" THEN DO
		'REQUEST BODY "no more selected entries!" GADGETS "_Thanks"'
		EXIT
END

SET MARKERPOS nextEntry