home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / md.aut < prev    next >
Text File  |  1992-08-19  |  1KB  |  71 lines
  1.  
  2. ECHO "\r^G電子メール・ＢＢＳ・ＨＰなどのログ格納場所を作成しますか？\r"
  3. ECHO "\r  これは一度やるだけで結構です (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  4.  
  5. LOOKKEY 60
  6.  CASE "Y"
  7.  CASE "y"
  8.  CASE "N"
  9.   GOTO F
  10.  CASE "n"
  11.   GOTO F
  12.  CASE/TIMEOUT
  13. FREE
  14.  
  15. CMD ! "MD $900:\\ANN"
  16. CMD ! "MD $900:\\BBS"
  17. CMD ! "MD $900:\\CLIP"
  18. CMD ! "MD $900:\\HP"
  19. CMD ! "MD $900:\\MAIL"
  20.  
  21. LABEL F
  22. ECHO "\r^Gフォーラムのログ格納場所を作成しますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  23. LOOKKEY 60
  24.  CASE "Y"
  25.  CASE "y"
  26.  CASE "N"
  27.   GOTO L
  28.  CASE "n"
  29.   GOTO L
  30.  CASE/TIMEOUT
  31.   GOTO L
  32. FREE
  33.  
  34. LABEL MD
  35. ECHO "\r^Gログ格納場所を作成したいフォーラム名を入力して下さい (例：FHAND) ＞"
  36. $60=input()
  37.  
  38. ECHO "\r^G フォーラム名：$60 でいいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  39. LOOKKEY 60
  40.  CASE "Y"
  41.  CASE "y"
  42.  CASE "N"
  43.   GOTO MD
  44.  CASE "n"
  45.   GOTO MD
  46.  CASE "E"
  47.   GOTO L
  48.  CASE "e"
  49.   GOTO L
  50.  CASE/TIMEOUT
  51.   GOTO L
  52. FREE
  53.  
  54. CMD ! "MD $900:\\$60"
  55.  
  56. ECHO "\r^Gディレクトリ作成を続行しますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  57. LOOKKEY 60
  58.  CASE "Y"
  59.   GOTO MD
  60.  CASE "y"
  61.   GOTO MD
  62.  CASE "N"
  63.  CASE "n"
  64.  CASE/TIMEOUT
  65. FREE
  66.  
  67. LABEL L
  68. $60=""
  69. END
  70.  
  71.