/******************************************************************************************************/ /* Online-Script f�r AmiTCP mit Arexx */ /* � by Martin Wolf / Eternity Hard & Software */ /* */ /* First Bit set: 22.10.1999 */ /* Last Bit set : 22.10.1999 */ /******************************************************************************************************/ OPTIONS RESULTS ADDRESS COMMAND counter_MW=0 DO UNTIL SHOW('P','AMITCP') /* Auf AmiTCP warten */ SIGNAL OFF ERROR 'WaitForPort AMITCP' SIGNAL ON ERROR IF counter_MW=3 THEN EXIT counter_MW=counter_MW+1 END 'SetEnv ToTDemo1:Data/TOT_ONLINE 0' miamiport = AMITCP /* ist auf jeden Fall der aktive Port */ ADDRESS (miamiport) DISCONNECT PPP EXIT