home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / ddl.aut < prev    next >
Text File  |  1992-08-19  |  6KB  |  360 lines
  1. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  2.  IF ($60!="" && $61!="") && ($62!="" && $63!="")
  3.   $2="A"
  4.   GOTO T
  5.  ELSE
  6.   ECHO "\r^G"
  7.   ECHO "DDL.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  8.   GOTO E
  9.  ENDIF
  10. ENDIF
  11.  
  12. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  13.  IF $64=="F" || $64=="f"
  14.   GOTO DDL
  15.  ELSE
  16.   GOTO T
  17.  ENDIF
  18. ENDIF
  19.  
  20. LABEL H1
  21. ECHO "\rこの DDL.AUT は初期設定が全くなされていなくても実行可能ですが"
  22. ECHO "\r設定内容は以下のようになっています^G"
  23. IF $64=="F" || $64=="f"
  24. ECHO " [ 複数指定 ON ]"
  25. ENDIF
  26. ECHO "\r\r  1.フォーラム名  ：$60"
  27. ECHO "\r  2.ライブラリ番号：$61"
  28. ECHO "\r  3.データ番号    ：$62"
  29. ECHO "\r  4.ダウンロード名：$63\r"
  30. ECHO "\r以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
  31.  
  32. LOOKKEY 60
  33.  CASE "Y"
  34.   IF $64=="F" || $64=="f"
  35.    GOTO DDL
  36.   ELSE
  37.    GOTO T
  38.   ENDIF
  39.  CASE "y"
  40.   IF $64=="F" || $64=="f"
  41.    GOTO DDL
  42.   ELSE
  43.    GOTO T
  44.   ENDIF
  45.  CASE "N"
  46.  CASE "n"
  47.  CASE "E"
  48.   GOTO E
  49.  CASE "e"
  50.   GOTO E
  51.  CASE/TIMEOUT
  52.   GOTO E
  53. FREE
  54.  
  55. ECHO "\r^G訂正したいものを番号で選んでください (1～4) (ﾘﾀｰﾝｷｰ不要)\r"
  56. LOOKKEY 60
  57.  CASE "1"
  58.   ECHO "\r正しいフォーラム名を入力して下さい (+ﾘﾀｰﾝ) ＞"
  59.   $60=input()
  60.   GOTO H1
  61.  CASE "2"
  62.   ECHO "\r正しいライブラリ番号を入力して下さい (+ﾘﾀｰﾝ) ＞"
  63.   $61=input()
  64.   GOTO H1
  65.  CASE "3"
  66.   ECHO "\r正しいデータ番号を入力して下さい (+ﾘﾀｰﾝ) ＞"
  67.   $62=input()
  68.   GOTO H1
  69.  CASE "4"
  70.   ECHO "\r正しいダウンロード名を入力して下さい (+ﾘﾀｰﾝ) ＞"
  71.   $63=input()
  72.   GOTO H1
  73.  CASE/TIMEOUT
  74.   GOTO E
  75. FREE
  76.  
  77. LABEL T
  78. IF ($60!="" && $61!="") && $62!=""
  79.  DO F
  80.  IF $200=="A"
  81.   GOTO E
  82.  ENDIF
  83.  SEND "LIB $61\r",1
  84.  WAIT "^JLIB>"
  85.  SEND "SET PAGE OFF\r",1
  86.  WAIT "^JLIB>"
  87.  CMD D "$900:\\$60\\LIB$943.LOG"
  88.  SEND "DOW $62 PROT:BPL\r",1
  89.  LOOK
  90.  CASE "^J－該当する"
  91.   WAIT "^JLIB>"
  92.   GOTO L1
  93.  CASE "^Jデータ"
  94.   SCAN "：" $10 "." $4 " ",5
  95.  FREE
  96.  WAIT "^J項目 (1:OK  2:NG"
  97.  WAIT "^J："
  98.  CMD D
  99.  IF $2!="A"
  100.   ECHO "^Gダウンロードしますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  101.   LOOKKEY 60
  102.    CASE "Y"
  103.    CASE "y"
  104.    CASE "N"
  105.     SEND "E\r",1
  106.     WAIT "^JLIB>"
  107.     GOTO L1
  108.    CASE "n"
  109.     SEND "E\r",1
  110.     WAIT "^JLIB>"
  111.     GOTO L1
  112.    CASE/TIMEOUT
  113.     SEND "E\r",1
  114.     WAIT "^JLIB>"
  115.     GOTO E
  116.   FREE
  117.  ENDIF
  118.  SEND "1\r"
  119.  WAIT "^J："
  120.  IF $63==""
  121.   ECHO "^Gマクロが取得したダウンロード名：< $10.$4 >\r"
  122.   ECHO "  これでいいですか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r\r\r"
  123.   LOOKKEY 60
  124.    CASE "Y"
  125.     $63="$10.$4"
  126.    CASE "y"
  127.     $63="$10.$4"
  128.    CASE "N"
  129.     $63=input()
  130.    CASE "n"
  131.     $63=input()
  132.    CASE/TIMEOUT
  133.     $63="$10.$4"
  134.   FREE
  135.  ENDIF
  136.  SEND "$63\r",1
  137.  $63=""
  138.  WAIT "－ダウンロード開始－"
  139.  WAIT ""
  140.  CMD ! "B.BAT"
  141.  WAIT "^JLIB>"
  142.  GOTO E
  143. ENDIF
  144.  
  145. LABEL DDL
  146. IF $60==""
  147.  ECHO "\r^Gフォーラム名を指定して下さい (例：FGALAP) (+ﾘﾀｰﾝ) ＞"
  148.  $60=input()
  149. ENDIF
  150. DO F
  151. IF $200=="A"
  152.  GOTO L1
  153. ENDIF
  154.  
  155. LABEL DD1
  156. SEND "LIB\r",1
  157. LOOK
  158.  CASE "本フォーラムでは"
  159.   LOOK
  160.    CASE "^J＞"
  161.    CASE ">"
  162.   FREE
  163.   END
  164.  CASE "^J＞"
  165. FREE
  166.  
  167. LABEL DD2
  168. IF $61==""
  169.  ECHO "^GＤＬの番号を選んで下さい (+ﾘﾀｰﾝ) ＞"
  170.  $61=input()
  171. ENDIF
  172. SEND "$61\r",1
  173.  
  174. LOOK
  175.  CASE "^JLIB>"
  176.   SEND "SET PAGE ON\r",1
  177.   WAIT "^JLIB>"
  178.   CMD D "$900:\\$60\\LIB$61.DAT"
  179.   SEND "1\r",1
  180.  CASE "コマンドを入力して"
  181.   WAIT "^J＞"
  182.   $61=""
  183.   GOTO DD2
  184. FREE
  185.  
  186. LABEL DD3
  187. LOOK
  188. CASE "^Jmore>"
  189.  IF $62!=""
  190.   CMD D
  191.   SEND "SET PAGE OFF\r",1
  192.   WAIT "^Jmore>"
  193.   SEND "$62\r",1
  194.   GOTO J1
  195.  ENDIF
  196.  ECHO "^Gもっと探してみますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  197.  LOOKKEY 60
  198.   CASE "Y"
  199.    SEND "\r"
  200.    GOTO DD3
  201.   CASE "y"
  202.    SEND "\r"
  203.    GOTO DD3
  204.   CASE "N"
  205.   CASE "n"
  206.   CASE/TIMEOUT
  207.  FREE
  208. CASE "^J＞"
  209.  IF $62!=""
  210.    CMD D
  211.    SEND "SET PAGE OFF\r",1
  212.    WAIT "^J＞"
  213.    SEND "$62\r",1
  214.    GOTO J1
  215.  ENDIF
  216. FREE
  217.  
  218. ECHO "\r^G参照したいものがありますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  219. CMD D
  220. LOOKKEY 60
  221.  CASE "Y"
  222.  CASE "y"
  223.  CASE "N"
  224.   GOTO L1
  225.  CASE "n"
  226.   GOTO L1
  227.  CASE/TIMEOUT
  228.   GOTO L1
  229. FREE
  230.  
  231. SEND "SET PAGE OFF\r",1
  232. LOOK
  233.  CASE ">"
  234.  CASE "^J＞"
  235. FREE
  236.  
  237. ECHO "^Gﾀﾞｳﾝﾛｰﾄﾞしたいものの番号を入力して下さい\r"
  238. ECHO "    複数選択する時は 1,3,5  1-3,6 のように (+ﾘﾀｰﾝ) ＞"
  239.  
  240. LABEL J1
  241. CMD D "$900:\\$60\\LIB$943.LOG"
  242.  
  243. LABEL DD4
  244. LOOK
  245. CASE "^Jデータ"
  246.    SCAN "：" $10 "." $4 " ",4
  247.    WAIT "^J処理 (1:ダウンロード"
  248.    WAIT "^J＞"
  249.    IF $63!=""
  250.     SEND "1\r",1
  251.    ELSE
  252.     ECHO "^Gそれでは決めて下さい (+ﾘﾀｰﾝ) ＞"
  253.     LOOK
  254.      CASE "1\r"
  255.       GOTO DD5
  256.      CASE "2\r"
  257.       WAIT "^J改行キーを押して下さい"
  258.       WAIT "^J＞"
  259.       SEND "\r",1
  260.      CASE "S\r"
  261.      CASE "s\r"
  262.      CASE "E\r"
  263.      CASE "e\r"
  264.     FREE
  265.      GOTO DD4
  266.    ENDIF
  267. CASE "コマンドを入力して"
  268.   WAIT "^J＞"
  269.   ECHO " 正しく入力すれば立ち直ります ＞"
  270.   GOTO DD4
  271. CASE "^JLIB>"
  272.   CMD D            ;ここでループを抜ける
  273.   GOTO L1
  274. FREE
  275.  
  276. LABEL DD5
  277. LOOK
  278.  CASE "^Jプロトコル (1:XMODEM  2:無手順"
  279.   WAIT "^J："
  280.   SEND "3\r",1
  281.  CASE "^Jプロトコル (1:XMODEM  2:BPLUS"
  282.   WAIT "^J："
  283.   SEND "2\r",1
  284. FREE
  285.  
  286. WAIT "^Jファイル名 (改行のみ"
  287. WAIT "^J："
  288.  
  289. IF $63!=""
  290.   SEND "$63\r",1
  291. ELSE
  292.   ECHO "^Gマクロが取得したダウンロード名：<< $10.$4 >>"
  293.   ECHO "\r  これででいいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞"
  294.   LOOKKEY 60
  295.    CASE "Y"
  296.     SEND "$10.$4\r",1
  297.    CASE "y"
  298.     SEND "$10.$4\r",1
  299.    CASE "N"
  300.     ECHO "\r^G ファイル名を入力して下さい (+ﾘﾀｰﾝ)："
  301.    CASE "n"
  302.     ECHO "\r^G ファイル名を入力して下さい (+ﾘﾀｰﾝ)："
  303.    CASE "E"
  304.     GOTO  DD6
  305.    CASE "e"
  306.     GOTO DD6
  307.    CASE/TIMEOUT
  308.     GOTO DD6
  309.   FREE
  310. ENDIF
  311.  
  312. WAIT "－ダウンロード開始－"
  313. WAIT ""
  314. CMD ! "B.BAT"
  315. GOTO DD4
  316.  
  317. LABEL DD6
  318. SEND "\r",1
  319. CMD D
  320. ECHO "\r^G世話焼かすんじゃねえよ！ ったくもう\r"
  321. WAIT "^Jプロトコル (1:XMODEM"
  322. WAIT "^J："
  323. SEND "E\r",1
  324. WAIT "^J処理 (1:ダウンロード"
  325. WAIT "^J＞"
  326.  
  327. LABEL L1
  328. ECHO "\r^G続行しますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要)＞"
  329. $61=$62=$63=""
  330. LOOKKEY 30
  331.  CASE "Y"
  332.  CASE "y"
  333.  CASE "N"
  334.   GOTO E
  335.  CASE "n"
  336.   GOTO E
  337.  CASE/TIMEOUT
  338.   GOTO E
  339. FREE
  340.  
  341. ECHO "\r  ^Gこのフォーラムのままでいいですか？ (Y/N) (ﾘﾀｰﾝｷｰ不要)＞"
  342. LOOKKEY 60
  343.  CASE "Y"
  344.   GOTO DD1
  345.  CASE "y"
  346.   GOTO DD1
  347.  CASE "N"
  348.   $60=""
  349.  CASE "n"
  350.   $60=""
  351.  CASE/TIMEOUT
  352.   GOTO E
  353. FREE
  354. GOTO H1
  355.  
  356. LABEL E
  357. $1=$2=$10=$4=$60=$61=$62=$63=$64=$200=""
  358. END
  359.  
  360.