home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / bmail.aut < prev    next >
Text File  |  1992-08-19  |  3KB  |  172 lines
  1. %1=2000
  2. %2=20
  3.  
  4. IF $1=="Q" || $1=="QUICK"
  5.  GOTO M2
  6. ENDIF
  7.  
  8. LABEL M1
  9. ECHO "\r\r バイナリメールの送信を行います"
  10. ECHO "\r 設定は以下のようになっています\r"
  11. ECHO "\r 1 送信ファイル名：$10"
  12. ECHO "\r 2 題  名        ：$11"
  13. IF $12!=""
  14. ECHO "\r 3 期  日  指  定：$12"
  15. ENDIF
  16. ECHO "\r 4 送 信 相 手 ID：1:$2000,2:$2001,3:$2002,4:$2003,5:$2004"
  17. ECHO "\r                 ：6:$2005,7:$2006,8:$2007,9:$2008,0:$2009"
  18.  
  19. ECHO "\r\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
  20. LOOKKEY 60
  21.  CASE "Y"
  22.   GOTO M2
  23.  CASE "y"
  24.   GOTO M2
  25.  CASE "N"
  26.  CASE "n"
  27.  CASE "E"
  28.   GOTO E
  29.  CASE "e"
  30.   GOTO E
  31.  CASE/TIMEOUT
  32.   GOTO E
  33. FREE
  34.  
  35. ECHO "\r^G訂正したいものを番号で選んで下さい (1～5) (ﾘﾀｰﾝｷｰ不要)\r"
  36. LOOKKEY 60
  37.  CASE "1"
  38.   ECHO "\r正しい送信ファイル名を入力して下さい (+ﾘﾀｰﾝ) ＞"
  39.   $10=input()
  40.   GOTO M1
  41.  CASE "2"
  42.   ECHO "\r正しい題名を入力して下さい (+ﾘﾀｰﾝ) ＞"
  43.   $11=input()
  44.   GOTO M1
  45.  CASE "3"
  46.   ECHO "\r正しい期日(yymmdd)を入力して下さい (+ﾘﾀｰﾝ) ＞"
  47.   $12=input()
  48.   GOTO M1
  49.  CASE "4"
  50.  CASE/TIMEOUT
  51.   GOTO E
  52. FREE
  53.  
  54. ECHO "\r訂正したいＩＤを番号で選んで下さい (1～0) (ﾘﾀｰﾝｷｰ不要) ＞"
  55. LOOKKEY 60
  56.  CASE "1"
  57.   ECHO "\r正しいＩＤ１を入力して下さい ＞"
  58.   $2000=input()
  59.  CASE "2"
  60.   ECHO "\r正しいＩＤ２を入力して下さい ＞"
  61.   $2001=input()
  62.  CASE "3"
  63.   ECHO "\r正しいＩＤ３を入力して下さい ＞"
  64.   $2002=input()
  65.  CASE "4"
  66.   ECHO "\r正しいＩＤ４を入力して下さい ＞"
  67.   $2003=input()
  68.  CASE "5"
  69.   ECHO "\r正しいＩＤ５を入力して下さい ＞"
  70.   $2004=input()
  71.  CASE "6"
  72.   ECHO "\r正しいＩＤ６を入力して下さい ＞"
  73.   $2005=input()
  74.  CASE "7"
  75.   ECHO "\r正しいＩＤ７を入力して下さい ＞"
  76.   $2006=input()
  77.  CASE "8"
  78.   ECHO "\r正しいＩＤ８を入力して下さい ＞"
  79.   $2007=input()
  80.  CASE "9"
  81.   ECHO "\r正しいＩＤ９を入力して下さい ＞"
  82.   $2008=input()
  83.  CASE "0"
  84.   ECHO "\r正しいＩＤ０を入力して下さい ＞"
  85.   $2009=input()
  86.  CASE/TIMEOUT
  87.   GOTO E
  88. FREE
  89. GOTO M1
  90.  
  91.  
  92. LABEL M2
  93.  
  94. CALL MAIL1
  95.  
  96. LABEL SBM1
  97. SEND "UPL TYPE:BIN PROT:BPL\r",1
  98. WAIT "^Jファイル名 (改行"
  99. WAIT "^J："
  100. SEND "$10\r",1
  101. WAIT "－アップロード開始－"
  102. WAIT ""
  103. CMD ! "B.BAT"
  104.  
  105. CALL MAIL2
  106.  
  107. %4=%1
  108. WHILE %4 < %1+100
  109.  %4=%4+1
  110.  IF $[%4] != ""
  111.   %1=%4-1
  112.   GOTO SBM1
  113.  ENDIF
  114. ENDWHILE
  115.  
  116. LABEL E
  117. $1=$10=$11=$12=""
  118. END
  119.  
  120. PROC MAIL1
  121. SEND "MAIL\r",1
  122. LOOK
  123.  CASE "^J＞"
  124.   SEND "SET MENU OFF\r",1
  125.   WAIT "^JMAIL>"
  126.  CASE "^JMAIL>"
  127. FREE
  128. ENDPROC
  129.  
  130. PROC MAIL2
  131. LABEL TO
  132. LOOK
  133.  CASE "^J宛先"
  134.   WAIT "^J："
  135.   $1=$[%1]
  136.   $[%1]=""
  137.   %1=%1+1
  138.   SEND "$1\r",1
  139.   GOTO TO
  140.  CASE "◆宛先を指定して"
  141.   WAIT "^J："
  142.   SEND "$5\r",1
  143.   WAIT "^J："
  144.   SEND "\r",1
  145.   GOTO TO
  146.  CASE "^J確認"
  147.   WAIT "^J："
  148.   SEND "1\r",1
  149.   GOTO TO
  150.  CASE "^J題名"
  151.   WAIT "^J："
  152.   IF $11!=""
  153.    SEND "$11\r",1
  154.   ELSE
  155.    SEND "題名を付け忘れました\^_\^;\r",1
  156.   ENDIF
  157.   GOTO TO
  158.  CASE "^J送信"
  159.   WAIT "^J："
  160.   IF $12==""
  161.    SEND "1\r",1
  162.   ELSE
  163.    SEND "3\r",1
  164.    WAIT "^J送信期日"
  165.    WAIT "^J："
  166.    SEND "$12\r",1
  167.   ENDIF
  168.   GOTO TO
  169.  CASE "^JMAIL>"
  170. FREE
  171. ENDPROC
  172.