/* Create Amiga Guide Links (to Nodes) v1.01, for Wordworth v4SE by Ryan Morse.
$VER: AmigaGuide_Link_Node_Command 1.0 (10/12/95)

This script will create links for Amiga Guide documents. Write your document (see the conditions of usage below), and run this script to create the links.

USAGE:  This script uses the Find requester to create the links. Type the Node that you want to link, then type in the word that will provide the link. The Find requester will then flag each word in turn.

NOTE:  For this script to work properly, write in the full name of the node that you want to link (without the node codes), otherwise the link will not work.

ADVANTAGES:  1) You get to use your favourite word-processor, 2) It avoids repetitive and boring typing, 3) It methodically allows you to find words that need to be linked.

DOWNFALLS:  1) You have to have a clear idea of the text you want to link, 2) It only supports one link - to create more links you have to use this script again, 3) It only selects one word as the link.

NOTE:  I have not used the Find Change command, because you may not want to link every occurrence. This is the best method. */

/* Select Node for Link */
REQUESTRESPONSE PROMPT 'Use the FIND requester to select the NODE for Link. THIS MUST EXIST!'
/* If user cancels requester then stop script */
IF RC>0 THEN DO
	REQUESTNOTIFY 'AREXX MACRO CANCELLED.'
	EXIT
	END
/* Set search parameters */
POSITION SOF
FIND
/* Copy Node name */
COPY

/* Select text for Link (to Node) */
REQUESTRESPONSE PROMPT 'Use the FIND requester to select the TEXT, for Link to the Node. THIS MUST EXIST!'
/* If user cancels requester then stop script */
IF RC>0 THEN DO
	REQUESTNOTIFY 'AREXX MACRO CANCELLED.'
	EXIT
	END
/* Set search parameters */
POSITION SOF
FIND

/* Deselect text at start of word */
CURSOR LEFT
/* Insert Node start */
TEXT '@{" '
/* Go to end of word */
POSITION EOW
/* Insert Link command */
TEXT '" Link '
/* Paste Node name */
PASTE
/* Inset Node end */
TEXT '} '

/* Notify user */
REQUESTNOTIFY 'Text Link created.'