home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / OLS / DOS / WTDOC806 / WTDOC806.LZH / SMACRO.LZH / TCWWIV.MAC < prev    next >
Text File  |  1995-01-01  |  2KB  |  40 lines
  1. #####################################################################
  2. #  ＷＴＥＲＭ　マクロプログラム その２　TC版WWIV用
  3. #####################################################################
  4. #
  5. #     #　以降はコメントです
  6. #
  7. START:                          # ラベルの定義
  8.    SWITCH                       # switchは以降のcaseのどれかを受信する迄待つ
  9.       CASE("】")                   # です】を待つ
  10.          SEND("\*\R")        　    # １秒後にＣＲを送信
  11.          GOTO(START)          　　 # STARTにジャンプ
  12.       CASE("[Yes]/No) :")          # [Yes]/No) :文字列待ち
  13.          SEND("Y\R")　　　　　　　 # Yesを送る
  14.          CALL(MAIL)                # MAILをコールする
  15.       CASE("皆さんへ] :")          # 皆さんへ] :という文字列待ち
  16.          GOTO(READ)                # READにジャンプ
  17.    END
  18. READ:
  19.    SEND("/N")                       # ／Ｎ（新しいﾎﾟｽﾄのみ読むWWIVｺﾏﾝﾄﾞ送出)
  20.    WAIT("皆さんへ] :")              # ] : という文字列待ち
  21.    SEND("T")                        # Ｔ(ﾌｧｲﾙｼｽﾃﾑへ行くというWWIVｺﾏﾝﾄﾞ送出)
  22.    WAIT(") :")                      # ) : という文字列待ち
  23.    SEND("N")                        # Ｎ（新しいPDSのみ読むWWIVｺﾏﾝﾄﾞ送出)
  24.    WAIT("([Yes]/No)")               # Yes/No待ち
  25.    SEND("Y")                        # Yesを送る
  26.    WAIT(") :")                      # ) : という文字列待ち
  27.    SEND("O")                        # Ｏ（WWIVｺﾏﾝﾄﾞ ﾛｸﾞｱｳﾄ O 送出)
  28.    WAIT("([Yes]/No)")               # Yes/No待ち
  29.    SEND("Y")                        # Yesを送る
  30.    EXIT                             # マクロの終了
  31.  
  32. MAIL:                               # MAILサブルーチンの開始
  33.    SWITCH                           # 
  34.       CASE(",D,A,S,Q,F,?  :")       # ,D,A,S,Q,F,?  :という文字列を待つ
  35.          SEND("I\R")                # ＣＲ（改行コ－ド）を送る
  36.       CASE("皆さんへ] :")           # 皆さんへ] :という文字列待ち
  37.          RETURN                     # コールした次の行に戻る
  38.    END                              # SWITCHの終り
  39.    GOTO(MAIL)                       # MAILに戻る
  40.