home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 5
/
FREESOFT.BIN
/
data
/
nifhand
/
sym.aut
< prev
next >
Wrap
Text File
|
1992-08-19
|
2KB
|
98 lines
ECHO "\r
これよりSYSOP宛メールの送信を行います
"
IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
$1="Q"
ENDIF
IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
IF ($60=="" || $61=="") || $62==""
ECHO "\r^G
"
ECHO "SYM.AUT:フルオートモードでは全てを設定しておく必要があります\r"
GOTO E
ENDIF
CALL SYM
GOTO E
ENDIF
LABEL S1
ECHO "\r\r
設定は以下のようになっています
\r"
ECHO "\r
1 フォーラム名 :$60"
ECHO "\r 2 送信ファイル名:$61"
ECHO "\r 3 題 名 :$62\r"
ECHO "\r^G
以上でよろしいですか? (Y/N) (E:中止) (リターンキー不要)>
\r"
LOOKKEY 60
CASE "Y"
CALL SYM
CASE "y"
CALL SYM
CASE "N"
GOTO S2
CASE "n"
GOTO S2
CASE "E"
CASE "e"
CASE/TIMEOUT
FREE
LABEL E
$1=$60=$61=$62=$200=""
END
LABEL S2
ECHO "\r^G
訂正したいものを番号で選んで下さい (1~3) (リターンキー不要)
\r"
LOOKKEY 60
CASE "1"
ECHO "\r
正しいフォーラム名を入力して下さい (+リターン) >
"
$60=input()
CASE "2"
ECHO "\r
正しい送信ファイル名を入力して下さい (+リターン) >
"
$61=input()
CASE "3"
ECHO "\r
正しい題名を入力して下さい (+リターン) >
"
$62=input()
CASE/TIMEOUT
END
FREE
GOTO S1
PROC SYM
DO F
IF $200=="A"
RETURN
ENDIF
SEND "SYM\r",1
LOOK
CASE "^JFORUM>"
RETURN
CASE "SYSOP 宛メール"
FREE
WAIT "^J>"
SEND "1\r",1
WAIT "^J本文"
WAIT "\r"
CMD U "$61"
WAIT "^J修正 (1:修正"
WAIT "^J:"
SEND "2\r",1
WAIT "^J題名"
WAIT "^J:"
SEND "$62\r",1
LABEL SY1
LOOK
CASE "◆題名を入力して"
WAIT "^J:"
SEND "題名を付け忘れました(\^_\^;)\r",1
GOTO SY1
CASE "^J確認"
FREE
WAIT "^J:"
SEND "1\r",1
WAIT "^J送信"
WAIT "^J:"
SEND "1\r",1
WAIT "^JFORUM>"
ENDPROC