;NIFTY-Serve にオートログインするマクロです

$1="NIFTY-Serve FENICS-ROAD2 高崎"	;ﾒｯｾｰｼﾞ
$2="ATZ"				;ﾓﾃﾞﾑの初期化(たいていは変更不要)
$3="ATE1M1Q0V1X3&P2\\N3\\V1\\Q3\\J0"	;これはMNPﾓﾃﾞﾑの時の設定の例です
	;詳しくはMODEM.DOCまたはﾓﾃﾞﾑのﾏﾆｭｱﾙを
$4="ATD278955"	;最寄りのｱｸｾｽﾎﾟｲﾝﾄのTel (ROAD1/2 両方に対応)
$5="PBA02544"	;ID
$6="########"	;ﾊﾟｽﾜｰﾄﾞ

; ここから下は書換え不要
CMD S 4800 B-8 P-N X-ON
CMD K S
CMD E F
CMD K 0
%2=month()
%3=day()
%4=hour()
IF cts()==0
 ECHO "\r^Gモデムを接続してください\r"
ENDIF
IF cd()==1
 ECHO "\r^G回線がつながっています\r"
ENDIF

LABEL ACC1
ECHO "   $1   \r"
SEND "$2\r",1
WAIT "OK",3
SEND "$3\r",1
WAIT "OK",3
SEND "$4\r",1

LOOK 30
 CASE "CONNECT"
 CASE "BUSY"
  CMD O
  WAIT "N",3
  ECHO "\r^G  再ダイヤルしてみます  \r"
  GOTO ACC1
 CASE/TIMEOUT
  CMD O
  WAIT "N",3
  ECHO "\r^G  再ダイヤルしてみます  \r"
  GOTO ACC1
FREE

SEND "@P\r+",2
LOOK
 CASE "ERR"
  SEND ".00+\r",2
 CASE "^J*"
  SEND "C NIF\r",1
FREE

WAIT "->"
SEND "SVC\r",1
WAIT "->"
SEND "$5\r",1
WAIT "->"
SEND "$6\r",1
CMD D "%2-%3-%4.LOG"

WAIT "^J　ご利用誠にありがとうございました"
CMD D
END