🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.sci.lang
Article #571

Re: o-Kokoro-atari (Re: [wanted] I'm looking 4 gcc)

#571
From: Junn Ohta
Date: Mon, 01 Jul 1996 00:00
141 lines
7923 bytes
fj.sci.lang,fj.kanji$B$N5-;v(B<4r7hvq$pko@ns.src.ricoh.co.jp>$B$G;d$O=q$-$^$7$?!#(B
> $B$+$i(B^H$B!"(B^J$B!"(B^K$B!"(B^L$B0J30$N$9$Y$F$N@)8fJ8;z$r<h$j=|$$(B
> $B$?$b$N$H0lCW$7$^$9!#(Byukinet$B$5$s$,%7%U%H(BJIS$B$GEj9F$5(B
> $B$l$?5-;v$,$3$A$i$KFO$/$^$G$N7PO)>e$G!":G>e0L%S%C%H(B
> $B$,Mn$A$F@)8f%3!<%I$b<N$F$i$l$?$C$F$3$H$G$9$M!#>pJs(B
> $B$N7gB;$,Bg$-$$$N$G!"(Byukinet$B$5$s$NH/8@ItJ,$rI|85$G(B
> $B$-$k8+9~$_$O$"$j$^$;$s!#(B

$B$H=q$-$^$7$?$,!"BgH>$NJ8;z$,$R$i$,$J$G$"$k$H$$$&2>(B
$BDj$N$b$H$K!"<:$o$l$?>pJs$N2sI|$r$"$kDxEY;n$_$k$3$H(B
$B$O$G$-$=$&$G$9!#C1=c$J%W%m%0%i%`$r=q$$$F<B83$7$F$_(B
$B$?$H$3$m!"(Byukinet$B$5$s$NH/8@ItJ,$+$i<!$N$h$&$JJ8;z(B
$BNs$,=&$$=P$;$^$7$?!#(B

 -------------------------------------------------
 | $B$O$8$a$^$7$F(B
 | 
 | ?$B$7$/$3$l$i(B??$B$N5-(B?$B$^$;$F$$$?$@$-$^$7$?!#(B
 | ?$B$U$?$j$N$"$k(B??$B$r$k$i$C$F$$$k$H(B?$B$$$^$9$M!#(B
 | $B$G$b$L(B?$B$N(B?$B$*(B?$B$r$D$1$k$O(B
 | ?$B$*$U$?$j$N$"$k(B??$B$G$O$A$g$C$H$/$I$$(B?$B$6$8$,$9$k$N$G$k$O(B
 | ?$B$*$U$?$j$N(B??$B$H$J$,$7$F$7$^$$$^$9!#(B
 | $B$@$+$i(B?$B$U$?$j$N(B??$B$H$O$k$i$C$F$$$^$;$s!#(B
 | $B$i$&$H$7$F$b$A$g$C$H$V$C$-$i$\$&$J(B???$B$,$"$j$^$9!#(B
 | $B$?$@$3$l$i$O(B
 | $B$j$K$P$7$F$N$^8=$N$3$H$G!"$+$,$N(B
 | ?$B$U$?$j$N$l(B?
 | $B$r$?$C$F$_$k$h(B?$B$J$s$F$3$H$b8@$$$^$9!#(B
 | 
 | ?$B$&$b$`!"$J$s$@$+$,$+$i$J$/$J$C$F$-$?!#(B
 -------------------------------------------------

$B$b$A$m$s!"(B2$B%P%$%H$H$b@)8fJ8;z$K$J$C$FMn$A$F$7$^$C(B
$B$?J8;z$OB8:_$rCN$k$3$H$b$G$-$J$$$N$G!">e$NJ8>O$O7j(B
$B3+$-$G$9!#:G8e$NJ8>O$O!V$J$s$@$+Lu$,J,$+$i$J$/$J$C(B
$B$F$-$?!W$_$?$$$G$9$M!#(B

yukinet$B$5$s$NH/8@ItJ,$N85%G!<%?$O<!$N$b$N$G$9!#(B

 -------------------------------------------------
 | M6_\5D
 | 
 | y5-1jg^HjAL^KLG\9D"=>+\5=B
 | Lj
 | uS=hL i{v
 | pigAD"iFv"\7KB
 | E`J^LjLw(xpB/iM
 | u(S=hL i{vEM?eAF-G"
 | 46*7iLEiM
 | u(S=hL{vFH*5D5\"\7B
 | >)guS=hL{vFMigAD"\9qB
 | g$F5D`?eAFTA+gZ$HC[W* h\7B
 | =>1jgM
 | hIN5DL\^L;L1FEA)*L
 | uS=hLj
 | p=AD]ifvHqD1F`^L>"\7B
 | 
 | c$`^AHq>)*)gH-HAD+=B
 -------------------------------------------------

$B$3$l$r<!$N%W%m%0%i%`(B

 -------------------------------------------------
 | /* $BCx:n8"$OJ|4~$9$k!#Cx:n?M3J8"$O<gD%$7$J$$!#$I$&$H$G$b$*9%$-$K!#(B*/
 | #include <stdio.h>
 | main()
 | {
 | 	int c, c1;
 | 
 | 	while ((c = getchar()) != EOF) {
 | 		if (c == '\n') {
 | 			putchar('\n');
 | 			continue;
 | 		}
 | 		if (c < ' ') {
 | 			/* $B@)8fJ8;z$,$"$C$?$i(BSJIS$B$N(B1$B%P%$%H$a$H2>Dj$9$k(B */
 | 			c += 0x80;
 | 			if ((c1 = getchar()) == EOF) {
 | 				printf("[%02x]\n", c);
 | 				break;
 | 			}
 | 		} else {
 | 			/* 1$B%P%$%HL\$,Mn$A$F$$$k$+$b!#$R$i$,$J$r2>Dj$9$k(B */
 | 			c1 = c;
 | 			c = 0x82;
 | 		}
 | 		if (c1 < 0x40) {
 | 			putchar(c);
 | 			putchar(c1 + 0x80);
 | 		} else if (c1 >= 0x7d) {
 | 			putchar(c);
 | 			putchar(c1);
 | 		} else if (c == 0x82 && c1 == 0x41 || c1 == 0x42) {
 | 			/* $B6gFIE@$+$b$7$l$J$$(B */
 | 			printf("(%c%c/%c%c/%c%c)",
 | 				c, c1, c, c1 + 0x80, 0x81, c1);
 | 		} else {
 | 			printf("(%c%c/%c%c)", c, c1, c, c1 + 0x80);
 | 		}
 | 	}
 | 	exit(0);
 | }
 -------------------------------------------------

$B$K$+$1$k$H<!$N=PNO$,F@$i$l$k$N$G!"$3$l$+$i$=$l$i$7(B
$B$$J8;z$rA*Br$7$?(B($B$"$k$$$O$7$J$$$G(B?$B$K$7$?(B)$B$o$1$G$9!#(B

 -------------------------------------------------
 | ($B#.(B/$B$O(B)$B$8(B($B#@(B/$B$a(B)($B#=(B/$B$^(B)$B$7(B($B#%(B/$B$F(B)
 | 
 | ($B#Z(B/$B${(B)$B$7$/$3(B($B#K(B/$B$l(B)($B#H(B/$B$i(B)($B/K(B/$B0l(B)($B#"(B/$B$C(B/$B!"(B)($B#-(B/$B$N(B)($B5-(B/$B6N(B)($B#((B/$B$I(B)($B#=(B/$B$^(B)
 | $B$;(B($B#%(B/$B$F(B)$B$$$?$@$-(B($B#=(B/$B$^(B)$B$7$?(B($B##(B/$B$D(B/$B!#(B)
 | ($B#-(B/$B$N(B)($B#K(B/$B$l(B)
 | ($B#V(B/$B$w(B)($B#4(B/$B$U(B)$B$?(B($B#I(B/$B$j(B)($B#-(B/$B$N(B)$B$"(B($B#J(B/$B$k(B)($B#\(B/$B$}(B)($B#W(B/$B$x(B)
 | ($B#Q(B/$B$r(B)($B#J(B/$B$k(B)($B#H(B/$B$i(B)($B#"(B/$B$C(B/$B!"(B)($B#%(B/$B$F(B)$B$$(B($B#J(B/$B$k(B)($B#'(B/$B$H(B)($B#W(B/$B$x(B)$B$$(B($B#=(B/$B$^(B)$B$9(B
 | ($B#,(B/$B$M(B)($B##(B/$B$D(B/$B!#(B)
 | ($B#&(B/$B$G(B)($B#A(B/$B$b(B)($B#+(B/$B$L(B)($B7K(B/$B8l(B)($B#-(B/$B$N(B)($B#X(B/$B$y(B)$B$*(B($B#Y(B/$B$z(B)($B#Q(B/$B$r(B)($B##(B/$B$D(B/$B!#(B)$B$1(B
 | ($B#J(B/$B$k(B)($B#.(B/$B$O(B)
 | ($B#V(B/$B$w(B)$B$*(B($B#4(B/$B$U(B)$B$?(B($B#I(B/$B$j(B)($B#-(B/$B$N(B)$B$"(B($B#J(B/$B$k(B)($B#\(B/$B$}(B)($B#W(B/$B$x(B)($B#&(B/$B$G(B)($B#.(B/$B$O(B)$B$A(B
 | ($B#F(B/$B$g(B)($B#"(B/$B$C(B/$B!"(B)($B#'(B/$B$H(B)$B$/(B($B#((B/$B$I(B)$B$$(B
 | $B$6$8$,$9(B($B#J(B/$B$k(B)($B#-(B/$B$N(B)($B#&(B/$B$G(B)($B#J(B/$B$k(B)($B#.(B/$B$O(B)
 | ($B#V(B/$B$w(B)$B$*(B($B#4(B/$B$U(B)$B$?(B($B#I(B/$B$j(B)($B#-(B/$B$N(B)($B#\(B/$B$}(B)($B#W(B/$B$x(B)($B#'(B/$B$H(B)($B#)(B/$B$J(B)$B$,$7(B($B#%(B/$B$F(B)$B$7(B
 | ($B#=(B/$B$^(B)$B$$(B($B#=(B/$B$^(B)$B$9(B($B##(B/$B$D(B/$B!#(B)
 | $B$@$+(B($B#H(B/$B$i(B)($B#V(B/$B$w(B)($B#4(B/$B$U(B)$B$?(B($B#I(B/$B$j(B)($B#-(B/$B$N(B)($B#\(B/$B$}(B)($B#W(B/$B$x(B)($B#'(B/$B$H(B)($B#.(B/$B$O(B)
 | ($B#J(B/$B$k(B)($B#H(B/$B$i(B)($B#"(B/$B$C(B/$B!"(B)($B#%(B/$B$F(B)$B$$(B($B#=(B/$B$^(B)$B$;(B($B#R(B/$B$s(B)($B##(B/$B$D(B/$B!#(B)
 | ($B#H(B/$B$i(B)$B$&(B($B#'(B/$B$H(B)$B$7(B($B#%(B/$B$F(B)($B#A(B/$B$b(B)$B$A(B($B#F(B/$B$g(B)($B#"(B/$B$C(B/$B!"(B)($B#'(B/$B$H(B)($B#5(B/$B$V(B)($B#"(B/$B$C(B/$B!"(B)
 | $B$-(B($B#H(B/$B$i(B)($B#;(B/$B$\(B)$B$&(B($B#)(B/$B$J(B)($B#$(B/$B$E(B)($B#<(B/$B$](B)($B#8(B/$B$Y(B)$B$,$"(B($B#I(B/$B$j(B)($B#=(B/$B$^(B)$B$9(B($B##(B/$B$D(B/$B!#(B)
 | $B$?$@$3(B($B#K(B/$B$l(B)($B#H(B/$B$i(B)($B#.(B/$B$O(B)
 | ($B#I(B/$B$j(B)($B#*(B/$B$K(B)($B#/(B/$B$P(B)$B$7(B($B#%(B/$B$F(B)($B#-(B/$B$N(B)($B#=(B/$B$^(B)$B8=(B($B#-(B/$B$N(B)$B$3(B($B#'(B/$B$H(B)($B#&(B/$B$G(B)
 | ($B#"(B/$B$C(B/$B!"(B)$B$+$,(B($B#-(B/$B$N(B)
 | ($B#V(B/$B$w(B)($B#4(B/$B$U(B)$B$?(B($B#I(B/$B$j(B)($B#-(B/$B$N(B)($B#K(B/$B$l(B)
 | ($B#Q(B/$B$r(B)$B$?(B($B#"(B/$B$C(B/$B!"(B)($B#%(B/$B$F(B)($B#>(B/$B$_(B)($B#J(B/$B$k(B)($B#G(B/$B$h(B)($B#W(B/$B$x(B)($B#)(B/$B$J(B)($B#R(B/$B$s(B)
 | ($B#%(B/$B$F(B)$B$3(B($B#'(B/$B$H(B)($B#A(B/$B$b(B)$B8@$$(B($B#=(B/$B$^(B)$B$9(B($B##(B/$B$D(B/$B!#(B)
 | 
 | ($B#D(B/$B$e(B)$B$&(B($B#A(B/$B$b(B)($B#?(B/$B$`(B)($B#"(B/$B$C(B/$B!"(B)($B#)(B/$B$J(B)($B#R(B/$B$s(B)$B$@$+$,$+(B($B#H(B/$B$i(B)($B#)(B/$B$J(B)$B$/(B
 | ($B#)(B/$B$J(B)($B#"(B/$B$C(B/$B!"(B)($B#%(B/$B$F(B)$B$-$?(B($B##(B/$B$D(B/$B!#(B)
 -------------------------------------------------
--
$BB@ED=c(B(Junn Ohta) ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%";v6H%;%s%?!<(B
ohta@src.ricoh.co.jp/JCF00656@niftyserve.or.jp
Technical Details
Message-ID: <4r8sbc$aq1@ns.src.ricoh.co.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <4q7ui8$9ic@ns.src.ricoh.co.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 10e593,52159aade74bc6fe,start
X-Google-Attributes: gid10e593,public
X-Google-Thread: ffb0e,17ecbbf1ff8bbd25
X-Google-Attributes: gidffb0e,public
From: ohta@src.ricoh.co.jp (Junn Ohta)
Subject: Re: o-Kokoro-atari (Re: [wanted] I'm looking 4 gcc)
Date: 1996/07/01
Message-ID: <4r8sbc$aq1@ns.src.ricoh.co.jp>
X-Deja-AN: 163122796
references: <4q7ui8$9ic@ns.src.ricoh.co.jp>
organization: RICOH Co., Ltd., TOKYO, JAPAN
newsgroups: fj.sci.lang,fj.kanji