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