home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / OLS / DOS / WTDOC806 / WTDOC806.LZH / SMACRO.LZH / CATWWIV.MAC < prev    next >
Text File  |  1995-01-01  |  2KB  |  40 lines
  1. #####################################################################
  2. #  ＷＴＥＲＭ　マクロプログラム その４　ｃａｔ版WWIV4用 by 一太郎
  3. #   　使用可能ＮＥＴ　CAT  NON  平九郎  JACK  KDA
  4. #####################################################################
  5. #     # 以降はコメント
  6. #
  7. START:                             # ラベルの定義
  8.    SWITCH                          # switchは以降のcaseのどれかを受信する迄待つ
  9.       CASE("[PAUSE]")              # [PAUSE]を受信したら、SEND(" ")を実行する
  10.          SEND(" ")              　 # 半角スペースを送信する
  11.          GOTO(START)          　　 # STARTにジャンプ
  12.       CASE("読みますか?")          # 文字列待ち
  13.          SEND("Y")　　　　　  　 # Y を送る
  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("か? ")                     # 検索ですか? 
  25.    SEND("Y")                        # Yesを送る
  26.    WAIT(") :")                      # という文字列待ち
  27.    SEND("/O")                       # Ｏ（WWIVｺﾏﾝﾄﾞ ﾛｸﾞｱｳﾄ O 送出)
  28.    EXIT                             # マクロの終了
  29.  
  30. MAIL:                               # MAILサブルーチンの開始
  31.    SWITCH                           # 
  32.       CASE("読んでください。")      # という文字列を待つ
  33.          SEND("\R")                 # ＣＲ（改行コ－ド）を送る
  34.       CASE("A,? :")                 # A,? :という文字列を待つ
  35.          SEND("I\R")                # を送る
  36.       CASE("] :")                   # という文字列待ち
  37.          RETURN                     # コールした次の行に戻る
  38.    END                              # SWITCHの終り
  39.    GOTO(MAIL)                       # MAILに戻る
  40.