FM Towns: Free Software Collection 5/FREESOFT.BIN/data/nifhand/fm.aut

Text File | 1992-08-19 | 6KB | 373 lines

;*************************************************************************
;あの、まぼろしの Ｏｈ！ FM ＴＯＷＮＳ NET に
;            アクセスするためのパイロット Ｖ０．１
;                        PBA02544 Hideaki YOKOO

;まずは、ムーンライトV1.81(NIFTY･FFMUSERにあり)を入手して下さい。
;ムーンライトに添付のマニュアルも(出来れば)読んでください。

;起動は   A:>ML FM↓  とするだけで結構です。

;＜ユーザ設定＞
            ;各自の環境に合わせて書き換えてください
$10="5087"                ;ＩＤ
$11="SECRET"                ;パスワード
$12="ＹＯＫＯ"                ;ログインネーム
$13="03-5488-1333"            ;Tel.1 都内の人は"03"を外してください
$14="03-3477-4221"            ;Tel.2
$15="ATE1M1Q0V1X3&P2\\N3\\V1\\Q2\\J0"    ;ﾓﾃﾞﾑｺﾏﾝﾄﾞ(各自の環境に合わせて下さい)

;＜今月のキーワード＞
;雑誌に載っているままに書いて下さい(自動的に変換して送信します)
;(ほんの)少し手抜きをしてありますので、万が一正しく変換されない
;ようでしたら、マニュアル等で調べてください (^_^;)

$1="D3"        ;これは1991年12月号の設定になっています
$2="C5"
$3="BA"
$4="26"
$5="D9"
$6="A5"
$7="CF"
$8="DD"

;*************************************************************************

%10=0
WHILE %10<8
%10=%10+1
$100=$[%10]
IF $100=="30"
$50="0"
ELSEIF $100=="31"
$50="1"
ELSEIF $100=="32"
$50="2"
ELSEIF $100=="33"
$50="3"
ELSEIF $100=="34"
$50="4"
ELSEIF $100=="35"
$50="5"
ELSEIF $100=="36"
$50="6"
ELSEIF $100=="37"
$50="7"
ELSEIF $100=="38"
$50="8"
ELSEIF $100=="39"
$50="9"

ELSEIF $100=="40"
$50="@"
ELSEIF $100=="41"
$50="A"
ELSEIF $100=="42"
$50="B"
ELSEIF $100=="43"
$50="C"
ELSEIF $100=="44"
$50="D"
ELSEIF $100=="45"
$50="E"
ELSEIF $100=="46"
$50="F"
ELSEIF $100=="47"
$50="G"
ELSEIF $100=="48"
$50="H"
ELSEIF $100=="49"
$50="I"
ELSEIF $100=="4A"
$50="J"
ELSEIF $100=="4B"
$50="K"
ELSEIF $100=="4C"
$50="L"
ELSEIF $100=="4D"
$50="M"
ELSEIF $100=="4E"
$50="N"
ELSEIF $100=="4F"
$50="O"
ELSEIF $100=="50"
$50="P"
ELSEIF $100=="51"
$50="Q"
ELSEIF $100=="52"
$50="R"
ELSEIF $100=="53"
$50="S"
ELSEIF $100=="54"
$50="T"
ELSEIF $100=="55"
$50="U"
ELSEIF $100=="56"
$50="V"
ELSEIF $100=="57"
$50="W"
ELSEIF $100=="58"
$50="X"
ELSEIF $100=="59"
$50="Y"
ELSEIF $100=="5A"
$50="Z"

ELSEIF $100=="61"
$50="a"
ELSEIF $100=="62"
$50="b"
ELSEIF $100=="63"
$50="c"
ELSEIF $100=="64"
$50="d"
ELSEIF $100=="65"
$50="e"
ELSEIF $100=="66"
$50="f"
ELSEIF $100=="67"
$50="g"
ELSEIF $100=="68"
$50="h"
ELSEIF $100=="69"
$50="i"
ELSEIF $100=="6A"
$50="j"
ELSEIF $100=="6B"
$50="k"
ELSEIF $100=="6C"
$50="l"
ELSEIF $100=="6D"
$50="m"
ELSEIF $100=="6E"
$50="n"
ELSEIF $100=="6F"
$50="o"
ELSEIF $100=="70"
$50="p"
ELSEIF $100=="71"
$50="q"
ELSEIF $100=="72"
$50="r"
ELSEIF $100=="73"
$50="s"
ELSEIF $100=="74"
$50="t"
ELSEIF $100=="75"
$50="u"
ELSEIF $100=="76"
$50="v"
ELSEIF $100=="77"
$50="w"
ELSEIF $100=="78"
$50="x"
ELSEIF $100=="79"
$50="y"
ELSEIF $100=="7A"
$50="z"

