Fre00712 セルオートマトンのプログラムですだ.

#0000 sci1250  9007251723

セルオートマトンのプログラムです( for PC-9801)
関連の話題,感想をお待ちしています            KEII-I

#0001 sci1250  9007251744

セルオートマトンをPC-9801シリーズで描画しませう.

−−−−−−−−−−−−−−−−−−−
私の職場のアルバイト氏が作成したプログラムです.
(転載・編集についての許可はいただいております)
くわしくは,添付のドキュメントをお読みください.

*GOTTA4 -k3 -l4 -g12 -dm で,おもしろいパターンになるでしょう
    画面の色は,事前に実行したカラーパレットを読み込みます

*唐草模様をお楽しみください.きれいです,気持ちわるいです.

−−−−−−−−−−−−−−−−−−−

ちょっと,長めのファイルになってしまいました,ごめんなさい.
PC-9801シリーズをお持ちでない方,不要の方,興味のない方,
    ワープロで通信している方は特にご注意してください.

   ** 次と次のレスポンス 100 行ずつあります  **

  不要の方は,次のコマンド待ちの時に 5 と入力してください
                                                                  KEII-I

#0002 sci1250  9007251745

<<< GOT.LZH for MS-DOS ( use ish ) [ 213 lines ] >>>
!!3P!PgR!2"DRo+wSP-D!C$oXTQ~!&"H9URw^!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!U]6k
!!3P!PgR!2"DRo+wSP-D!C$oXTQ~!&"H9URw^!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!U]6k
!!3P!PgR!2"DRo+wSP-D!C$oXTQ~!&"H9URw^!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!U]6k
"!$aE:BbBk=9!$xG$\!!9W8u9V[;\P?V1{5E1WA;%djGNyinX4G+4-__M2K>eID,s@,mrjEsc>kC!v
$[Tada2~/&'4)^>JddP%!6%R^)?/P'b)Ig[{\="i6LqNcGN80mf6-W1GSg8t$:,G\^'"Mw^'KQ5YQl
%S6E')o17P@vR+U|u%06'&,nf55\hXW'J0hbMc$qv[C_CfCtL]6eVD1H!UM9iv3qdmq:U6ayaP:D15qG]"xr&L\?ooQSmM"|+J>^!0pDcUdlJLpdG&d+Tgu(iLdDQ1?
(?Tb70SKL\Ge%I[|KqyaCBw_9JnUJ,fa3SY-Mo}XE*B70}M;oi|_o>}TnCqoB~&^(_kf
)GGOF!p\1},uAY{q]8_N;7v7qjZD!4W4O{Tue|v^LJUqUqe~"^LeOyO-5?^c2BD_U&8,rcHalgmuB2
*_41_6:*6)4"U=}%R&uzFyWO]T"8c="\m8K?;\4*S1cg'nBm<7sS!,yMHpDDBocIYub-@u)7^gX2lX
+!Q,%D(S"zpaw4i=-c(}K'}Bc5[=qg"Vn-Hh5A[+@{iAQbY$G">\cRcn{V_Yu|j1W~Fu'PH/hIy(J2
,*Z?H-;^\)q,{^S_?znZzG[[Tq(JWe99:2lt4%WlJ3DNLNKZJ,xz"xmf0eK3uo0tR08l8N]P)u0TzA
-[_V*)!Q{gcW3s6AiA35o=l5r<1QqMEmx07jwMNq3Q7f-Z\T&iPa)Y!ZA1h7;XI@?l6S;yC8ihwl4J
//+75SeqLOui$v,U$oTd-m+><6)mcXdX=F4\Ss'u;QS/\;oYWc/,|0Ph{WUf23G9[4C|W@1I^>"q_A
0*a2F9fO4aQR[1O=xFIy:9W"+jtlUqzu"M0i)3&/xf0DFsxPA-N~Z^qFSB;0
3/WSG[^^//nZ!Hn\QCHX+]r,v-UFj56(RJ&lbHE}/bXOY2m]OS_N*5zxSiHD[96]bLPqbP>+RO*?tb
4!AFdb5w&/nd;)^g!W!i|X@Y
5K!)5,OlK>fn}1CEn^V];r'r&H!AR9-q:XymmcQmRv|a{"!MCfOfo!JO+'6L[JOi1sLU?DMpns_|gM
6_B9X~MJAdb^;'?"2)vvD|Ka79R,/q_;3l_O:Y]b,v6$gPPyZ@;PjaTb6Q]IQwmbKXaVMeTst3$$LK
7OZJafpuCVU'd]Lr'-MFrvrHaKLp@ZI*+YB<6a^*H1aL$1Gy,$\XL}g%=mXt_:4e,RD@l8k"^f"nfA
8[5(l]Y9I2V[-s;~zH45NDg/^>eb9MuooMW$(ZrsF"F0}gPiMlxd,V43IojNsD1kAb;aywRB1R<]NW
9!2X&a+G5ONK7-B44'1&j!!:7ScA8nsQ>X0*6S?9"fMu02Tbm?x&<_K3(JmF>JxgV~b:RI=[Vq|G
:OR"Xl)KlR1;DO=/86:I=,Tej1&$I2Wk14}=ZgL::f7U@?Lv8MbwR80P$\?qN|:w1[MN6%BJj@
-fpy&L|wXh&(E&OU^\&f%a43e0bpJl}VaTFlsIuYzV1::]@E&6y>["l[UKgkl-!rzW3(lHDxAIp
=C0R$%l"z"KiCMA[rZ?@VsKX%9=?*xlQ^E&\cs]&?Rq4\1&+P5Y|JGN[2n33I%rma+KD>fif\eJRJ^33VwRFtK{52I0]+;190hDI3a&Jm4PreLX
?KAbdb>y(UjT2M:5d}5!*q[!JwwC2~_XL_tceg{4-FSG@bA2%y*!rjJ\WFmtWf![gMtz6+qP60"p]O
@K76E*\ELHRb5xulUJM6tX!aMUrb%5qPWZ>JP5Fjv?vAzrGeL6-{b{6eA]}/!~O|+sh0nDP@[v]tIgkc9lF~;&R[9C;oPsah?OceYpEb{nd&/4}WRu78
CSc[v;vN[35IDaA/3p|!X=J])tOBX!QAfTE=bMsZX-y+o:Tug,qW$FHMqo%~$09u|N0^aMlyU}rwUY
DWF^xT!~k"%%d04lOY+/q(rqgh3I_blFi^>Zi}H%?9qH^B}WY,qD_gb9,|0_uV
L[Nb;ri>1q{%eHkZN4,Dw
M__=L;]sk;gK2j+@ChIZYLv/gh3"1A@"[%w?(Vad8@VhJyN;3i=W"!;EI;)Fup)5"DXCVEv>zd[=y=
NSQ5fHfXi({x)O$cM?!A%A!HKu_2P;*\idO@9Z{U;07F}T%Rht
PC$NtWofIqh|a1g*BrSL9kc)}x{]wkX:Y\vWrYG\*qo_p~wi)v4cu3{Dk0Qu]dOg;%poo[(Ghr%p%u
--- GOT.LZH (50/213) ---
Q;THh]oZ7(!7Bj9M!9@'1_dXggUkCee]AY}A?,qo(~Rj0"c9+?I'_8gMsPBh+g_Z2!Y%ezm/RqDdb(
R;+L61n\Kk6[ntGOj[j"t16Q@s9[&7H7\d:|ZV;vYY_U"LoTWg*?$jx,Rg!0+=|>SQdMh&l;zw<['-
SOP9HLM6Y)EfnJD-U"<\fFokAZez[ka>K"&Pa1?s]IsjG2UthWE]:=fg-5:!>^Z$:-&2!B5Hx|;oUS
TS6-NGyKuHl9b*a&Fb=G&RQ!TKlm3_FWw~DDLUsg%_q25'clKAu/,"zwDXU=eHjHp}_X,A?'?$0hII
U?^POFZ9:El8s*-I[zu_}alIUw+Tnda&[picN)8dP?9AWeVn@B]ALWEr|$s6O^*)6N]S5$=I[]w}y1
VC3ZPr8Igk%?gK8LS[4!^M2(s+!c7p>^E!4TWD3Rre:I]15my?;,lvhW[B2}$ldq_[17p;I|[gqf9f
W;M5f4n1VfG:OR{cbZv9I\xgWZ;'Iy\&(U?dJ9-|>gTd1d:J!vlIp~7DMX+'W?]gN,(ld;J6Jw+DY-
XW<@B{7aMq&[>Yv,pI||fx":cX-TbCm/L(c7IhnT(}
Y;:"+;}|_32GpO3xp%|tM('>cWx)\FtA5tF1bk6%)QmWnjO3)UlUWAK8ifnorRD^fO,}NKj_Mh_Mm|
ZS:c6~2AcWgz$3\OiZ\>D2v0X=bv|+F?o(OI7o/p^Dt(@}i}3jaDG"d<7
_[&EXu";|qiv'&oOQRRlMq/s|RvPvD3wj7rt55A2>KmscS\]AzU$C)Qv'\sh"![Lezn6QD_4KQXf!|B/L7nf]QIjB,r>39GS_V
c[,7|vDB,1:}FVb(6qY,j@\Fbp6-LjT]fi">8B^7ptiDQqxeJi4Zkbu@Iv@s}aDESEk'Ap>>xaq31V
"S^PFqp\x80GzbSY\^mx]nF_e>(%BK|Zj4m42|Khf~Gs&fSlE/q5Z'NwnGIr^/2GEb>SnzH&9o8>&T
$_U$KFqf"FdW5v-bmIaoR/zOQ?'mrBy)m,O9,t|J{&-3P6gi?F{V?!I~_sR!iEXxUhrWaO;ui?{[jg
%;4IMg@Z"l7l1[J&XN[=0f@(FRO;{Se3"jalH7rph3VkGm%tk>)|-wtdD[Jyx}>WQxDT!IVE$e3oFVi},+AOztpE=va2gR4>>T=
'C*:?L0V@!vv!wCMGVI+Fdx/I|?a2IxaT|Q>JDPYHJ^Yxq={(NN5zWS;3b59^A>H65HH&~x=:OGh"t
(*'Zq,O\>GJ\"r7Qb[$o&+:Ed6|b{mW^C!]U>CBS'a5b:d/jpj3epw7a%~_9+W1n
*W;!xWZ:ZBx78ApvwsEghdJzcE=lxH6n{A7U|pax]ApaGHdFI@jsJ8
,OJ76|3(,E%|ra;rHR=q"^rBk?cj%;]Z-tT&,l)2OdSyytIDa/3goSSZcX7!\!\vhkqG2@p9|F&b]Q
-?-&sbZx/t:OS5@C;qF|>7Tnuq_1A"mzF[!8}?axH&^"_KwIh]}$f7Qtb6XxC{(!={dsKrL[**&W7{
/&aOH(n@p|\8v'tp(y$%lpD_nPk%E>wTo,ASKzdxG\x_z=&p]HR(He46e-5%\GU5{"qo0!3\qe;d^b
0*^G\OYlh-/ja_s4g7vfTxv,wFl|jc-5D-}s;hZ@>V-iL%=6?d"XhRBLc\x4(blr_$pQvX<;qfOnt)\~n3Y'T{+$L{wBZzlI;xF'B0[+wW
4C@BArK1f12NDpm2jUff8?^+rjh4chy99SN8@450{tD@h%re*P7K3)fD]DZz)Qy[{{w{k%nS
6[=NV?[ne*FejD$+UNjNJ(qHfPz^ftdWX@wWrcRx}~a(=aNY3c'9Mm*kClI;^jAavR
:W*JniX$y[S5sA]sMYKljV\5"_=2at>[^WwnCQhKfxR*X=G}Tzj4earGUcj0M>l,c7}"IbXN&Z89H+
;S)Xky3MXFayG\$[q7c1IpHdQ9P@Y'B1[(XgdqJffJNBCVGJ5;Y,Vc'r0_8vX~c3XL"*nxj+P'a+U^
[(8MX
=*)b7EGksriY"_bP+/Z]eG6mrH/>wutZXEm%CI-"vp9~&8c9(qiGb3I[(y{8!rM4}94Sc!oCPxR?{v
>7]Sv@NQTMP8{In5k)o!$,{)PIpH=w!{Zs8SYz==ss)zzF-c76"]naC&rxCh(mGduG_L{?=fmFde(;
?_=[j)it/'ecLcy0kkd!&mGtN}pc$?|z+XtXH^9:dx{B',Rmn_8qL0wFM@
AOB>:|x!JsmpZBBI\Vu:$e%OI,&IROcQ^VzlBk\R4;k,aj2N*,A0chT&*6\[lSwAzbZmd=G/f2bwO9)qW?y[Vr}uHD9mOT8Hv]n,n[-"@SmjW6d@Nij-I3/aLGR~}oq9+XG)
CCX-rHf%n7B}(mJQ'7rfK79Dw7YN]Wao<"vx-5U;8H0^?AHw{=O(\]m/fG3zzNw_]pe7r%q@Oojix8

#0003 sci1250  9007251747

nait
D;N=N%^KwIUgQ"'+5U@|VtkNC"vN}EiF<:O)[~KA,w@{pBfFPM[grWu~,WlU$*6?V_3qg@$X9!6;L6
EGb\i/d{caCXfR^/d]V=U^L!15PSyX7I+Gd4n{>WbOOFCI>&Z&\P*^jMgTRo{B_,N4'Ih9ONMt\}SC(_}2v@u3r6u5'@mBvNMiUEFQV*VR&l4!x*=m^
JWKaV1)&'TeY:>'c)={9*U6cBj^Q3zzb18R!xwR}Ny(D?9rF'8Pm]E?62/X'y|M!qOG=TlE4C+ok>:C6
MS;1*,u|i=1E}i6>![WZ%+sENdWeSoTkH*wr-G,ze<3PzJ_yp5ubo:=8Z?pFlNAC^d%d~qi}v=Z^G*GxC/o7fHh1e$MdeZ3CC>S1!DW&;}^Fzli$P0]2,@1GOUKO'{%bN
P*R:8DjK)x'*Y80{?I5r5O|y'9UvN)V!ENn0qtPL:9VX;LW9fbmYC_=F^Tv28@?g]m>B@+_9*]ZK>6
Q!>3{/8\bkS~ei=\wnT6yAztry>:[8ri@Gmqz?lv3s{YlY3x46K(y5E]<~lM(>3j*~[5n>
R*[6V2o|jo58_NF:pB+!*l,w4ag$LO-2u/oI}XjAod8fxRs58fF9wJxHB(m+gQ'pAmUmt74)6wfA3N
S/_VC3gCf,^1/u3kldBVp>)!'(&(R8A$KI521Yj@)=tUiuoPuC|sqL3\xXms,*_/|>@TaHIftw;Cn5
TG:57;-'69l/&~O|OyGM4F'SQCD?+2wI>:lg^'NGT1}ZK<|6OC&:2B"xvOwCH%q~U+Zz;[58:i246rnXY*L9QcU"
VOJ?w8|(h$;fHt(o7h4so%4=M\J!s2mfYmw>>7xdj0s5n,mj9{htZx*;?RD_)+yak>'[F/kw_E9b9J
WC!J:TqLe(\CW}5P^d@TU_*p,$"LRW)XJv&HjVJ\_yom_D&s_@32FJ]^&t?z]kR?&*yI52!RXxN
X?&"iZ:yT'w66HJ~sJ,(((TAS6uh@/S|yqkzYFkj^hu"76{~C4!IdqO2o)RiK'nu_2Z*]9nU4]tq:w
Y!bY!}&t&6%QDfby(@2mlv+Glm|[|t{97-b\2b'@9XZ'Xg"Evq/o1\{jxV8Z["!QweZ$5ToAc}QaXN
ZW$AFq1%VmjXCPQz8M'x5''Jfoo6C>!(Q6dH8Irkbe6qEnd
_!9F1V7$an|*?ku1x_D4}{ev+B0u-J-N~r%DNT\wMojC~0b;GCsJZq-1_Gw>@2|eyZ8FfWhAUDw'N*H(mzkmmkH=}/]&@
$[,A+qany%PX::-Q^)5)=qz][d!z^j^erji0G}+[1AxL5}<>"CyuY~?&UW4_)LZ,bN_wd%(7iM-E5jDeng@_D?7F
&ORC&7Gh-?Dsk79Ea}gW;tMsIZTX3Y/m|xg}*v8y9;2w4[?)5!cI)34P>c-AH85/C$U|Z7b/^kaLif
';-JzLOt7J8t(0Yu[(Kszf%z<8P%<(LjUn[6s9odD^GB8F:nK9VC-$JM"(M\9\]f,uy!0+I4i>SR
)WO@TG>xRax>+-U[OTTDQ:X+(\hVRs|fuNR9yxW]VHs}sCqa_3]S+<_rF(pQ=7x{A+>dstC*{M!I:S4RA$B[Se2nL36YkrZ>Rd/wvmvhd&YRO<\6
+GFMneo"V4A32CA&D:)^4yCD_|i^|WExRNn21aXSLYp%S$?6=tHpGIvu[%tbu'Df$XFbNRlQ=&3G?6
,[@)CrDyb0fP^WSprNaJfGx4:dvIOs=(5HxS}09A]>=CpCDLTAD,LRHC[uG1ZnoIw5^-+C(VS)f/Tz
-/B%Wc@h4@HnM'7&v6asC~c=K_[QSSp*X5ay8CN_|$nS:U)uEr;V:C3h-V:(IKP0|X@h$|FwJ<>f:F
/O\FR)$?8EDp"-:nT;g'1ap=?sX2-:0(6DfvlClM(O:Z?2tq)(;g${j7w9vzP_rMn'NnKc)Ir\bDDKk!RgF1uoy{+Cy@/gH{%GM+\tt|~g_A'gTb,]RRoW'3A>H4y;2fS:y
1_OAaqx'y|0{TLnrkKIa{:1J>2h_UC/Nf$zf7hoSaX{g"}B*MWVwKt2;y)|
3[:J-)-EX=$8=wM_e-ztJ]\Q4y[G,Jf_diUOzr]Ll;B&&I}lAR+j?&!k7v6Q:oZ0G08]+_wlRCxmiM
4[DcnJU80M|-,0|D6b=EMC1|*uLj:e1,I)U"*\SH\T9WyUtnjMdqkk@lTq3?h?<\Mr*DC8a:EosA(_
5;0TDPg>FVUYp~-1zTL*^f587YJjoixnx?_|SDoIT&d:a]ct+:*aT%>h?iT@Syx7%lZSrdEJd0>faF
6SP%I^$O:m92sPJ8/u10'u_QvcKT88BxgFE{RnjKTrgby1z}+73sg,+l7oD]z72seSnl2m3c6>
--- GOT.LZH (150/213) ---
7/1a5V83oMbS>>ovp=Ad@q^d:?W,r@[0H507zy3xo"26j{W*Oq"&=)(1{08;EB&$(dg4)n)G5K8+hk
87RJ0n;_1'4DIW!kP3]@Ltn\Io+0xro*<[IZoY&=z2i^c_*>H__ap?]v?i&X!0vfXJJ1up&4=f$M9]
9K:]Jpu)EQ$|cCgr+1w}lf4':|fKpy5_$n=jAN}}psj|e~@Aay{?tl5Y-,z\nD6=g1;lU%|kY0buVt
:WDS;~/kmog{lxBkSOcP;F!(BODjeNPMm3!!!%gc@?NN8O*HCu&0AGsms';%iQ/kKRUbL+16+/&|=k
;[ZRAWdeX^br$Ix2t\dzn6bJ<9^o8I^}l+Y5]xk?IWWH/Xo3+6P/dku[i[f?pO>)@60M|J6Mv[,/Z"
qoj%1@aopHW"[3^Wq)D{uG4@E&fHDmtGni:X+{aD%
=GY!ge"2b\4*uEw"StqT1yiLnUy~6tS'iH@ZIgO^t|Yt!Y+Ykyo):@L~Q]F2(h%6YXZ:+rBldLKvZq
>!bXXryRJK\+3AIRLlR[}BtiP=>m>O3s93M{sz
D*=E&:4S-9U$&CZ5s)W_:ZUWs'"D2Bn{,RN'*s6py<%&ZYplgrHR||sI'$wBm>\\jsEP*w}aFd3p9<
E!c3ei7>N%=*UKA\?=_jgR0S}X+kYYhL!O3q]Y|"p"@-ix03QS"9;om;LjWw{NYF0)pub;X9[
GW2[h9Lxfz{s*+!p[[:~-]EpFwdC3eKY']W0rE:O\2e)+M;*O^"AC4/Xkk/sVz|*vqK=@DN~oW*L[g
H36!pW/W4!C!sx/%<-Whjxv$F|nn0dS+"JP\jSaG6y-pU\DB(t'0ahbVt*FWp$PqTru3Jx->:8|\NR
I&5bE:BbBkTB!!\a!e!!5D8y9Vau\P?V1{>RK4mQRAW?t~vpt1ML4&~"zIDj45eF}V8&c5lxOmLKtT
J70_BC0V_7gPw_XZ}p(danYdk^SM}byw*M{+5^cs6VxVriPc>QLU)Z:u"3l}D$3eJIvPxh1^tSMx0Q
KK/?is3uY7nwX"/$Re$gtf1rTeIGxh$7ul4:h$:)NR?V?Sv(YTe16F$5p^sj$?26]s4!pi>Lq&^Pvt
LS5Cp"85e!/2K,,e,nVZwOe>=b];pY8mrCHCRF~;t
M_SM6!If{S&6|k0+8FeEO8JfJ?,2(x&c8K^]g6c+MX%iBtK=R'Y'+qeM)4@43s
OG>cg?ysan{@gzd1%fQm61$*ayL_mn93G_mg);hZwa:$|]?P9rT3u3@SVS%i\u-+$APL\2W"u|n!|C
P7b/2g[+w+r}C[ZMB[W;<7P~7QnfY)}'R!h<fgDK4*yScdrY'zIHA;6hS^vda4kw-VX{/}3U41K\u0]kFrSDp::+vpd<9)gm=~+~Oq2rV4Az
WGTN{o2_piO$Puj9F:WJ{a(3r(}jf~w%>*dOJP&L+B'!:@8pb-w1mBIjB1;(ctw?uY"==7_)g]%oN[nuS\\~DE4"jYmy>K
Y7ST:;eNCr!Rpg(Vk}I;QDvLn1m9T35Q;qwl"dO{[FBg8BRIvw(_x"xxAVmR(|0Oc!n3-?,H,qq}C2s*4feh0
\O@Tcb*?6nCwk_fQ7(Hr0!
]&!VT_Ue!!)}&z%o5Yh=NMU@L^l-R]|8?fA!>k[\"-"jWNPWadEshX>MgUe?>l71KJQ?e[^&^*U$@'>b_Z9oBu4=hoLJP(hL:"UJuZn)O'pKKc;=tvM2j2M$7U+,7-3wY4>RbiT-gq!_p$Dl5b!q~dtF@0'cL%HDFpkWo3R
&&,9r^[mKEm}UTQ]T?;oTjor?oaVt?2,yGq|o
--- GOT.LZH (200/213) ---
)_*YpR;:;E(Xf/uP{vLIzYq'vN7-K{\%[]}?0TYI'3D&n?MW[FKz%{+7W,4hP|W/Kif@]_!tw8a[&/
*OELXoHZbY9D$l,5GvlnW(>FlXA-{y^lIwylQmP|F8l5BJ](?{G!g/21tOry!2fv5FYThxGjZuR_|N
+WZCvF"5)W*'{\/}-5VAMI2aBjCsBJpAS'(7NICFOLWdIxQ[NM+VS=':[tz)Nz&IG8w?,gNu'4e?FK
,W0JIr{vK8TQ>L|$Qoa|u5AbePyzeivEG=}~Ijc'E\4t%O1b-0:rQ@hbeAzgL[/1Bq|1\JSLJGGsk2
-[W\<$rI,jB0[=!^b)qZ|Whk(*0/;,nZ@?my/3Z3{AZzM0?N@cWyWqrt2&KjeX{{tiK3u,5Vn$=2LV
/7_A&6)y=Trdm~@[CB}+lRhPewj@yTbivL]5?*f2|Em'6&p45|6wPwIauK-4ueX,{x=Xq>jNi"$zwe
0C:26]l*1s^f9=R(w;\fv6]%[-n~lI)meu_ci:lxe*bka|f~J"ntuCwYg(I}x3]SnRVuZO,[0yQ}_bnt*UC<@da
cCK"U&f"O:zf'eYY}8[i@wdzc;c)jDp6zO%bC:11Kv8@|5}}!|