ECHO "\rこれよりＢＢＳへのアップロードを行います"
IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
 $1="Q"
ENDIF
IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
 $1="Q"
 IF ($60=="" || $61=="") || $62==""
  ECHO "\r^G"
  ECHO "UBBS.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  GOTO E
 ENDIF
 GOTO B2
ENDIF

LABEL B1
IF $60=="1"
 $920="1. コンタクトボード"
ELSEIF $60=="2"
 $920="2. フリートーク"
ELSEIF $60=="3"
 $920="3. 売ります／あげます"
ELSEIF $60=="4"
 $920="4. 買います／譲ってください"
ELSEIF $60=="5"
 $920="5. 教えてください／教えます"
ELSEIF $60=="6"
 $920="6. スポーツ／健康"
ELSEIF $60=="7"
 $920="7. 家庭／教育"
ELSEIF $60=="8"
 $920="8. ふるさとボード"
ELSE
 $920="ボード番号が正しく指定されていません"
ENDIF

ECHO "\r\r設定は以下のようになっています\r"
ECHO "\r  1 ボード名      ：$920"
ECHO "\r  2 送信ファイル名：$61"
ECHO "\r  3 題  名        ：$62\r"
ECHO "\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
LOOKKEY 60
 CASE "Y"
  GOTO B2
 CASE "y"
  GOTO B2
 CASE "N"
 CASE "n"
 CASE "5"
  $61=="DEL"
  GOTO B2
 CASE "E"
  GOTO E
 CASE "e"
  GOTO E
 CASE/TIMEOUT
  GOTO E
FREE

ECHO "\r^G訂正したいものを番号で選んで下さい (1〜3) (ﾘﾀｰﾝｷｰ不要)\r"
LOOKKEY 60
 CASE "1"
  ECHO "\r   1. コンタクトボード             2. フリートーク"
  ECHO "\r   3. 売ります／あげます           4. 買います／譲ってください"
  ECHO "\r   5. 教えてください／教えます     6. スポーツ／健康"
  ECHO "\r   7. 家庭／教育                   8. ふるさとボード\r"
  ECHO "\r^G 正しいボード番号を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  INPUT $60
 CASE "2"
  ECHO "\r正しい送信ファイル名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  INPUT $61
 CASE "3"
  ECHO "\r正しい題名を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  INPUT $62
 CASE/TIMEOUT
  GOTO E
FREE
GOTO B1

LABEL B2
SEND "BBS\r"
WAIT "^J＞"
SEND "$60\r",1
LOOK
 CASE "^J＞"
  SEND "SET MENU OFF\r",1
  WAIT "^JBBS>"
 CASE "^JBBS>"
FREE

IF $61=="DEL" || $61=="del"
 SEND "5\r",1
 IF $1=="Q"
  LOOK
   CASE "^JBBS>"
   CASE "^J＞"
    SEND "1\r",1
    WAIT "^J："
    SEND "1\r",1
    WAIT "^JBBS>"
  FREE
  GOTO E
 ENDIF
 LOOK
  CASE "^JBBS>"
  CASE "^J＞"
   ECHO "^G削除したいものを番号で選んで下さい (+ﾘﾀｰﾝ)＞"
   LOOK 30
    CASE "^J："
    CASE/TIMEOUT
     SEND "1\r"
     WAIT "^J："
   FREE
   SEND "1\r",1
   WAIT "^JBBS>"
 FREE
 GOTO E
ENDIF

SEND "2\r",1
WAIT "^J本文"
WAIT "\r"
CMD U "$61"
WAIT "^J修正 (1:修正"
WAIT "^J："
SEND "2\r",1
WAIT "^J題名"
WAIT "^J："
SEND "$62\r",1
WAIT "^J確認"
WAIT "^J："
SEND "1\r",1
WAIT "^J検索キーの選択"
WAIT "^J："
IF $1=="Q"
 SEND "1\r",1
ELSE
 ECHO "^Gユーザが選んで下さい (+ﾘﾀｰﾝ)＞"
ENDIF

LOOK 30
 CASE "^J："
 CASE/TIMEOUT
  SEND "1\r"
  WAIT "^J："
FREE

SEND "1\r",1
WAIT "^J登録"
WAIT "^J："
SEND "1\r",1
WAIT "^JBBS>"

LABEL E
$1=$60=$61=$62=""
END