home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / m.aut < prev    next >
Text File  |  1992-08-19  |  2KB  |  113 lines
  1. %901=3        ;ダウンロード-----+
  2. %902=100    ;未読処理を起動---+--するときの最少の会議室未読発言数
  3. %903=200    ;会議室登録を起動-+
  4.  
  5. IF ($63=="RC" || $63=="rc") || ($63=="R" || $63=="r")
  6. DO RC
  7. ENDIF
  8.  
  9. IF ($64=="TOROKU" || $64=="toroku") || ($64=="T" || $64=="t")
  10. DO TOROKU
  11. ENDIF
  12.  
  13. IF ($65=="HANDLE" || $65=="handle") || ($65=="H" || $65=="h")
  14. DO HANDLE
  15. ENDIF
  16.  
  17. %4=%5=%6=0
  18. SEND "MES\r",1
  19. WAIT "^J番号"
  20.  
  21. IF $61!=""    ;巡回会議室を設定できます
  22. WAIT "^J＞"
  23. SEND "MREAD ROOM:$61\r\r",1
  24. GOTO MRE1
  25. ENDIF
  26.  
  27. LABEL MR
  28. WAIT "\r"
  29. LOOK
  30. CASE " "
  31.  SCAN "(" %5 ")",9
  32.  %6=%6+%5
  33.  GOTO MR
  34. CASE "^J＞"
  35. FREE
  36.  
  37. IF %6<%901
  38.  ECHO "^G未読発言数(%6) が設定値(%901) 以下なのでスキップします＞"
  39.  END
  40. ELSEIF %902<%6 && %6<%903
  41.  CALL RC
  42. ELSEIF %6>=%903
  43.  CALL TOROKU
  44.  CALL RC
  45. ENDIF
  46. SEND "MRE\r\r",1
  47.  
  48. LABEL MRE1
  49. IF ($67=="FAPX" || $67=="fapx") || ($67=="F" || $67=="f")
  50.  CMD D "$900:\\$60\\$60.$945$942"
  51.  LOOK
  52.  CASE "◆現在未読の発言"
  53.   WAIT "^J＞"
  54.  CASE "◆次頁はありませ"
  55.   WAIT "^J＞"
  56.  FREE
  57.  CMD D
  58.  END
  59. ENDIF
  60.  
  61. LOOK
  62. CASE "^J- $60 "
  63.  SCAN "(" %4 ")"
  64.  IF %4<10
  65.   $901="M0%4$943"
  66.  ELSE
  67.   $901="M%4$943"
  68.  ENDIF
  69.  CMD D "$900:\\$60\\$901.LOG"
  70.  GOTO MRE1
  71. CASE "◆現在未読の発言"
  72.  WAIT "^J＞"
  73. CASE "◆次頁はありませ"
  74.  WAIT "^J＞"
  75.  CMD D
  76. FREE
  77. END
  78.  
  79. PROC TOROKU
  80. ECHO "^G\r未読発言数(%6) が設定値(%903) を越えています"
  81. ECHO "\r  会議室登録の変更を行いますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  82. LOOKKEY 60
  83. CASE "Y"
  84.  DO TOROKU
  85. CASE "y"
  86.  DO TOROKU
  87. CASE "N"
  88. CASE "n"
  89. CASE/TIMEOUT
  90.  END
  91. FREE
  92. ENDPROC
  93.  
  94. PROC RC
  95. ECHO "\r未読発言数(%6) が設定値(%902) を越えています"
  96. ECHO "\r^G  未読分の処理を行いますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  97. LOOKKEY 60
  98. CASE "Y"
  99.  DO RC
  100.  SEND "MES\r",1
  101.  WAIT "^J＞"
  102. CASE "y"
  103.  DO RC
  104.  SEND "MES\r",1
  105.  WAIT "^J＞"
  106. CASE "N"
  107. CASE "n"
  108. CASE/TIMEOUT
  109.  END
  110. FREE
  111. ENDPROC
  112.  
  113.