/******************************************************************************************************/
/* Online-Script für Genesis mit Arexx                                                                */
/* 	© by Martin Wolf / Eternity Hard & Software	                                              */
/*												      */
/*      First Bit set: 22.10.1999                                                                     */
/*      Last Bit set : 22.10.1999                                                                     */
/******************************************************************************************************/

OPTIONS RESULTS

ADDRESS COMMAND
	DO UNTIL SHOW('P','GENESIS')			/* Auf Genesis warten */
	  SIGNAL OFF ERROR
	  'WaitForPort GENESIS'
	  SIGNAL ON ERROR
	END
        genesisport = GENESIS				/* ist auf jeden Fall der aktive Port */

ADDRESS (genesisport)
	DISCONNECT PPP
	EXIT