home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / udl.aut < prev    next >
Text File  |  1992-08-19  |  3KB  |  156 lines
  1. ECHO "\rこれよりデータライブラリへのアップロードを行います"
  2. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  3.  $1="Q"
  4. ENDIF
  5. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  6.  IF (($60=="" || $61=="") || ($62=="" || $63=="")) || (($68=="" || $69=="") || $70)
  7.   ECHO "\r^G"
  8.   ECHO "UDL.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  9.   GOTO E
  10.  ENDIF
  11.  CALL DL1
  12.  GOTO E
  13. ENDIF
  14.  
  15. LABEL D1
  16. IF $68=="1"
  17.  $94="テキスト"
  18. ELSEIF $68=="2"
  19.  $94="バイナリ"
  20. ELSE
  21.  $94="? ? ? ?"
  22. ENDIF
  23.  
  24. ECHO "\r\r設定は以下のようになっています(空白以後の検索キーは無効)\r"
  25. ECHO "\r  1 フォーラム名  ：$60"
  26. ECHO "\r  2 ﾃﾞｰﾀﾗｲﾌﾞﾗﾘ番号：$61"
  27. ECHO "\r  3 タイトル      ：$62"
  28. ECHO "\r  4 検索キー      ：1:$63,2:$64,3:$65,4:$66,5:$67"
  29. ECHO "\r  5 ﾌﾟﾛｸﾞﾗﾑの属性 ：$94"
  30. ECHO "\r  6 説明ファイル名：$69"
  31. ECHO "\r  7 プログラム名  ：$70\r"
  32. ECHO "\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
  33.  
  34. LOOKKEY 60
  35.  CASE "Y"
  36.   CALL DL1
  37.  CASE "y"
  38.   CALL DL1
  39.  CASE "N"
  40.   GOTO D2
  41.  CASE "n"
  42.   GOTO D2
  43.  CASE "E"
  44.  CASE "e"
  45.  CASE/TIMEOUT
  46. FREE
  47.  
  48. LABEL E
  49. $1=$60=$61=$62=$63=$64=$65=$66=$67=$68=$69=$70=$200=""
  50. END
  51.  
  52. LABEL D2
  53. ECHO "\r^G訂正したいものを番号で選んで下さい (1～7) (ﾘﾀｰﾝｷｰ不要)\r"
  54. LOOKKEY 60
  55.  CASE "1"
  56.   ECHO "\r正しいフォーラム名を入力して下さい ＞"
  57.   $60=input()
  58.  CASE "2"
  59.   ECHO "\r正しいＤＬ番号を入力して下さい ＞"
  60.   $61=input()
  61.  CASE "3"
  62.   ECHO "\r正しいタイトルを入力して下さい ＞"
  63.   $62=input()
  64.  CASE "4"
  65.   GOTO D3
  66.  CASE "5"
  67.   ECHO "\r正しい属性を入力して下さい (1:テキスト  2:バイナリ) ＞"
  68.   $68=input()
  69.  CASE "6"
  70.   ECHO "\r正しい説明ファイル名を入力して下さい ＞"
  71.   $69=input()
  72.  CASE "7"
  73.   ECHO "\r正しいアップロードファイル名を入力して下さい ＞"
  74.   $70=input()
  75.  CASE/TIMEOUT
  76.   GOTO E
  77. FREE
  78. GOTO D1
  79.  
  80. LABEL D3
  81. ECHO "\r^G訂正したい検索キーを番号で選んで下さい (1～5) (ﾘﾀｰﾝｷｰ不要) ＞"
  82. LOOKKEY 60
  83.  CASE "1"
  84.   ECHO "\r^Gそれでは正しい検索キー１を入力して下さい＞"
  85.   $63=input()
  86.  CASE "2"
  87.   ECHO "\r^Gそれでは正しい検索キー２を入力して下さい＞"
  88.   $64=input()
  89.  CASE "3"
  90.   ECHO "\r^Gそれでは正しい検索キー３を入力して下さい＞"
  91.   $65=input()
  92.  CASE "4"
  93.   ECHO "\r^Gそれでは正しい検索キー４を入力して下さい＞"
  94.   $66=input()
  95.  CASE "5"
  96.   ECHO "\r^Gそれでは正しい検索キー５を入力して下さい＞"
  97.   $67=input()
  98.  CASE/TIMEOUT
  99.   GOTO E
  100. FREE
  101. GOTO D1
  102.  
  103. PROC DL1
  104. DO F
  105. IF $200=="A"
  106.  RETURN
  107. ENDIF
  108.  
  109. SEND "LIB $61\r",1
  110. WAIT "^JLIB>"
  111. SEND "SET PAGE OFF\r",1
  112. WAIT "^JLIB>"
  113. IF $68=="1"
  114.  $68="TXT"
  115. ELSEIF $68=="2"
  116.  $68="BIN"
  117. ENDIF
  118. SEND "UPL TYPE:$68 PROT:BPL\r",1
  119. WAIT "^Jデータ名"
  120. WAIT "^J："
  121. SEND "$62\r",1
  122. %2=0
  123.  
  124. LABEL DL2
  125. LOOK
  126.  CASE "^J検索キー"
  127.   WAIT "^J："
  128.   %2=%2+1
  129.   $90=$[62+%2]
  130.   SEND "$90\r",1
  131.   GOTO DL2
  132.  CASE "^J確認"
  133.   WAIT "^J："
  134.   SEND "1\r",1
  135.   GOTO DL2
  136.  CASE "^J補足説明"
  137. FREE
  138.  
  139. WAIT "\r"
  140. CMD U "$69"
  141. WAIT "^J修正 (1:修正する"
  142. WAIT "^J："
  143. SEND "2\r",1
  144. WAIT "^J項目 (1:OK"
  145. WAIT "^J："
  146. SEND "1\r",1
  147. WAIT "^Jファイル名"
  148. WAIT "^J："
  149. SEND "$70\r",1
  150. WAIT "－アップロード開始－"
  151. WAIT ""
  152. CMD ! "B.BAT"
  153. WAIT "^JLIB>"
  154. ENDPROC
  155.  
  156.