`tcpinit', `tcpdebug', `tcpclose'
---------------------------------

tcpinit(HOST,COMMAND [,DISPLAY])
     :: $@1s3V%W%m%;%9$N5/F0$*$h$SDL?.$r3+;O$9$k(J.
tcpdebug(HOST,COMMAND [,DISPLAY])
     :: $@1s3V%W%m%;%9$N5/F0$N$?$a$N(J shell $@%3%^%s%I$rJV$9(J.
tcpclose(ID)
     :: $@1s3V%W%m%;%9$r=*N;$5$;(J, $@DL?.$r=*N;$9$k(J.
ping(OBJ)
     :: $@?t<0$r1s3V%W%m%;%9$KAw$j(J, $@JV$5$l$??t<0$rJV$9(J.

RETURN
     `tcpinit()' : $@@0?t(J, `tcpdebug()' : $@J8;zNs(J, `ping()' : $@G$0U(J
HOST, COMMAND, DISPLAY
     $@J8;zNs(J
ID
     $@@0?t(J
OBJ
     $@H!?t7A<0(J, $@L$Dj78?t$r4^$^$J$$G$0U$N?t<0(J

   * `tcpinit()' $@$O(J, $@%[%9%H(J HOST $@>e$G%3%^%s%I(J COMMAND $@$r5/F0$7(J, $@$3$N%W(J
     $@%m%;%9$HDL?.$r3+;O$9$k(J.

   * $@JV$5$l$k@0?t$O(J, $@<B:]$K$O%*!<%W%s$5$l$?(J TCP/IP $@%9%H%j!<%`$N%=%1%C(J
     $@%HHV9f$G$"$k(J.

   * UNIX $@HG$K$*$$$F$O(J, $@%0%i%U%#%C%/%9$OJL%W%m%;%9$G=hM}$5$l$k(J. $@$3$l$i(J
     $@$NH!?t$O(J, $@%0%i%U%#%C%/%9$K8B$i$:0lHL$KJ,;67W;;$r9T$&$?$a$N%D!<%k(J
     $@$H$7$FMQ$$$k$3$H$,$G$-$k(J.

   * Asir $@$HDL?.$9$k%W%m%;%9$OF10l$N%^%7%s>e$GF0:n$7$F$$$kI,MW$O$J$$(J. 
     $@$^$?(J, $@DL?.$K$*$1$k%P%$%H%*!<%@$O(J big-endian $@$KE}0l$7$F$"$k$?$a(J, 
     $@Aj<j@h$N%^%7%s$H%P%$%H%*!<%@$,0[$J$C$F$$$F$b9=$o$J$$(J.

   * $@0J2<$N=`Hw$,I,MW$G$"$k(J. $@$3$3$G(J, Asir $@$NF0$$$F$$$k%[%9%H$r(J `A', $@DL(J
     $@?.Aj<j$N%W%m%;%9$,5/F0$5$l$k%[%9%H$r(J `B' $@$H$9$k(J.

       1. $@%[%9%H(J `B' $@$N(J `csh' $@$N%5!<%A%Q%9$K5/F0$5$l$k%W%m%0%i%`$N$"$k(J
          $@%G%#%l%/%H%j$r$$$l$k(J. $@%W%m%0%i%`$O(J `rsh' $@$G5/F0$5$l$k(J. $@$7$?(J
          $@$,$C$F(J, $@%[%9%H(J `B' $@$N%5!<%A%Q%9$K(J $@$=$N%W%m%0%i%`$,F~$C$F$$$J(J
          $@$$>l9g$K$O5/F0$G$-$J$$(J. $@$3$N>l9g@dBP%Q%9$rM?$($k$+(J,
          `~/.cshrc' $@$N%5!<%A%Q%9$K$=$N%W%m%0%i%`$N$"$k%G%#%l%/%H%j$r(J
          $@DI2C$9$kI,MW$,$"$k(J. $@$=$N:](J, $@Aj<j@h%[%9%H$K$*$1$k%G%#%l%/%H%j(J
          $@$G$"$k$3$H$rK:$l$J$$$h$&$K$9$k$3$H(J.

       2. $@%[%9%H(J `B' $@$N(J `~/.rhosts' $@$K(J, $@%[%9%H(J `A' $@$N%[%9%HL>$rEPO?$9(J
          $@$k(J.

       3. `asir_plot' $@$J$I(J, `X' $@$H$N%3%M%/%7%g%s$bMQ$$$i$l$k>l9g(J,
          `Xserver' $@$KBP$7(J, $@I,MW$J%[%9%H$r(J authorize $@$5$;$k(J. `xhost' 
          $@$GI,MW$J%[%9%HL>$rDI2C$9$l$P$h$$(J.

       4. COMMAND $@$K$h$C$F$O(J, $@%9%?%C%/$rBgNL$K;HMQ$9$k$b$N$b$"$k$?$a(J,
          `.cshrc' $@$G%9%?%C%/%5%$%:$rBg$-$a(J (16MB $@DxEY(J) $@$K;XDj$7$F$*$/(J
          $@$N$,0BA4$G$"$k(J. $@%9%?%C%/%5%$%:$O(J `limit stacksize 16m'$@$J$I$H(J
          $@;XDj$9$k(J.

   * COMMAND $@$,(J, X $@>e$K%&%$%s%I%&$r3+$1$k>l9g(J, DISPLAY$@$,;XDj$5$l$l$P$=(J
     $@$NJ8;zNs$r(J, $@>JN,;~$K$O4D6-JQ?t(J `DISPLAY' $@$NCM$rMQ$$$k(J.

   * `tcpdebug()' $@$O(J, `tcpinit()' $@$HA4$/F1$80z?t$r$H$j(J, `tcpinit()' $@$,(J 
     `rsh' $@$K$h$j1s3V%W%m%;%9$r5/F0$9$k:]$N%3%^%s%I%i%$%s$rJV$9(J. $@99$K(J,
     Asir $@$O(J, `tcpinit()' $@$HF1MM1s3V%W%m%;%9$+$i$NDL?.3+;OMW5a$rBT$D(J. 
     $@$3$NH!?t$O(J, `tcpinit()' $@$,$&$^$/1s3V%W%m%;%9$r5/F0$G$-$J$$>l9g$K(J, 
     $@JV$5$l$?J8;zNs$r(J, COMMAND $@$r5/F0$9$k%^%7%s>e$G(J shell $@$+$iD>@\<B9T(J
     $@$7$F$_$F(J, $@5/F0$G$-$J$$M}M3$rD4$Y$?$j(J, $@$"$k$$$O(JCOMMAND $@$r%G%P%C%0(J
     $@$9$k>l9g$KMQ$$$k(J.

   * `tcpclose()' $@$OHV9f(J ID $@$NF~=PNO%9%H%j!<%`$rJD$8$k(J. ID $@$O(J
     `tcpinit()' $@$K$h$jJV$5$l$?CM$G$"$k(J. $@$3$l$K$h$jDL?.$O=*N;$7(J, $@1s3V(J
     $@%W%m%;%9$O=*N;$9$k(J.

   * Asir $@$,@5>o$7$?>l9g$K$OA4$F$NF~=PNO%9%H%j!<%`$O<+F0E*$KJD$8$i$l(J, 
     $@5/F0$5$l$F$$$k%W%m%;%9$OA4$F=*N;$9$k$,(J, $@0[>o=*N;$7$?>l9g(J, $@1s3V%W(J
     $@%m%;%9$,=*N;$7$J$$>l9g$b$"$k(J. Asir $@$,0[>o=*N;$7$?>l9g(J, $@1s3V%W%m%;(J
     $@%9$r5/F0$7$?%^%7%s>e$G(J `ps' $@$J$I$r5/F0$7$F(J, $@$b$7(J Asir $@$+$i5/F0$7(J
     $@$?%W%m%;%9$,;D$C$F$$$k>l9g(J, `kill' $@$9$kI,MW$,$"$k(J.

   * `ping()' $@$O(J, COMMAND $@$H$7$F(J `asir_ping' $@$rMQ$$$F(J `tcpinit()'$@$r8F(J
     $@$S=P$7$?8e;HMQ2DG=$JH!?t$G(J, $@DL?.$,@5$7$/9T$o$l$F$$$k$+$I$&$+$r%F(J
     $@%9%H$9$k$?$a$KMQ$$$k(J.

   * `ping()' $@$O0z?t$r$=$N$^$^(J `asir_ping' $@$KAw$k(J. `asir_ping' $@$OAw$i(J
     $@$l$?%G!<%?$r$=$N$^$^(J `Asir' $@$KJVAw$7(J, `ping()' $@$O$=$l$r%f!<%6$KJV(J
     $@$9(J.

     [15] tcpinit("localhost","asir_ping");
     7
     [16] ping(xyz);
     xyz
     [17] tcpclose(7);
     0
     [18] tcpdebug("localhost","asir_ping");
     rsh localhost -n "asir_ping geisha 1040 otemoyan:0.0>&/dev/null&">/dev/null
     ------------------------------------
     /* $@%^%7%s(J localhost $@>e$G(J */
     % asir_ping geisha 1040 otemoyan:0.0
     ------------------------------------
     7
     [19] ping((x+y)^10);
     x^10+10*y*x^9+45*y^2*x^8+120*y^3*x^7+210*y^4*x^6+252*y^5*x^5+210*y^6*x^4
     +120*y^7*x^3+45*y^8*x^2+10*y^9*x+y^10
     [20] tcpclose(7);
     0

$@;2>H(J
     `ifplot'

