home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / rc.aut < prev    next >
Text File  |  1992-08-19  |  1KB  |  69 lines
  1.  
  2. LABEL RC1
  3. SEND "MES\r",1
  4. WAIT "^J＞"
  5.  
  6. LABEL RC2
  7. ECHO "^G未読分処理：会議室番号を選んで下さい (+ﾘﾀｰﾝ) ＞"
  8. $10=input()
  9. SEND "MES $10\r",1
  10. LOOK
  11.  CASE "◆該当する会議室があり"
  12.   WAIT "^J＞"
  13.   GOTO RC2
  14.  CASE "コマンドを入力"
  15.   WAIT "^J＞"
  16.   GOTO RC2
  17.  CASE "^JCCS(N)>"
  18. FREE
  19.  
  20. ECHO "\r^Gどこまで未読分を飛ばしますか？ (ﾘﾀｰﾝｷｰ不要) ＞"
  21. ECHO "\r    1:50,  2:100,  3:150,  4:200,  5:250,  6:300"
  22. ECHO "\r    7:350, 8:400,  9:450,  0:ユーザ入力,   E:終了 ＞"
  23.  
  24. LOOKKEY 60
  25.  CASE "1"
  26.   $11="50"
  27.  CASE "2"
  28.   $11="100"
  29.  CASE "3"
  30.   $11="150"
  31.  CASE "4"
  32.   $11="200"
  33.  CASE "5"
  34.   $11="250"
  35.  CASE "6"
  36.   $11="300"
  37.  CASE "7"
  38.   $11="350"
  39.  CASE "8"
  40.   $11="400"
  41.  CASE "9"
  42.   $11="450"
  43.  CASE "0"
  44.   ECHO "^G それでは番号を入力して下さい (+ﾘﾀｰﾝ)\r\r\r"
  45.   $11=input()
  46.  CASE "E"
  47.   END
  48.  CASE "e"
  49.   END
  50.  CASE/TIMEOUT
  51.   END
  52. FREE
  53.  
  54. SEND "RC $11\r",1
  55. WAIT "^JCCS(N)>"
  56. ECHO "\r^G電子会議室の未読処理を続けますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  57. LOOKKEY 60
  58.  CASE "Y"
  59.   GOTO RC1
  60.  CASE "y"
  61.   GOTO RC1
  62.  CASE "N"
  63.  CASE "n"
  64.  CASE/TIMEOUT
  65. FREE
  66. $11=""
  67. END
  68.  
  69.