/*
**      $Id: DICEHelp_Cursor.ttx,v 30.0 1994/06/10 18:05:15 dice Exp $
**
**      DICEHelp help system.  Script for Oxxi TurboText (tm).
**
**      Rexx script modeled after version by David Joiner
*/
OPTIONS RESULTS
           			                     
'GETLINE'
if (RC > 0) then do
	exit
end
searchline = RESULT


'GETCURSORPOS'
searchcol  = word( RESULT, 4 )


hostname = address()            /* Source TTX window */
portname = 'DICEHELP'           /* DICEHelp's port name */
tempname = 't:DICEHelp.temp'    /* Temporary file for passing clips */

if ~show('p',portname) then do
	address COMMAND 'RUN >NIL: <NIL: DICEHelp REXXSTARTUP'

	do i = 1 to 6
		if ~show('p',portname) then do
			address COMMAND 'wait 1'
		end
	end

	if ~show('p',portname) then do
	    'SetStatusBar "DICEHelp program not found!"'
            exit
	end
end

address value portname
Z searchcol searchline		/* Search for string: Z xx line */
if RC=0 then do
	refline   = RESULT
        refstring = SUBWORD( refline, 2 )

	address value hostname           /* Back to TTX */
        if WORD( refline, 1 ) = "E" then do
                'SetStatusBar' refstring
                exit
	end

        OPENDOC NAME refstring
	newport = RESULT		/* get the new editor's port name */
	if RC > 0 then do		/* if not there, then error       */
            'SetStatusBar' "Error opening" refstring
	    exit
	end
        address value newport           /* Address the new window */
        SETREADONLY

	exit
end
else do
    address value hostname
    'SetStatusBar' "Error code" RC "DICEHelp failed!"
end