home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / bbs.aut < prev    next >
Text File  |  1992-08-19  |  1KB  |  78 lines
  1. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  2.  $1="Q"
  3. ENDIF
  4. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  5.  ECHO "\r^G"
  6.  ECHO "BBS.AUT：フルオートモードではＢＢＳはスキップされます\r"
  7.  END
  8. ENDIF
  9.  
  10. LABEL B1
  11. SEND "BBS\r",1
  12. WAIT "^J＞"
  13. ECHO "^Gボード番号を選んで下さい (+ﾘﾀｰﾝ) ＞"
  14. LOOK
  15.  CASE "^JBBS>"
  16.  CASE "^J＞"
  17.   SEND "SET MENU OFF\r",1
  18.   WAIT "^JBBS>"
  19. FREE
  20. SEND "SET PAGE ON\r",1
  21. WAIT "^JBBS>"
  22. SEND "1\r",1
  23.  
  24. LABEL B2
  25. LOOK
  26.  CASE "^Jmore>"
  27.  CASE "^J＞"
  28. FREE
  29. ECHO "^G1:選択  2:続きを表示  3:別のボードへ  E:終了 (ﾘﾀｰﾝｷｰ不要)＞"
  30.  
  31. LOOKKEY 60
  32.  CASE "2"
  33.   SEND "\r"
  34.   GOTO B2
  35.  CASE "1"
  36.   SEND "SET PAGE OFF\r"
  37.   LOOK
  38.    CASE "^Jmore>"
  39.    CASE "^J＞"
  40.   FREE
  41.   ECHO "^G文書の番号を選んで下さい (複数指定可)"
  42.   ECHO "\r     複数指定の例: 1,3,5   1-3,6  (+ﾘﾀｰﾝ) ＞"
  43.   CMD D "$900:\\BBS\\$943.LOG"
  44.   GOTO B3
  45.  CASE "3"
  46.   GOTO B1
  47.  CASE "E"
  48.  CASE "e"
  49.  CASE/TIMEOUT
  50. FREE
  51. SEND "SET MENU ON\r",1
  52. WAIT "^J＞"
  53. END
  54.  
  55. LABEL B3
  56. $1=""
  57. LOOK
  58.  CASE "^Jnext>"
  59.   SEND "\r",1
  60.   GOTO B3
  61.  CASE "^J＞"
  62.   SCAN $1,2
  63.   IF $1 != ""
  64.    GOTO B3
  65.   ENDIF
  66.   CMD D
  67.   ECHO "^G 1:続行する  E:BBSを終了 (ﾘﾀｰﾝｷｰ不要) ＞"
  68.   LOOKKEY 30
  69.    CASE "1"
  70.     GOTO B1
  71.    CASE "E"
  72.    CASE "e"
  73.    CASE/TIMEOUT
  74.   FREE
  75.   END
  76. FREE
  77.  
  78.