/* ---------------------------------------------------------- 
%   (C)1992 Institute for New Generation Computer Technology 
%       (Read COPYRIGHT for detailed information.) 
----------------------------------------------------------- */
ICOT$B%U%j!<%=%U%H%&%'%"(B No.33  $B!X7ABVAG<-=q!Y(B
			92.8 release Ver.1
			93.3 update  Ver.1.1
				UNIX$BHGC10L@Z$j%W%m%0%i%`DI2C(B	

---------------------------------------------------------------
$B7ABVAG@\B3%F!<%V%k%(%G%#%?%^%K%e%"%k(B
					1991.1.30. Initial version
					1993.3     Ver1.1

$B#1!%35MW(B

$B!&7ABVAG@\B3%F!<%V%k%(%G%#%?$O!"C10L@Z$j%W%m%0%i%`$,FI$_9~$`7ABVAG@\B3%F!<%V%k(B
$B!!$r:n@.!"JT=8$9$k$?$a$K3+H/$7$?$b$N$G$"$k!#(B

$B!&%W%m%0%i%`$O!"%Q%=%3%s(BPC-9801$B$N(BMS-DOS$B4D6-$N$b$H$G!"(BTurbo C ver.2.0 $B$rMQ$$$F(B
$B!!3+H/$7$?!#$?$@$7!"%O!<%I$K0MB8$9$kItJ,$O$[$H$s$I$J$$$N$G!"B>$N5!<o>e$X$N0\?"(B
$B!!$OMF0W$G$"$k!#(B
  ($BK\%=%U%H%&%'%"$r(BUNIX$B>e$K0\?"$7$?$b$N$O!"(Bsyllabic/unix $B$K$"$k!#(B)


$B!&4XO"%U%!%$%k$NL>>N$O!"0J2<$NDL$j$G$"$k!#$$$:$l$b(B syllabic/pc.SJIS
  $B$K$"$k!#(B

$B!!!!(BEDI4.C$B!!!!!!!!!!%W%m%0%i%`$N%=!<%9%U%!%$%k(B
$B!!!!(Bconjtabl.dat$B!!!!(B0/1$B7?@\B3%G!<%?%U%!%$%k(B
$B!!!!(Bconjtabl.txt$B!!!!J8=q7?@\B3%G!<%?%U%!%$%k(B
$B!!!!(Bedihead.txt $B!!!!7ABVAG%G!<%?%U%!%$%k(B


$B#2!%F~=PNO%U%!%$%k(B

$B!&K\%W%m%0%i%`$O!"<!$N#3<oN`$N%U%!%$%k$r=hM}$NBP>]$H$7$F$$$k!#$3$l$i$O(B
  $B8e=R$N$h$&$K!"$$$:$l$b%F%-%9%H7?%U%!%$%k$G$"$k!#(B

$B!!(B(1) 0/1$B7?@\B3%G!<%?%U%!%$%k(B $B!'(B0$B$H(B1$B$NJB$S$GI=8=$5$l$?@\B3>pJs(B
$B!!(B(2) $BJ8=q7?@\B3%G!<%?%U%!%$%k!'%3!<%I$NAH9g$;$GI=8=$5$l$?@\B3>pJs(B
$B!!(B(3) $B7ABVAG%G!<%?%U%!%$%k!!!!!'3F7ABVAG$NIJ;lJ,N`!"8lNc$J$I$N>pJs(B


$B#2!%#1!!(B0/1$B7?@\B3%G!<%?%U%!%$%k(B

$B!&8=9T%7%9%F%`$G$N%U%!%$%kL>$O!"(B'conjtabl.dat'$B$G$"$k!#(B

$B!&(B512$B!_(B512$B8D$N(B'0'$B$^$?$O(B'1'$B$NJB$S$+$i$J$k%U%!%$%k!J(B262Kbyte$B!K!#(B

$B!&(Bn$BHVL\$N?t;z$O!"7ABVAG%3!<%I$,(B(n-1)/512$B!J(Bn-1$B$r(B512$B$G3d$C$?>&!K$N7ABVAG$H!"(B
$B!!(B(n-1)%512$B!J(Bn-1$B$r(B512$B$G3d$C$?M>$j!K$N7ABVAG$N:8$+$i1&$X$N@\B3$,2DG=$+(B(1)$BIT2DG=(B
$B!!$+(B(0)$B$r<($7$F$$$k!#(B


$B#2!%#2!!J8=q7?@\B3%G!<%?%U%!%$%k(B

$B!&8=9T%7%9%F%`$G$N%U%!%$%kL>$O!"(B'conjtabl.txt'$B$G$"$k!#(B

$B!&7ABVAG%3!<%I$H5-9f!J(B'x'$B!"(B'-'$B!K$NAH9g$;$K$h$C$F!"@\B3$,2DG=$J7ABVAG$NAH$rI=8=(B
$B!!$7$F$$$k!#(B

$B!&Nc$($P!"(B

    180 - 193 x 2, 3, 5

$B!!$H$$$&9T$O!"!V7ABVAG%3!<%I$,(B180$B$+$i(B193$B$^$G$N7ABVAG$O!"7ABVAG%3!<%I$,(B2$B!"(B3$B!"(B5
$B!!$N7ABVAG$H!":8$+$i1&$X$N@\B3$,2DG=$G$"$k!W$H$$$&>pJs$rI=8=$7$F$$$k!#(B

$B!!$^$?!"%9%Z!<%9$OL5;k$5$l$k$N$G!"$3$N>pJs$O(B

    180-193x2,3,5
    180     -    193   x  2 ,3 ,5

$B!!$N$h$&$K5-=R$9$k$3$H$b$G$-$k$,!"(B

    180-189,190-193 x 2-3, 5

$B!!$N$h$&$K!"(B'x'$B$NJRB&$G(B'-'$B$H(B','$B$r:.MQ$9$k$3$H$O$G$-$J$$!#(B

$B!&9TF,$,(B'*'$B$N9T$O!"@\B3>pJs$H$OL54X78$J%3%a%s%H9T$G$"$k!#(B


$B#2!%#3!!7ABVAG%G!<%?%U%!%$%k(B

$B!&8=9T%7%9%F%`$G$N%U%!%$%kL>$O!"(B'edihead.txt'$B$G$"$k!#(B

$B!&(B512$B8D$N7ABVAG%3!<%I$=$l$>$l$,<($7$F$$$k7ABVAG$N@bL@!JIJ;lJ,N`!"3hMQ7A$J$I!K(B
$B!!$H8lNc$r!"#1%3!<%I$K$D$-#19T!J(B65byte$B!K$:$D!"7W(B512$B9T$G5-=R$7$?%U%!%$%k!#(B

$B!&Nc$($P!"(B

$B!!!!(B024 $BI{;l(B                         $B$5$i$K!?>/$7!?$=$C$H(B          
$B!!!!(B104 $B7AF08lHx!'=*;_(B               $B!J@E$+!K$@!*(B                  

$B!!$H$$$&9T$O!"$=$l$>$l!V%3!<%IHV9f(B24$B$N7ABVAG$O!"I{;l$G!"8lNc$H$7$F$O!X$5$i$K!Y(B
$B!!!X>/$7!Y!X$=$C$H!Y$,$"$k!W!"!V%3!<%IHV9f(B104$B$N7ABVAG$O!"7AMFF0;l=*;_7A$N8lHx(B
$B!!$G!"8lNc$O!X$@!Y$N$_$G$"$k!W$H$$$&>pJs$rI=8=$7$F$$$k!#(B

$B!&Nc$($P!"(B

$B!!!!(B458 $B=u;lAjEv!"!_BN!"O"BN!~!_=u;l(B $B$+$.$j$O!?$3$H$K$O!*(B          

$B!!$H$$$&9T$O!"!V%3!<%IHV9f(B458$B$N7ABVAG$O!"=u;lAjEv8l$G!"1&@\B3$OBN8@$OIT2D!"3h(B
$B!!MQ8l$NO"BN7A!":8@\B3$O=u;l$OIT2D!W$H$$$&>pJs$rI=8=$7$F$$$k!#(B

$B!&7ABVAG$N@bL@$K$*$$$F$O!"3hMQ8l$N3hMQ7A$N<1JL$K0J2<$N5-9f$,MQ$$$i$l$F$$$k!#(B

$B!!!!!'L$#1!!L$A37A!"=uF0;l!V$J$$!W$,$D$/!!!!!!!!!!!!!!(B
$B!!!!!'L$#2!!L$A37A!"=uF0;l!V$L!W$,$D$/!!!!!!!!!!!!!!!!(B
$B!!!!!'L$#3!!L$A37A!"=uF0;l!V$l$k!W$,$D$/!!!!!!!!!!!!!!(B
$B!!!!!'L$#4!!L$A37A!"=uF0;l!V$&!W$,$D$/!!!!!!!!!!!!!!!!(B
$B!!!!!'MQ#1!!O"MQ7A!"F0;l7?!"!V$^$9!W$,$D$/!!!!!!!!!!!!(B
$B!!!!!'MQ#2!!O"MQ7A!"!V$?!W$,$D$/!!!!!!!!!!!!!!!!!!!!!!(B
$B!!!!!'MQ#3!!O"MQ7A!"7AMF;l!?7AMFF0;l7?!"F0;l$K$+$+$k!!(B
$B!!!!!'MQ#4!!O"MQ7A!"7AMFF0;l7?!"O"MQCf;_K!!!!!!!!!!!!!(B
$B!!!!!'MQ#5!!O"MQ7A!"7AMF;l7?!"!V$4$6$$$^$9!W$,$D$/!!!!(B
$B!!!!!'=*;_!!=*;_7A!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(B
$B!!!!!'O"BN!!O"BN7A!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(B
$B!!!!!'2>Dj!!2>Dj7A!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(B
$B!!!!!'L?Na!!L?Na7A!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(B

$B!&7ABVAG$N8lNc$K$*$$$F$O!"0J2<$N$h$&$J5-9f$,MQ$$$i$l$F$$$k!#(B

$B!!!!!?!!!!!!J#?t$N8lNc$rJB$Y$k$H$-$N6h@Z$j(B
$B!!!!!*!!!!!!$=$N7ABVAG$N8lNc$,!"<($5$l$F$$$k$b$N$K?T$-$k$3$H$r<($9(B
$B!!!!!J!K!!!!8l$N0lIt$G$O$J$$JdB-ItJ,$r<($9(B
$B!!!!!N!O!!!!0[I=5-!"$"$k$$$O8_492DG=ItJ,$r<($9(B

$B!&8=9T$N%7%9%F%`$G$OL$;HMQ$N7ABVAG%3!<%I$K$D$$$F$O!"(B

$B!!!!(B375 $BM=Hw(B                         $B!cM=Hw!d(B                      

$B!!$N$h$&$K5-=R$5$l$F$$$k!#(B


$B#3!%5!G=(B

$B!&K\%W%m%0%i%`$O!"I=<($5$l$k%a%K%e!<$K=>$C$FA`:n$9$k$3$H$K$h$C$F!"7ABVAG@\B3%F(B
$B!!!<%V%k$r:n@.$7$?$j!"$9$G$K:n@.:Q$_$N%F!<%V%k$KBP$7$FJT=8!"8!:w!"I=<($J$I$N=h(B
$B!!M}$r$7$?$j$9$k$3$H$,$G$-$k!#(B

$B!&%H%C%W%a%K%e!<$O<!$N$h$&$KI=<($5$l$k!#(B

$B!!!!(B**TOP MENU**
$B!!!!(B0 : 0/1 $B7?$NFI9~(B    1 : $BJ8=q7?$NFI9~(B    2 : $B%G!<%?$NI=<((B
$B!!!!(B3 : $B%G!<%?$NF~NO(B    4 : 0/1 $B7?$N:n@.(B    Q : $B=*N;(B

$B!!$=$l$>$l$NA*Br;h$K$h$C$F<B9T$5$l$k5!G=$O<!$NDL$j$G$"$k!#(B

$B!!!!(B0$B!!!D!!:n@.:Q$_$N(B0/1$B7?@\B3%G!<%?%U%!%$%k$r%a%b%j$KFI$_9~$`(B
$B!!!!(B1$B!!!D!!:n@.:Q$_$NJ8=q7?@\B3%G!<%?%U%!%$%k$r%a%b%j$KFI$_9~$`(B
$B!!!!(B2$B!!!D!!I,MW$J@\B3>pJs$r8!:w$7$FI=<($9$k(B
$B!!!!(B3$B!!!D!!@\B3>pJs$rF~NO$9$k(B
$B!!!!(B4$B!!!D!!%a%b%jFb$N>pJs$r%G%#%9%/>e$N(B0/1$B7?@\B3%G!<%?%U%!%$%k$X=q$-=P$9(B
$B!!!!(BQ$B!!!D!!%W%m%0%i%`$N=*N;(B

$B!&@\B3>pJsI=<(!J%H%C%W%a%K%e!<$G(B2$B$rA*Br$7$?>l9g!K$N%a%K%e!<$O!"<!$N$h$&$KI=<((B
$B!!$5$l$k!#(B

$B!!!!(B--Show Data Menu--
$B!!!!(B0 : $BHO0O;XDj(B   1 : $B:8;XDj(B   2 : $B1&;XDj(B   Q : TOP MENU

$B!!$=$l$>$l$NA*Br;h$K$h$C$F<B9T$5$l$k5!G=$O<!$NDL$j$G$"$k!#(B

$B!!!!(B0$B!!!D!!:81&$N7ABVAG%3!<%I$r$=$l$>$lHO0O$G;XDj$7$F!"@\B3>pJs$rI=<($5$;$k(B
$B!!!!(B1$B!!!D!!:8$N7ABVAG%3!<%I$N$_$r;XDj$7$F!"@\B3>pJs$rI=<($5$;$k(B
$B!!!!(B2$B!!!D!!1&$N7ABVAG%3!<%I$N$_$r;XDj$7$F!"@\B3>pJs$rI=<($5$;$k(B
$B!!!!(BQ$B!!!D!!%H%C%W%a%K%e!<$XLa$k(B

$B!&@\B3>pJsF~NO!J%H%C%W%a%K%e!<$G(B3$B$rA*Br$7$?>l9g!K$N%a%K%e!<$O!"<!$N$h$&$KI=<((B
$B!!$5$l$k!#(B

$B!!!!(B--Give Data Menu--
$B!!!!(B0 : $BHO0O;XDj(B   1 : $B:8;XDj(B     2 : $B1&;XDj(B   3 : $BAH;XDj(B
$B!!!!(B4 : $B1&$rJ#<L(B   5 : $B:8$rJ#<L(B   6 : $B%/%j%"(B   Q : TOP MENU

$B!!$=$l$>$l$NA*Br;h$K$h$C$F<B9T$5$l$k5!G=$O<!$NDL$j$G$"$k!#(B

$B!!!!(B0$B!!!D!!:81&$N7ABVAG%3!<%I$r$=$l$>$lHO0O$G;XDj$7$F!"@\B3>pJs!J2D!?IT2D!K$r(B
$B!!!!!!!!!!(B $BF~NO$9$k(B
$B!!!!(B1$B!!!D!!:8$N7ABVAG%3!<%I$NHO0O$O8GDj$7$F!"1&$N7ABVAG%3!<%I$NHO0O$rJQ$($J$,(B
$B!!!!!!!!!!(B $B$i!"@\B32D$N>pJs$rO"B3E*$KF~NO$9$k(B
$B!!!!(B2$B!!!D!!1&$N7ABVAG%3!<%I$NHO0O$O8GDj$7$F!":8$N7ABVAG%3!<%I$NHO0O$rJQ$($J$,(B
$B!!!!!!!!!!(B $B$i!"@\B32D$N>pJs$rO"B3E*$KF~NO$9$k(B
$B!!!!(B3$B!!!D!!:81&$N7ABVAG%3!<%I$r#1$D$:$D;XDj$7$F!"@\B3>pJs!J2D!?IT2D!K$rF~NO$9(B
$B!!!!!!!!!!(B $B$k!#(B
$B!!!!(B4$B!!!D!!$"$k7ABVAG%3!<%I$N1&@\B3$N>pJs$r!"$=$N$^$^B>$N7ABVAG%3!<%I$N1&@\B3(B
$B!!!!!!!!!!(B $B>pJs$H$7$F%3%T!<$9$k(B
$B!!!!(B5$B!!!D!!$"$k7ABVAG%3!<%I$N:8@\B3$N>pJs$r!"$=$N$^$^B>$N7ABVAG%3!<%I$N:8@\B3(B
$B!!!!!!!!!!(B $B>pJs$H$7$F%3%T!<$9$k(B
$B!!!!(B6$B!!!D!!FCDj$NHO0O$N7ABVAG%3!<%I$N@\B3!J:8!"1&!"$^$?$O$=$NN>J}!K$r!"$9$Y$F(B
$B!!!!!!!!!!(B $BIT2D$K!J!a=i4|2=!K$9$k(B
$B!!!!(BQ$B!!!D!!%H%C%W%a%K%e!<$XLa$k(B


$B#4!%%W%m%0%i%`$N9=B$(B

$B!&K\%W%m%0%i%`$O!"0J2<$N$h$&$J%W%m%7!<%8%c$+$i9=@.$5$l$F$$$k!#(B

$B!!!!(Bmain		$B%a%$%s%k!<%A%s!'%H%C%W%a%K%e!<$rI=<($9$k(B

$B!!!JHFMQ$N%5%V%k!<%A%s!K(B
$B!!!!(Bsubstring(str,pos1,leng,substr)
			$BJ8;zNs(Bstr$B$+$i@hF,0LCV(Bpos1$B!"D9$5(Bleng$B$NItJ,J8;zNs(Bsubstr
			$B$rCj=P$9$k(B
$B!!!!(Breverse(s)		$BJ8;zNs(Bs$B$rH?E>$9$k(B
$B!!!!(Bitoahex(n,s)	$B@0?t(Bn$B$r(B16$B?JI=<($NJ8;zNs(Bs$B$KJQ49$9$k(B

$B!!!!(Binit_conjtabl()	$B@\B3%F!<%V%k%G!<%?(Bconjtabl$B$r=i4|2=$9$k(B
$B!!!!(Bentry_conj(p,q,val)	$B7ABVAG%3!<%I(Bp$B$H(Bq$B$N:8$+$i1&$X$N@\B3$N2DIT2D!J(Bval=0/1$B!K(B
$B!!!!!!!!!!!!!!!!!!!!!!!!$r!"@\B3%F!<%V%k%G!<%?(Bconjtabl$B$XEPO?$9$k(B
$B!!!!(Bint check_conj(p,q)	$B7ABVAG%3!<%I(Bp$B$H(Bq$B$N:8$+$i1&$X$N@\B3$N2DIT2D$r!"(B0/1$B$NCM(B
$B!!!!!!!!!!!!!!!!!!!!!!!!$H$7$FJV$9(B

$B!!!!(Bwait_return()	$B2~9T%3!<%I$,F~NO$5$l$k$^$GBT$D(B
$B!!!!(Bnew_line()		$B2~9T%3!<%I$r2hLL$X=PNO$9$k(B

$B!!!J%G!<%?$N:n@.!"JT=8!"I=<(!K(B
$B!!!!(Bmake_zero()		$B%a%b%jFb$N>pJs$r%G%#%9%/>e$N(B0/1$B7?@\B3%G!<%?%U%!%$%k$X(B
			$B=q$-=P$9!J%H%C%W%a%K%e!<(B4$B!K(B
$B!!!!(Bread_zero()		$B:n@.:Q$_$N(B0/1$B7?@\B3%G!<%?%U%!%$%k$r%a%b%j$KFI$_9~$`(B
			$B!J%H%C%W%a%K%e!<(B0$B!K(B
$B!!!!(Bread_docu()		$B:n@.:Q$_$NJ8=q7?@\B3%G!<%?%U%!%$%k$r%a%b%j$KFI$_9~$`(B
			$B!J%H%C%W%a%K%e!<(B1$B!K(B

$B!!!!(Bshow_data()		$B>pJsI=<(%a%K%e!<$rI=<($9$k(B
$B!!!!(Bshow_data0()	$B:81&$N7ABVAG%3!<%I$r$=$l$>$lHO0O$G;XDj$7$F!"@\B3>pJs$r(B
			$BI=<($5$;$k!J>pJsI=<(%a%K%e!<(B0$B!K(B
$B!!!!(Bshow_data1()	$B:8$N7ABVAG%3!<%I$N$_$r;XDj$7$F!"@\B3>pJs$rI=<($5$;$k(B
			$B!J>pJsI=<(%a%K%e!<(B1$B!K(B
$B!!!!(Bshow_data2()	$B1&$N7ABVAG%3!<%I$N$_$r;XDj$7$F!"@\B3>pJs$rI=<($5$;$k(B
			$B!J>pJsI=<(%a%K%e!<(B2$B!K(B

$B!!!!(Bgive_data()		$B>pJsF~NO%a%K%e!<$rI=<($9$k(B
$B!!!!(Bgive_data0()	$B:81&$N7ABVAG%3!<%I$r$=$l$>$lHO0O$G;XDj$7$F!"@\B3>pJs$r(B
			$BF~NO$9$k!J>pJsF~NO%a%K%e!<(B0$B!K(B
$B!!!!(Bgive_data1()	$B:8$N7ABVAG%3!<%I$NHO0O$O8GDj$7$F!"1&$N7ABVAG%3!<%I$NHO(B
			$B0O$rJQ$($J$,$iF~NO$9$k!J>pJsF~NO%a%K%e!<(B1$B!K(B
$B!!!!(Bgive_data2()	$B1&$N7ABVAG%3!<%I$NHO0O$O8GDj$7$F!":8$N7ABVAG%3!<%I$NHO(B
			$B0O$rJQ$($J$,F~NO$9$k!J>pJsF~NO%a%K%e!<(B2$B!K(B
$B!!!!(Bgive_data3()	$B:81&$N7ABVAG%3!<%I$r#1$D$:$D;XDj$7$F!"@\B3>pJs$rF~NO$9(B
			$B$k!J>pJsF~NO%a%K%e!<(B3$B!K(B
$B!!!!(Bgive_data4()	$B$"$k7ABVAG%3!<%I$N1&@\B3$N>pJs$r!"$=$N$^$^B>$N7ABVAG%3(B
			$B!<%I$N1&@\B3>pJs$H$7$F%3%T!<$9$k!J>pJsF~NO%a%K%e!<(B4$B!K(B
$B!!!!(Bgive_data5()	$B$"$k7ABVAG%3!<%I$N:8@\B3$N>pJs$r!"$=$N$^$^B>$N7ABVAG%3(B
			$B!<%I$N:8@\B3>pJs$H$7$F%3%T!<$9$k!J>pJsF~NO%a%K%e!<(B5$B!K(B
$B!!!!(Bgive_data6()	$BFCDj$NHO0O$N7ABVAG%3!<%I$N@\B3$r!"$9$Y$FIT2D$K!J!a=i4|(B
			$B2=!K$9$k!J>pJsF~NO%a%K%e!<(B6$B!K(B

$B0J>e(B
