`open_file', `close_file', `get_line', `get_byte', `put_byte', `purge_stdin'
----------------------------------------------------------------------------

open_file("FILENAME"[,"MODE"])
     :: FILENAME $B$r%*!<%W%s$9$k(B.

close_file(NUM)
     :: $B<1JL;R(B NUM $B$N%U%!%$%k$r%/%m!<%:$9$k(B.

get_line([NUM])
     :: $B<1JL;R(B NUM $B$N%U%!%$%k$+$i(B 1 $B9TFI$`(B.

get_byte(NUM)
     :: $B<1JL;R(B NUM $B$N%U%!%$%k$+$i(B 1 $B%P%$%HFI$`(B.

put_byte(NUM)
     :: $B<1JL;R(B NUM $B$N%U%!%$%k$K(B 1 $B%P%$%H=q$/(B.

purge_stdin()

purge_stdin()
     :: $BI8=`F~NO$N%P%C%U%!$r%/%j%"$9$k(B.

RETURN
     `open_file()' : $B@0?t(B ($B<1JL;R(B); `close_file()' : 1; `get_line()' :
     $BJ8;zNs(B; `get_byte()', `put_byte()' : $B@0?t(B

FILENAME
     $B%U%!%$%kL>(B ($B%Q%9L>(B)

MODE
     $BJ8;zNs(B

NUM
     $BHsIi@0?t(B ($B%U%!%$%k<1JL;R(B)

   * `open_file()' $B$O%U%!%$%k$r%*!<%W%s$9$k(B. MODE $B;XDj$,(B
     $B$J$$>l9gFI$_=P$7MQ(B, MODE $B;XDj$,$"$k>l9g$K$O(B, C $B$NI8=`F~=PNO(B $B4X?t(B
     `fopen()' $B$KBP$9$k%b!<%I;XDj$H$_$J$9(B. $B$?$H$($P?75,=q$-9~$_(B
     $BMQ$N>l9g(B `"w"', $BKvHxDI2C$N>l9g(B `"a"' $B$J$I(B.  $B@.8y$7$?>l9g(B,
     $B%U%!%$%k<1JL;R$H$7$FHsIi@0?t$rJV$9(B. $B<:GT$N>l9g%(%i!<$H$J$k(B.
     $BITMW$K$J$C$?%U%!%$%k$O(B `close_file()' $B$G%/%m!<%:$9$k(B.

   * `get_line()' $B$O8=:_%*!<%W%s$7$F$$$k%U%!%$%k$+$i(B 1 $B9TFI$_(B,
     $BJ8;zNs$H$7$FJV$9(B. $B0z?t$,$J$$>l9g(B, $BI8=`F~NO$+$i(B 1 $B9TFI$`(B.

   * `get_byte()' $B$O8=:_%*!<%W%s$7$F$$$k%U%!%$%k$+$i(B 1 $B%P%$%HFI$_(B
     $B@0?t$H$7$FJV$9(B.

   * `put_byte()' $B$O8=:_%*!<%W%s$7$F$$$k%U%!%$%k$K(B 1 $B%P%$%H=q$-(B,
     $B$=$N%P%$%H$r@0?t$H$7$FJV$9(B.

   * $B%U%!%$%k$N=*$j$^$GFI$s$@8e$K(B `get_line()' $B$,8F$P$l$?>l9g(B, $B@0?t$N(B 0
     $B$rJV$9(B.

   * $BFI$_=P$7$?J8;zNs$O(B, $BI,MW$,$"$l$P(B `sub_str()' $B$J$I$NJ8;zNs=hM}(B
     $B4X?t$G2C9)$7$?$N$A(B `eval_str()' $B$K$h$jFbIt7A<0$KJQ49$G$-$k(B.

   * `purge_stdin()' $B$O(B, $BI8=`F~NO%P%C%U%!$r6u$K$9$k(B.  $B4X?tFb$G(B
     `get_line()' $B$K$h$jI8=`F~NO$+$iJ8;zNs$r<u$1<h$k>l9g(B,
     $B4{$K%P%C%U%!Fb$KB8:_$9$kJ8;zNs$K$h$k8mF0:n$rKI$0$?$a$K$"$i$+$8$a(B
     $B8F$S=P$9(B.

     [185] Id = open_file("test");
     0
     [186] get_line(Id);
     12345
     
     [187] get_line(Id);
     67890
     
     [188] get_line(Id);
     0
     [189] type(@@);
     0
     [190] close_file(Id);
     1
     [191] open_file("test");
     1
     [192] get_line(1);
     12345
     
     [193] get_byte(1);
     54                   /* the ASCII code of '6' */
     [194] get_line(1);
     7890                 /* the rest of the last line */
     [195] def test() { return get_line(); }
     [196] def test1() { purge_stdin(); return get_line(); }
     [197] test();
                          /* a remaining newline character has been read */
                          /* returns immediately */
     [198] test1();
     123;                 /* input from a keyboard */
     123;                 /* returned value */
     
     [199]

$B;2>H(B
     *Note `eval_str': eval_str, *Note `str_len str_chr sub_str':
     str_len str_chr sub_str.

