home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rxcomm16.zip
/
samples
/
nifLogof.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-02-09
|
1KB
|
55 lines
/**
* REXX Communication Control Function Library Ver.1.1
* copyright 1998-1999, Naga(Kazuo Adachi)
* mailto:nagaw@ibm.net
* mailto:GDB00421@nifty.ne.jp
*
* $Id$
*
* $Log$
*/
ARG nifUser, nifPass
CALL RxFuncAdd 'RxCommLoadFuncs','RxComm','RxCommLoadFuncs'
CALL RxCommLoadFuncs
/*--------------------------------------------------------*/
/**
* Logoff NIFTY-Serve
*/
rc = RxCommWrite( 'OFF' || '0D'x )
DO UNTIL POS( 'OK' , rc ) = 1 |,
POS( 'NO CARRIER', rc ) = 1
rc = RxCommRead()
/* NIFTYé╚éτé┼é═é╠Åêù¥é╛é╚éƒ(^_^; */
DO WHILE POS( '00'x, rc ) > 0
rc = DELSTR( rc, POS( '00'x, rc ), 1 )
END
CALL CHAROUT , rc
IF POS( 'DCD', RxCommSignal() ) = 0 THEN LEAVE
SELECT
WHEN POS( 'HOST NAME?', rc ) = 1
THEN
DO
DO UNTIL POS( '*', rc ) > 0
rc = RxCommRead()
CALL CHAROUT , rc
END
ok = RxCommWrite( 'OFF' || '0D'x )
LEAVE
END
WHEN POS( '01+', rc ) > 0
THEN
DO
CALL rxcDrop
LEAVE
END
OTHERWISE
END
END
RETURN