home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / app_demo / wtermwin / wwiv.mac < prev   
Text File  |  1995-11-30  |  2KB  |  44 lines
  1. #####################################################################
  2. #  ＷＴＥＲＭ　マクロプログラム その１　WWIV用
  3. #   　使用可能ＮＥＴ　Envision BBS 
  4. #####################################################################
  5. #
  6. #     #　以降はコメントです
  7. #
  8. START:                          # ラベルの定義
  9.    SWITCH                       # switchは以降のcaseのどれかを受信する迄待つ
  10.       CASE("ｸﾀﾞｻｲ")                # ｸﾀﾞｻｲを受信したら、SEND(" ")を実行する
  11.          SEND(" ")              　 # 半角スペースを送信する
  12.          GOTO(START)          　　 # STARTにジャンプ
  13.       CASE("読みますか ? ☆ ([Yes]/No)") # 文字列待ち
  14.          SEND(" ")　　　　　　　　 # ｽﾍﾟ-ｽを送る
  15.          CALL(MAIL)                # MAILをコールする
  16.       CASE("Help=> ? ]")           # Help=> ? ] という文字列待ち
  17.          GOTO(READ)                # READにジャンプ
  18.    END
  19. READ:
  20.    SEND("/N\R")                     # ／Ｎ（新しいﾎﾟｽﾄのみ読むWWIVｺﾏﾝﾄﾞ送出)
  21.    WAIT("Help=> ? ]")               # Help=> ? ] という文字列待ち
  22.    SEND("T\R")                      # Ｔ(ﾌｧｲﾙｼｽﾃﾑへ行くというWWIVｺﾏﾝﾄﾞ送出)
  23.    WAIT("Help=> ? ")                # Help=> ?  という文字列待ち
  24.    SEND("N\R")                      # Ｎ（新しいPDSのみ読むWWIVｺﾏﾝﾄﾞ送出)
  25.    WAIT("([Yes]/No)")               # Yes/No待ち
  26.    SEND("Y\R")                      # Yesを送る
  27.    WAIT("Help=> ? ")                # Help=> ?  という文字列待ち
  28.    SEND("O\R")                      # Ｏ（WWIVｺﾏﾝﾄﾞ ﾛｸﾞｱｳﾄ O 送出)
  29.    WAIT("([Yes]/No)")               # Yes/No待ち
  30.    SEND("Y\R")                      # Yesを送る
  31.    EXIT                             # マクロの終了
  32.  
  33. MAIL:                               # MAILサブルーチンの開始
  34.    SWITCH                           # 
  35.       CASE("Q で　抜ける :")        # Q で　抜ける :という文字列を待つ
  36.          SEND("\R")                 # ＣＲ（改行コ－ド）を送る
  37.       CASE("D で削除して下さい!!")  # 削除して下さい!!という文字列を待つ
  38.          SEND("\R")                 # ＣＲ（改行コ－ド）を送る
  39.          WAIT("Help=>? :")          # Help=>? :という文字列を待つ
  40.       CASE("Help=> ? ]")            # Help=> ? ] という文字列待ち
  41.          RETURN                     # コールした次の行に戻る
  42.    END                              # SWITCHの終り
  43.    GOTO(MAIL)                       # MAILに戻る
  44.