/* 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
		ok=open('OnlineMiami','CON:60/100/150/22/OnlineMiami/cds')
		call writeln 'OnlineMiami','    Miami is'
		call writeln 'OnlineMiami','ALLREADY CONNECTED!!'
		ADDRESS "COMMAND" "wait 3"
	  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

	END

	IF ~SHOW('Ports','MIAMI.1') THEN DO
		ADDRESS 'COMMAND'
		'Run 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