home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / hensyu / hensyu.bas < prev    next >
Encoding:
BASIC Source File  |  1990-06-14  |  4.5 KB  |  125 lines
  1. 10 '*******************************************************************
  2. 20 '**　ＭＯＰＴＥＲＭ　のオ－トパイロットでダウンロ－ドしたログファ **
  3. 30 '**　イルを会議室ごとに分割して出力するプログラムです。　　　　　 **
  4. 40 '** 　　　　　　　　　　　　　　　　　　　　　　（カッチン）　　　**
  5. 50 '*******************************************************************
  6. 60 CLS
  7. 70 EFLG=0
  8. 80 ON ERROR GOTO *ER01
  9. 90 OPEN "I",#12,"HENCON.TXT"
  10. 100 '---------＜＜コントロ－ルファイルを読む＞＞
  11. 110 *YOMU0
  12. 120  IF EOF(12)=-1 THEN GOTO *ALEND
  13. 130  INPUT#12,INFL$
  14. 140 '
  15. 150 '＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠
  16. 160 *STA
  17. 170    CLS
  18. 180    ON ERROR GOTO *ER02
  19. 190    OPEN "I",#11,INFL$
  20. 200    ON ERROR GOTO 0
  21. 210    OFLG=0 : KA=0
  22. 220    C$="------"
  23. 230 '---------＜＜会議室の名称を読む＞＞
  24. 240 *NSET
  25. 250    LINE INPUT#11,A$
  26. 260    A4$=LEFT$(A$,2)
  27. 270    IF A4$="GO" OR A4$="go" THEN A3$=MID$(A$,4,8):GOSUB *HIRAKU :GOTO *YOMU
  28. 280    IF EOF(11)=-1 THEN COLOR 2:LOCATE 5,5:PRINT "＊＊　ＧＯコマンドが見つかりません 　＊＊":GOTO 940
  29. 290    GOTO *NSET
  30. 300 '---------＜＜ログを読む＞＞
  31. 310 *YOMU
  32. 320    LINE INPUT#11,A$
  33. 330    IF EOF(11)=-1 THEN GOTO *OWARI
  34. 340    A1$=LEFT$(A$,2)
  35. 350    A2$=LEFT$(A$,8)
  36. 360 '---------＜＜ラインの種類チェック＞＞
  37. 370    IF MID$(A$,4,1)="/" AND MID$(A$,8,3)="   " THEN OFLG=1:B$=A$:GOTO *YOMU
  38. 380    IF MID$(A$,1,2)="＞" AND MID$(A$,6,1)="/" THEN OFLG=1:B$=A$:GOTO *YOMU
  39. 390    IF OFLG=1 AND MID$(A$,1,1)="(" AND MID$(A$,4,1)=")" THEN KNO$=MID$(A$,2,2) : KA=1
  40. 400    IF A2$="続き（改" THEN  GOTO *YOMU
  41. 410 '
  42. 420    IF A2$="電子会議" THEN OFLG=0 : GOTO *YOMU
  43. 430    IF OFLG=0   THEN  GOTO *YOMU
  44. 440    IF A1$="＞" THEN  GOTO *YOMU
  45. 450 '--------＜＜会議室別に出力＞＞
  46. 460    ON VAL(KNO$) GOTO 470,490,510,530,550,570,590,610,630,650
  47. 470    IF KA=1 THEN PRINT #1,C$ :PRINT #1,B$ :PRINT #1,A$ : KA=0 ELSE PRINT #1,A$
  48. 480     GOTO  *YOMU
  49. 490    IF KA=1 THEN PRINT #2,C$ :PRINT #2,B$ :PRINT #2,A$ : KA=0 ELSE PRINT #2,A$
  50. 500     GOTO  *YOMU
  51. 510    IF KA=1 THEN PRINT #3,C$ :PRINT #3,B$ :PRINT #3,A$ : KA=0 ELSE PRINT #3,A$
  52. 520     GOTO  *YOMU
  53. 530    IF KA=1 THEN PRINT #4,C$ :PRINT #4,B$ :PRINT #4,A$ : KA=0 ELSE PRINT #4,A$
  54. 540     GOTO  *YOMU
  55. 550    IF KA=1 THEN PRINT #5,C$ :PRINT #5,B$ :PRINT #5,A$ : KA=0 ELSE PRINT #5,A$
  56. 560     GOTO  *YOMU
  57. 570    IF KA=1 THEN PRINT #6,C$ :PRINT #6,B$ :PRINT #6,A$ : KA=0 ELSE PRINT #6,A$
  58. 580     GOTO  *YOMU
  59. 590    IF KA=1 THEN PRINT #7,C$ :PRINT #7,B$ :PRINT #7,A$ : KA=0 ELSE PRINT #7,A$
  60. 600     GOTO  *YOMU
  61. 610    IF KA=1 THEN PRINT #8,C$ :PRINT #8,B$ :PRINT #8,A$ : KA=0 ELSE PRINT #8,A$
  62. 620     GOTO  *YOMU
  63. 630    IF KA=1 THEN PRINT #9,C$ :PRINT #9,B$ :PRINT #9,A$ : KA=0 ELSE PRINT #9,A$
  64. 640     GOTO  *YOMU
  65. 650    IF KA=1 THEN PRINT #10,C$ :PRINT #10,B$ :PRINT #10,A$ : KA=0 ELSE PRINT #10,A$
  66. 660     GOTO *YOMU
  67. 670 '---------＜＜ファイル　オ－プン＞＞
  68. 680 *HIRAKU
  69. 690  ON ERROR GOTO *ER04
  70. 700  OPEN "A",#1,A3$+"\LOG01"
  71. 710  OPEN "A",#2,A3$+"\LOG02"
  72. 720  OPEN "A",#3,A3$+"\LOG03"
  73. 730  OPEN "A",#4,A3$+"\LOG04"
  74. 740  OPEN "A",#5,A3$+"\LOG05"
  75. 750  OPEN "A",#6,A3$+"\LOG06"
  76. 760  OPEN "A",#7,A3$+"\LOG07"
  77. 770  OPEN "A",#8,A3$+"\LOG08"
  78. 780  OPEN "A",#9,A3$+"\LOG09"
  79. 790  OPEN "A",#10,A3$+"\LOG10"
  80. 800  ON ERROR GOTO 0
  81. 810  COLOR 5
  82. 820  LOCATE 10,10:PRINT"＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊"
  83. 830  LOCATE 10,11:PRINT"＊＊＊  ログ編集中です      ＜";
  84. 840  COLOR 2 : PRINT A3$;
  85. 850  COLOR 5 : PRINT "＞ 　＊＊＊"
  86. 860  LOCATE 10,12:PRINT"＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊"
  87. 870 RETURN
  88. 880 '
  89. 890 '---------＜＜ファイル　クロ－ズ＞＞
  90. 900 *OWARI
  91. 910   CLOSE #1 :CLOSE #2 :CLOSE #3 :CLOSE #4  :CLOSE #5 :CLOSE #6
  92. 920   CLOSE #7 :CLOSE #8 :CLOSE #9 :CLOSE #10 :CLOSE #11
  93. 930 '
  94. 940  CLOSE #11
  95. 950  GOTO *YOMU0
  96. 960 *ALEND
  97. 970  CLOSE #12
  98. 980  END
  99. 990 '＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠
  100. 1000 *ER01 
  101. 1010  COLOR 2 : LOCATE 5,5
  102. 1020  PRINT "コントロ－ルファイルが見つかりません"
  103. 1030  COLOR 2 : LOCATE 5,6
  104. 1040  PRINT "処理を強制終了します"
  105. 1050  RESUME *ALEND
  106. 1060 *ER02 
  107. 1070  COLOR 2 : LOCATE 5,5
  108. 1080  PRINT "ログファイルが見つかりません"
  109. 1090  COLOR 2 : LOCATE 5,6
  110. 1100  PRINT INFL$;:COLOR 7:PRINT "　読み飛ばします"
  111. 1110  COLOR 1 : LOCATE 5,8
  112. 1120  INPUT "改行を押して下さい";Z$
  113. 1130  COLOR 7
  114. 1140  RESUME *YOMU0
  115. 1150 *ER03
  116. 1160  COLOR 2
  117. 1170  PRINT "ファイルが見つかりません"
  118. 1180  COLOR 7
  119. 1190  RESUME 200
  120. 1200 *ER04
  121. 1210  LOCATE 5,5
  122. 1220  COLOR 4:PRINT "＃＃ ";:COLOR 2:PRINT A3$;
  123. 1230  COLOR 4:PRINT " というディレクトリ－を作成してやり直して下さい ＃＃"
  124. 1240  RESUME 940
  125.