#   投 稿  後藤　清氏
#
#   起動時(JOISにｱｸｾｽの場合)
#
#   WTERM -^
#
#   AUTOLOGIN文字列
#
#   ****'[:]*JOIS'[ID]*'[CE]*\I[U:]*\P**\#JOIS.MAC
#
#
#   以下　読み逃げマクロです　お役にたてば　嬉しいけれど・・
#   できれば手直ししてくれれば　もっと嬉しい
#   細部は　書き直してご使用下さい。
#
#   JOIS.MAC
#############################################################################
#ＪＯＩＳ　読み逃げ　マクロ  91.01.09 ＊＊＊＊＊＊コーヒー　研究室　後藤    #
#############################################################################
#
F$="\FILE 010"
C$="ｺｰﾋｰ"
K$="\P K/1-20"　　　　#　月間のｺｰﾋｰ関連の追録は　10件もないです
E$="\END"

 WAIT("会話を開始します")
 GOTO(FILE)

FILE:
 WAIT("U:")
       CONVERT(OFF)
 SEND(F$)         
       CONVERT(ON)
 SEND("\R")
GOTO(READ)

START: 
   SWITCH 
      CASE("出力終りました")
         GOTO(BYE)
      CASE("データエラー")
         GOTO(READ)
   END
EXIT
     
READ:
    WAIT("U:")         
      SEND(C$)         
      SEND("\R")
    WAIT("U:")         
       CONVERT(OFF)
      SEND(K$)         
       CONVERT(ON)
      SEND("\R")
    GOTO (START)
   
 BYE:
   WAIT("U:")        　
       CONVERT(OFF)
   SEND(E$)         
       CONVERT(ON)
   SEND("\R")      
   
   EXIT