home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 5
/
FREESOFT.BIN
/
data
/
nifhand
/
mail.aut
< prev
next >
Wrap
Text File
|
1992-08-19
|
971b
|
72 lines
%2=10
IF $10!=""
ECHO "\r
電子メールの送信を行います>
"
CALL MAIL1
LABEL AGAIN
SEND "COM\r",1
WAIT "^J本文(300"
WAIT "\r"
$1=$[%2]
$[%2]=""
CMD U "$1"
LABEL M
LOOK
CASE "^J修正 (1:修正"
WAIT "^J:"
SEND "2\r",1
GOTO M
CASE "^J題名"
WAIT "^J:"
SEND "題名を付け忘れました \^_\^;\r",1
GOTO M
CASE "^J宛先"
WAIT "^J:"
SEND "$5\r",1
WAIT "^J:"
SEND "\r",1
GOTO M
CASE "◆既に入力"
WAIT "^J:"
SEND "\r",1
GOTO M
CASE "◆宛先を指定して"
WAIT "^J:"
SEND "$5\r",1
GOTO M
CASE "^J送信"
WAIT "^J:"
SEND "1\r",1
GOTO M
CASE "^J確認"
WAIT "^J:"
SEND "1\r",1
GOTO M
CASE "^Jmore>"
SEND "\r",1
GOTO M
CASE "^JMAIL>"
%2=%2+1
IF $[%2]!=""
GOTO AGAIN
ENDIF
FREE
GOTO E
ENDIF
LABEL E
$10=$11=$12=""
END
PROC MAIL1
SEND "MAIL\r",1
LOOK
CASE "^J>"
SEND "SET MENU OFF\r",1
WAIT "^JMAIL>"
CASE "^JMAIL>"
FREE
ENDPROC