/* OnlineMiami Sören Forsberg 1998 */
/*  */
OPTIONS RESULTS


	IF SHOW('Ports','MIAMI.1') THEN DO
	  ADDRESS 'MIAMI.1' 
	  'ISONLINE'
	  result=rc
	  IF result=1 THEN DO
		ADDRESS "COMMAND" 'sys:rexxc/rx ibrowse:rexx/offlinemiami.ibrx'
		EXIT
	  END 
	  'ISONLINE'
	  result=rc
	  IF result=0 THEN DO
	  IF EXISTS('ibrowse:rexx/onlinewin.ibrx') THEN ADDRESS "COMMAND" 'run sys:rexxc/rx ibrowse:rexx/onlinewin.ibrx'
	  'ONLINE'
	  END
	 EXIT
	END

	IF ~SHOW('Ports','MIAMI.1') THEN DO
		ADDRESS 'COMMAND'
		'Run >NIL: MIAMI:Miami'
		'SYS:RexxC/WaitForPort MIAMI.1'
		IF EXISTS('ibrowse:rexx/onlinewin.ibrx') THEN ADDRESS "COMMAND" 'run sys:rexxc/rx ibrowse:rexx/onlinewin.ibrx'
	END


EXIT