home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / data / nifhand / hp.aut < prev    next >
Text File  |  1992-08-19  |  3KB  |  154 lines
  1.  
  2. IF (($64=="毎" || $64=="") || ($64==$940 || $64==$941)) || ((($64==$942 || $64==$947) || ($64==$948 || $64==$949)) || $64==$950)
  3.  ECHO "\r^Gこれよりホームパーティにまいります\r"
  4. ELSE
  5.  GOTO E
  6. ENDIF
  7.  
  8. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  9. IF ($60!="" && $61!="") && ($62=="" || $63=="")
  10.  CALL HP
  11.  CALL DOWN
  12. ELSEIF ($60!="" && $61!="") && ($62!="" && $63!="")
  13.  CALL HP
  14.  CALL SAY
  15.  CALL DOWN
  16. ELSE
  17.  ECHO "HP.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  18. ENDIF
  19. GOTO E
  20. ENDIF
  21.  
  22. LABEL MAIN
  23. ECHO "\r 1:ﾀﾞｳﾝのみ  2:ｱｯﾌﾟ･ﾀﾞｳﾝ両方  E:中止 (ﾘﾀｰﾝｷｰ不要) ＞\r"
  24. LOOKKEY 60
  25. CASE "1"
  26.   $62=$63="******"
  27.   $2=""
  28.   CALL H
  29.   CALL HP
  30.   CALL DOWN
  31. CASE "2"
  32.   $2=$7
  33.    CALL H
  34.    CALL HP
  35.    CALL SAY
  36.    CALL DOWN
  37. CASE "E"
  38. CASE "e"
  39. CASE/TIMEOUT
  40. FREE
  41.  
  42. LABEL E
  43. $1=$60=$61=$62=$63=$64=""
  44. END
  45.  
  46. PROC H
  47. LABEL H1
  48. IF $60==""
  49.  $60="自分のもの"
  50. ENDIF
  51. ECHO "\r設定は以下のようになっています\r"
  52. ECHO "\r  1 ＨＰのＩＤ       ：$60"
  53. ECHO "\r  2 パスワード       ：$61"
  54. ECHO "\r  3 題名 (ﾊﾝﾄﾞﾙ)     ：$62  $2"
  55. ECHO "\r  4 送信ファイル名   ：$63"
  56. ECHO "\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  57.  
  58. LOOKKEY 60
  59.  CASE "Y"
  60.   RETURN
  61.  CASE "y"
  62.   RETURN
  63.  CASE "N"
  64.  CASE "n"
  65.  CASE "E"
  66.   END
  67.  CASE "e"
  68.   END
  69.  CASE/TIMEOUT
  70.   END
  71. FREE
  72.  
  73. ECHO "\r^G訂正するものを番号で選んで下さい (1～8) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  74. LOOKKEY 60
  75. CASE "1"
  76.   ECHO "\r正しいＩＤを入力してください ＞"
  77.   $60=input()
  78. CASE "2"
  79.   ECHO "\r正しいパスワードを入力してください ＞"
  80.   $61=input()
  81. CASE "3"
  82.   ECHO "\r正しい題名を入力してください ＞"
  83.   $62=input()
  84. CASE "4"
  85.   ECHO "\r正しい送信ファイル名を入力してください ＞"
  86.   $63=input()
  87. CASE/TIMEOUT
  88.   END
  89. FREE
  90. GOTO H1
  91. ENDPROC
  92.  
  93. PROC HP
  94. SEND "GO HP\r"
  95. WAIT "^J＞"
  96. SEND "1\r",1
  97. WAIT "^JID (改行のみ：自分のHP)"
  98. WAIT "^J："
  99. IF $60=="自分のもの"
  100.  $60=""
  101. ENDIF
  102. SEND "$60\r",1
  103. LOOK
  104. CASE "該当する利用者の"
  105.   WAIT "^J＞"
  106.   ECHO "ちょっとぉ、どうなってんのよぉ\r"
  107.   END
  108. CASE "^JあなたはまだHome Partyを"
  109.   WAIT "^J："
  110.   ECHO "^G タコ～ ＞"
  111.   SEND "N\r",1
  112.   WAIT "^J＞"
  113.   END
  114. CASE "^Jパスワード"
  115.   WAIT "^J："
  116.   SEND "$61\r",1
  117.   WAIT "^JHP>"
  118. CASE "^JHP>"
  119. FREE
  120. SEND "SET PAGE OFF\r",1
  121. WAIT "^JHP>"
  122. IF $60==""
  123.  $60="MYHP"
  124. ENDIF
  125. ENDPROC
  126.  
  127. PROC SAY
  128. SEND "COM\r",1
  129. WAIT "^Jハンドルネームと"
  130. WAIT "^J："
  131. SEND "$62  $7\r",1
  132. WAIT "^J確認"
  133. WAIT "^J："
  134. SEND "1\r",1
  135. WAIT "^J本文の入力"
  136. WAIT "\r"
  137. CMD U "$63"
  138. WAIT "^J修正 (1:修正"
  139. WAIT "^J："
  140. SEND "2\r",1
  141. WAIT "^J登録 (1:登録"
  142. WAIT "^J："
  143. SEND "1\r",1
  144. WAIT "^JHP>"
  145. ENDPROC
  146.  
  147. PROC DOWN
  148. CMD D "$900:\\HP\\$60.$944"
  149. SEND "REA NEW\r",1
  150. WAIT "^JHP>"
  151. CMD D
  152. ENDPROC
  153.  
  154.