home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 5
/
FREESOFT.BIN
/
data
/
nifhand
/
l.aut
< prev
next >
Wrap
Text File
|
1992-08-19
|
3KB
|
174 lines
IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
$1="Q"
ENDIF
IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
ECHO "\r^G
"
ECHO "L.AUT:フルオートモードではデータライブラリはスキップされます\r"
END
ENDIF
LABEL L2
SEND "LIB\r",1
LOOK
CASE "本フォーラムでは"
LOOK
CASE "^J>"
CASE ">"
FREE
END
CASE "^J>"
FREE
ECHO "^G
ライブラリ番号を選んでください (+リターン) >
"
$3=input()
SEND "$3\r",1
LOOK
CASE "コマンドを入力して"
LOOK
CASE "^J>"
CASE ">"
FREE
GOTO L2
CASE "^JLIB>"
FREE
SEND "SET PAGE ON\r",1
WAIT "^JLIB>"
CMD D "$900:\\$60\\LIB$3.DAT"
SEND "1\r",1
LABEL LS
LOOK
CASE "^J-該当するデータは"
WAIT "^JLIB>"
CMD D
GOTO L1
CASE "^J>"
CASE "^Jmore>"
ECHO "^G
もう少し探してみますか? (Y/N) (リターンキー不要) >
"
LOOKKEY 60
CASE "Y"
SEND "\r",1
GOTO LS
CASE "y"
SEND "\r",1
GOTO LS
CASE "N"
CASE "n"
CASE/TIMEOUT
FREE
FREE
CMD D ;"LIB$3.DAT" のクローズ
ECHO "\r^G
参照したいものがありますか? (Y/N) (リターンキー不要) >
"
LOOKKEY 60
CASE "Y"
CASE "y"
CASE "N"
GOTO L1
CASE "n"
GOTO L1
CASE/TIMEOUT
GOTO L1
FREE
SEND "SET PAGE OFF\r"
LOOK
CASE "^J>"
CASE ">"
FREE
ECHO "^G
ではその番号を入力して下さい\r"
ECHO " 複数指定するときの例:1,3,5 1-3,5 (+リターン) >"
CMD D "$900:\\$60\\LIB$943.LOG"
LABEL L3
LOOK
CASE "コマンドを入力して"
WAIT "^J>"
ECHO "^G
正しく入力すれば立ち直ります >
"
GOTO L3
CASE "^JLIB>"
CMD D ;ここがルーチンの終点
GOTO L1
CASE "^Jデータ"
SCAN ":" $1 "." $4 " ",3
WAIT "^J処理 (1:ダウンロード"
WAIT "^J>"
ECHO "^G
それでは決めて下さい (+リターン) >
"
LOOK
CASE "1\r"
GOTO L4
CASE "2\r"
WAIT "^J改行キーを押して下さい"
WAIT "^J>"
SEND "\r",1
CASE "S\r"
CASE "s\r"
CASE "E\r"
CASE "e\r"
FREE
GOTO L3
FREE
LABEL L4
LOOK
CASE "^Jプロトコル (1:XMODEM 2:無手順"
WAIT "^J:"
SEND "3\r",1
CASE "^Jプロトコル (1:XMODEM 2:BPLUS"
WAIT "^J:"
SEND "2\r",1
FREE
WAIT "^Jファイル名 (改行のみ"
WAIT "^J:"
ECHO "^G
マクロが取得したダウンロード名:<< $1.$4 >>
\r"
ECHO "
これででいいですか? (Y/N) (E:ダウンロード中止) (リターンキー不要) >
"
LOOKKEY 60
CASE "Y"
SEND "$1.$4\r",1
CASE "y"
SEND "$1.$4\r",1
CASE "N"
ECHO "\r^G
ファイル名を入力して下さい (+リターン):
"
CASE "n"
ECHO "\r^G
ファイル名を入力して下さい (+リターン):
"
CASE "E"
GOTO L5
CASE "e"
GOTO L5
CASE/TIMEOUT
GOTO L5
FREE
WAIT "-ダウンロード開始-"
WAIT ""
CMD ! "B.BAT"
GOTO L3
LABEL L5
SEND "\r"
CMD D
ECHO "^G
コノヤロー! 世話焼かすんじゃねえよ!
\r"
WAIT "^Jプロトコル (1:XMODEM"
WAIT "^J:"
SEND "E\r",1
WAIT "^J処理 (1:ダウンロード"
WAIT "^J>"
LABEL L1
ECHO "\r^G
DLのダウンロードを続けますか? (Y/N) (リターンキー不要) >
"
LOOKKEY 60
CASE "Y"
GOTO L2
CASE "y"
GOTO L2
CASE "N"
CASE "n"
CASE/TIMEOUT
FREE
END