home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / mail.aut < prev    next >
Text File  |  1992-08-19  |  971b  |  72 lines
  1. %2=10
  2.  
  3. IF $10!=""
  4.  ECHO "\r電子メールの送信を行います＞"
  5.  CALL MAIL1
  6.  LABEL AGAIN
  7.  SEND "COM\r",1
  8.  WAIT "^J本文（300"
  9.  WAIT "\r"
  10.  $1=$[%2]
  11.  $[%2]=""
  12.  CMD U "$1"
  13.  
  14. LABEL M
  15. LOOK
  16.  CASE "^J修正 (1:修正"
  17.   WAIT "^J："
  18.   SEND "2\r",1
  19.   GOTO M
  20.  CASE "^J題名"
  21.   WAIT "^J："
  22.   SEND "題名を付け忘れました \^_\^;\r",1
  23.   GOTO M
  24.  CASE "^J宛先"
  25.   WAIT "^J："
  26.   SEND "$5\r",1
  27.   WAIT "^J："
  28.   SEND "\r",1
  29.   GOTO M
  30.  CASE "◆既に入力"
  31.   WAIT "^J："
  32.   SEND "\r",1
  33.   GOTO M
  34.  CASE "◆宛先を指定して"
  35.   WAIT "^J："
  36.   SEND "$5\r",1
  37.   GOTO M
  38.  CASE "^J送信"
  39.   WAIT "^J："
  40.   SEND "1\r",1
  41.   GOTO M
  42.  CASE "^J確認"
  43.   WAIT "^J："
  44.   SEND "1\r",1
  45.   GOTO M
  46.  CASE "^Jmore>"
  47.   SEND "\r",1
  48.   GOTO M
  49.  CASE "^JMAIL>"
  50.   %2=%2+1
  51.   IF $[%2]!=""
  52.    GOTO AGAIN
  53.   ENDIF
  54.  FREE
  55.  GOTO E
  56. ENDIF
  57.  
  58. LABEL E
  59. $10=$11=$12=""
  60. END
  61.  
  62.  
  63. PROC MAIL1
  64. SEND "MAIL\r",1
  65. LOOK
  66.  CASE "^J＞"
  67.   SEND "SET MENU OFF\r",1
  68.   WAIT "^JMAIL>"
  69.  CASE "^JMAIL>"
  70. FREE
  71. ENDPROC
  72.