home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Exec 5
/
CD_Magazyn_EXEC_nr_5.iso
/
Gry
/
ToTDemo.lha
/
talesdemo1
/
rexx
/
AmiTCPOffline.rexx
next >
Wrap
OS/2 REXX Batch file
|
1999-11-16
|
1KB
|
26 lines
/******************************************************************************************************/
/* 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