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 "\r^Gライブラリ番号を選んでください (+ﾘﾀｰﾝ) ＞\r\r\r"
INPUT $3

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ＤＬのダウンロードを続けますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
LOOKKEY 60
 CASE "Y"
  GOTO L2
 CASE "y"
  GOTO L2
 CASE "N"
 CASE "n"
 CASE/TIMEOUT
FREE
END