/* $VER: WWW v1.00 by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se
 *
 * IMPORTANT: You MUST have MOSAIC installed which you can find at
 *            aminet:???/???/???.lha
 */

htmlviewer = 'Mosaic:AMosaic-AmiTCP'

options results
parse arg www

call addlib('rexxreqtools.library',0,-30,0)
call addlib('rexxsupport.library',0,-30,0)

if ~show('P','AMOSAIC.1') then do
	say 'Loading Amosaic...'
	if ~exists(htmlviewer) then do ; say 'Did not find 'htmlviewer'...' ; exit ; end
	address command 'run >NIL: 'htmlviewer
	waitforport (AMOSAIC.1)
 	do until show('P', 'AMOSAIC.1'); delay(30) ; end
	end

address 'AMOSAIC.1'

if www = '?' | www = '' then do
	say 'WWW V1.00 by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se'
	say ''
	say 'USAGE: WWW [html document]'
	say ''
	say 'Example: WWW http:///example'
	say ''
	exit
	end

'jump url 'www