ELSEIF $100=="A1"
$50="｡"
ELSEIF $100=="A2"
$50="｢"
ELSEIF $100=="A3"
$50="｣"
ELSEIF $100=="A4"
$50="､"
ELSEIF $100=="A5"
$50="･"
ELSEIF $100=="A6"
$50="ｦ"
ELSEIF $100=="A7"
$50="ｧ"
ELSEIF $100=="A8"
$50="ｨ"
ELSEIF $100=="A9"
$50="ｩ"
ELSEIF $100=="AA"
$50="ｪ"
ELSEIF $100=="AB"
$50="ｫ"
ELSEIF $100=="AC"
$50="ｬ"
ELSEIF $100=="AD"
$50="ｭ"
ELSEIF $100=="AE"
$50="ｮ"
ELSEIF $100=="AF"
$50="ｯ"
ELSEIF $100=="B0"
$50="ｰ"

ELSEIF $100=="B1"
$50="ｱ"
ELSEIF $100=="B2"
$50="ｲ"
ELSEIF $100=="B3"
$50="ｳ"
ELSEIF $100=="B4"
$50="ｴ"
ELSEIF $100=="B5"
$50="ｵ"
ELSEIF $100=="B6"
$50="ｶ"
ELSEIF $100=="B7"
$50="ｷ"
ELSEIF $100=="B8"
$50="ｸ"
ELSEIF $100=="B9"
$50="ｹ"
ELSEIF $100=="BA"
$50="ｺ"
ELSEIF $100=="BB"
$50="ｻ"
ELSEIF $100=="BC"
$50="ｼ"
ELSEIF $100=="BD"
$50="ｽ"
ELSEIF $100=="BE"
$50="ｾ"
ELSEIF $100=="BF"
$50="ｿ"
ELSEIF $100=="C0"
$50="ﾀ"
ELSEIF $100=="C1"
$50="ﾁ"
ELSEIF $100=="C2"
$50="ﾂ"
ELSEIF $100=="C3"
$50="ﾃ"
ELSEIF $100=="C4"
$50="ﾄ"
ELSEIF $100=="C5"
$50="ﾅ"
ELSEIF $100=="C6"
$50="ﾆ"
ELSEIF $100=="C7"
$50="ﾇ"
ELSEIF $100=="C8"
$50="ﾈ"
ELSEIF $100=="C9"
$50="ﾉ"
ELSEIF $100=="CA"
$50="ﾊ"
ELSEIF $100=="CB"
$50="ﾋ"
ELSEIF $100=="CC"
$50="ﾌ"
ELSEIF $100=="CD"
$50="ﾍ"
ELSEIF $100=="CE"
$50="ﾎ"
ELSEIF $100=="CF"
$50="ﾏ"
ELSEIF $100=="D0"
$50="ﾐ"
ELSEIF $100=="D1"
$50="ﾑ"
ELSEIF $100=="D2"
$50="ﾒ"
ELSEIF $100=="D3"
$50="ﾓ"
ELSEIF $100=="D4"
$50="ﾔ"
ELSEIF $100=="D5"
$50="ﾕ"
ELSEIF $100=="D6"
$50="ﾖ"
ELSEIF $100=="D7"
$50="ﾗ"
ELSEIF $100=="D8"
$50="ﾘ"
ELSEIF $100=="D9"
$50="ﾙ"
ELSEIF $100=="DA"
$50="ﾚ"
ELSEIF $100=="DB"
$50="ﾛ"
ELSEIF $100=="DC"
$50="ﾜ"
ELSEIF $100=="DD"
$50="ﾝ"
ELSEIF $100=="DE"
$50="ﾞ"
ELSEIF $100=="DF"
$50="ﾟ"

ELSEIF $100=="26"
$50="&"

ELSE
ECHO "\r 定義されていないコードが指定されました。 "
ECHO "\r 設定ミスによるものか、さもなければ、この "
ECHO "\r プログラムの作者の手抜きによるものです。 "
$50="？"
ENDIF

$[%10]=$50
$50=""
ENDWHILE

$9="$1$2$3$4$5$6$7$8"
ECHO "\r\r^G 今月のキーワード： $9 \r"

%9=0
WHILE %9<8
%9=%9+1
IF $[%9]=="？"
 ECHO "\rログインを中止します\r"
 END
ENDIF
ENDWHILE

%1=month()
%2=day()

IF !cts()
 ECHO "^G\r ＜ モデムを接続してください ＞ \r"
ELSE
 ECHO "\r^GＯｈ！ FM ＴＯＷＮＳ NET にアクセスします\r"
ENDIF

CMD D "FM%1_%2.LOG"
SEND "ATZ\r",1
SEND "$15\r",1

LABEL TEL1
SEND "ATD$13\r",1
LOOK
 CASE "CONNECT",30
  GOTO LOGIN
 CASE "BUSY"
 CASE/TIMEOUT
FREE

LABEL TEL2
CMD O
SEND "ATD$14\r",1
LOOK
 CASE "CONNECT",30
  GOTO LOGIN
 CASE "BUSY"
 CASE/TIMEOUT
FREE

ECHO "\r^G 回線がふさがっています。またアクセスしてくださいね \r"

LABEL LOGIN
WAIT "User ID: FM-"
SEND "$10\r",1
WAIT "Password:"
SEND "$11\r",1
LOOK
CASE "^J前回終了"
CASE "Login Name:"
 SEND "$12\r",1
FREE

WAIT "^J今月のキーワードを入力して"
WAIT "Key Word :"
SEND "$1$2$3$4$5$6$7$8\r",1
END