EGG.BAS PIn:"CRT:M1"::@,:,:,`:, :@,p:"CMT:"_ BA(`,`),TE(`,`),ST(,),CG(),MI$(),PP$() @:  Ty: : : $: <#&SESE :SE l,  BC 4 $: P-:ZZ:KI:SE:SE$"Y"kI:[@],I@,@,I@:[@]I@,,I@,@:*[]B,,,@,@XX:YY: `:XX@: `,TXX:YY@: `:XX@: `6hP,:[@]" CHANGE __":KIP|P,:[]PP$();":":XX:YY:ZZ: `[P,0:[]PP$();":":XX:YY(:ZZ: `:KI!\PL$"2"SE:SE$"N":zH,:[]"W ":P,@:[]" ":X, :[]" ? [Y/N]"  ST$0 ST$"Y" ST$"" SE:SE$ST$: 0 ST$"N" ST$"" SE:SE$ST$:   3[]H,,,H,::':I`:J`:BA(I,J):::(I :J :BA(I,J)::92I@:J@:BA(I,J)::<BCT::')P, :[]PP$())"O4G0":X:Y:X1X:Y1YK[,]X1@,Y1@,X1@@,Y1@@& lu: SR SI QX1X(SI)(SI@)(SI)(SI@)(SI`)(SI)Q$Y1Y(SI)(SI )(SI@)(SI)(SI)(SI)O8 X1 X1` Y1 Y1` X1X:Y1Y:"O4C0RC": aLSR[@,]X@,Y@,X@@,Y@@:XX1:YY1: t`BA(X1,Y1)"O4C0RC":[@,]X@,Y@,X@@,Y@@:X1X:Y1Y: StXX1:YY1:QBA(X,Y):BA(X,Y):XXX@:YYY@:ZZ: `: L'CT[,]X@,Y@,X@@,Y@@,:BA(X,Y)Q:"O4C0RC": :P, (SE):[]PP$(SE):l:')P,@:[]PP$()PL$"2" ,I:ST(I,)z:iK`:L`:[,]L@,K@,L@@,K@@BA(L,K) <DKL:ST(D,)L:ST(D,)K:XL:YK: \N'CTST(D,)S:"O6D2"P[@,]L@,K@,L@@,K@@::: Pz:IAPST(I,)PST(I,):XST(I,):YST(I,)Py"O4C0DECDE"?XXX@:YYY@:ZZ: `:BA(X,Y): L'+,P,@:[]PP$():(#:'<#Y:C&P#I`:J`x#BA(I,J)CC#BA(I,J)YY#:-#P,:[@]" SCORE __ "D#P,@:[]PP$();":";(" "(C),@);D#P, :[]PP$();":";(" "(Y),@);#$,()(CY)$,()(CY) $,()(CY), $P,`:[@]" RECORD __"I $P,:[]PP$();":";(" "(()),@)I$P,0:[]PP$();":";(" "(()),@)E$P,P:[]"DRAW :";(" "(()),@)@$$':'$L'LV(SE):CT.'X (:“BA(X,Y) ( 'DXX4'DXDX: BA(DX,Y) DX '''BA(DX,Y)DXDX: ''XDX ('CTCTj(IXDX:BA(I,Y)(BA(I,Y)LV) @:XXI@:YYY@:ZZBA(I,Y): x:(:'.((X (:“BA(X,Y) ( <(DXX4P(DXDX: BA(DX,Y) DX` P('d(BA(DX,Y)DXDX: d(x(DXX ((CTCTb(IXDX:BA(I,Y)(BA(I,Y)LV) @:XXI@:YYY@:ZZBA(I,Y): x:(:'.(Y T):“BA(X,Y) T) (DYY4(DYDY: BA(X,DY) DY (')BA(X,DY)DYDY: ))YDY T),)CTCTj@)IYDY:BA(X,I)(BA(X,I)LV) @:XXX@:YYI@:ZZBA(X,I): x:T):'.h)Y ):“BA(X,Y) ) |)DYY4)DYDY: BA(X,DY) DY` )')BA(X,DY)DYDY: ))DYY ))CTCTb)IYDY:BA(X,I)(BA(X,I)LV) @:XXX@:YYI@:ZZBA(X,I): x:):'D* X Y *:“ BA(X,Y) **DXX:DYYN0*DXDX:DYDY: BA(DX,DY) DX DY 0*5D*BA(DX,DY)DXDX:DYDY: D*%X* XDX YDY *l*CTCTv*IXDX:BA(XI,YI)(BA(XI,YI)LV) @:XX(XI)@:YY(YI)@:ZZBA(XI,YI): x:*:'D* X Y 4+:“ BA(X,Y) 4+*DXX:DYYN*DXDX:DYDY: BA(DX,DY) DX` DY *5*BA(DX,DY)DXDX:DYDY: *%* DXX YDY 4+ +CTCTv +IDXX:BA(XI,YI)(BA(XI,YI)LV) @:XX(XI)@:YY(YI)@:ZZBA(XI,YI): x:4+:'DH+ X Y +:“ BA(X,Y) +\+DXX:DYYNp+DXDX:DYDY: BA(DX,DY) DX DY` p+5+BA(DX,DY)DXDX:DYDY: +%+ XDX DYY ++CTCTv+IXDX:BA(XI,YI)(BA(XI,YI)LV) @:XX(XI)@:YY(YI)@:ZZBA(XI,YI): x:+:'D+ X Y t,:“ BA(X,Y) t,+DXX:DYYN,DXDX:DYDY: BA(DX,DY) DX` DY` ,5$,BA(DX,DY)DXDX:DYDY: $,%8, DXX DYY t,L,CTCTv`,IDXX:BA(XI,YI)(BA(XI,YI)LV) @:XX(XI)@:YY(YI)@:ZZBA(XI,YI): x:t,:',CT1,I:J(I@):KI @:,X1X(J)(J):Y1Y(K)(K)9, X1 X1` Y1 Y1` <-),BA(X1,Y1)BA(X1,Y1)<-:BCBC: <#:72 X1 X1` Y1 Y1` )2BA(X1,Y1)BA(X1,Y1)24N:'S\NCT:I`:J`:TE(I,J)BA(I,J):::TE(L,K)N:'.NX 8O:“TE(X,Y) 8O NDXX4NDXDX: TE(DX,Y) DX N'NTE(DX,Y)DXDX: NNXDX 8ONCTCTFOIXDX:TE(I,Y)(TE(I,Y)) @:$O:'.8OX O:“TE(X,Y) O LODXX4`ODXDX: TE(DX,Y) DX` `O'tOTE(DX,Y)DXDX: tOODXX OOCTCT>OIXDX:TE(I,Y)(TE(I,Y)) @:O:'.OY xP:“TE(X,Y) xP ODYY4PDYDY: TE(X,DY) DY P'PTE(X,DY)DYDY: P(PYDY xPPIYDY:TE(X,I)(TE(X,I)) @:Q:'DQ X Y Q:“ TE(X,Y) Q,QDXX:DYYN@QDXDX:DYDY: TE(DX,DY) DX DY @Q5TQTE(DX,DY)DXDX:DYDY: TQ%hQ XDX YDY Q|QCTCTFQIXDX:TE(XI,YI)(TE(XI,YI)) @:Q:'DQ X Y XR:“ TE(X,Y) XRQDXX:DYYNQDXDX:DYDY: TE(DX,DY) DX` DY Q5QTE(DX,DY)DXDX:DYDY: Q%R DXX YDY XRRCTCTF0RIDXX:TE(XI,YI)(TE(XI,YI)) @:DR:'DXR X Y R:“ TE(X,Y) RlRDXX:DYYNRDXDX:DYDY: TE(DX,DY) DX DY` R5RTE(DX,DY)DXDX:DYDY: R%R XDX DYY RRCTCTFRIXDX:TE(XI,YI)(TE(XI,YI)) @:R:'DR X Y S:“ TE(X,Y) S SDXX:DYYN SDXDX:DYDY: TE(DX,DY) DX` DY` S54STE(DX,DY)DXDX:DYDY: 4S%HS DXX DYY S\SCTCTFpSIDXX:TE(XI,YI)(TE(XI,YI)) @:zSCTSE:B:T:I`:J`:EE(TE(I,J)):TT(TE(I,J)):BB(TE(I,J))::S:'SS(X BA(`,Y)) (X` BA(,Y)) (Y BA(X,`)) (Y` BA(X,))SSS (X Y BA(`,`)) (X Y` BA(`,)) (X` Y BA(,`)) (X` Y` BA(,))6SSS(EB)@(EB)T@EBSDu:'luSI:SR$uSI(): SI u$uSI(): SI uuSI()"uSR(): SR "uSR(): SR uSR():,y:'8Ty:,:"H ? 2";:"";PL$)y PL$"1" PL$"2" "O4C0RC": Ty@yPL$"1"PP$()"MZ-800 ":PP$()"YOU ": 0z+y,:"NAME ...... [ 1 ] ";yK$:K$"" y/yK$(P)PP$()"P 1": y6yK$;:" ";PP$():PP$()K$PP$()+y,@:"NAME ...... [ 2 ] ";yK$:K$"" y/yK$(P)PP$()"P 2": z6yK$;:" ";PP$():PP$()K$PP$()1zPP$()(PP$()" ",)1zPP$()(PP$()" ",)>0z,0:PP$():,:PP$()GFzI:P,0I :" "6HzP,@I :" "8JzP,PI :"":-NzI:CG(I){I :aXzKI:ZZ:XXZZ@:YYp: `:XX0XX:YY : `:3zH,/,"P ",,zK$:K$" " zz:@:'rh[]`,,"I G",,:p,,"I G",,Xr,8,"E G G",@,@:[],@,"E G G",@,@ |I,JX:X |X ̜&Y:[]I,J,X,Y:IX:JY: ̜X:X (XCX:XY:[C]X,Y,: ̜0(H,p,"JUST MOMENT",,0<R,4,"N L",,/P\,\,"EGG.O",,4ZC,/,"(C)B-SOFT 1984",,d"EGG.OBJ":():1[]H,p,,,H,\,"D ",,:p,,"",,:R,>," ?",,:f,f,"[Y/N]",,K$:K$""  K$"N" K$"" n!M1$"O3T6V13S0M4R3R1#G+#D#G+C+#D3G1+#DG#A+#D5R3#G1+#D#G+C+#D3G1+#DG#A+#D4R1+#DR#GB+ER+#DR+#DR#GB+ER+#DR3"X0M2$"R1O2-#G1-B#GR#GBO3#GR#GB+#GR+#G+BO5#G#G3#G#G#G1#G3#D1FC#DF3O4#G#A1B#G#A+C3#G1"IDM3$"+C#G#A3#GR1#G4#G3#G#G1#G3#D1FC#DF3O3#G#A1B#G#A+C3#G1+C#G#A3#GR"`M4$"O3T6V13S0M4R3R1#G#D#G+C#D3G1#DG#A#D5R3#G1#D#G+C#D3G1#DG#A#D4R1#DR#GBER#DR#DR#GBER#DR3"XM5$"R1O2-#G1-B#GR#GBO3#GR#GBO4#GR#GB+#G#G3#G#G#G1#G3+#D1+F+C+#D#G3E#A1E#G#A#D3#G1"MM6$"#D#G#D3#DR1O3#G4#G3#G#G1#G3+#D1#G+C+#D#G3E#A1E#G#A#D3#G1#D#G#D3#DR"LM7$"O1T6V15S0M4#D3#G+#D+#DA#A+#D+#D#D#G+#D+#DA#A+#D+#D#DE5#D3#DE5#D3R"-M8$"-#GR#GR+#GRO3#GRDDDD#D#D#D#DEE#D#D"/ M9$"#D#D#GRO2DDDD#D#D#D#DEE#D#D#D#D#G-#D":F$" I ":" O G,"U8" (EGG,CHICK HEN) ":" CHICK "EL" ":" "0`" ' .":Vt" O ":" EGG HEN .":X" T ":" ."::S" [N] B ":" "C" EGG,CHICK HEN":" "MĤ" ":" ,"8ؤ" CHICK."::[줏" [K] C K,S B":" J S ,T B";:@;ȯM1$;M4$;M7$:M2$;M5$;M8$:M3$;M6$;M9$:: z>"T7O4S0M5V15":MI$()"O6B1C":MI$()"O6C1B":P:'QxÍYY(@:XX(@:ZZBA(XX@,YY@)mZZ((ZZ)@(ZZ)ZZ)(CY)((ZZ)(ZZ)ZZ)(CY)ZZ(CY): `::1[]C,,,?,8ÓCYR,p,"DRAW GAME",,: .R,p,PP$((CY)),,.|f,\," !",,n־z:[]R,H,"T A ?",,:[]p,p,"[Y/N]",,֭K$:K$"" Zד K$"N" K$"" : ,: ,: ,: MAX:::6[]C,,,?,: x:' MI$(SE)`:'ISAYY XX:,SA :,(SA):(CG(ZZ))OKI[@,]XX,YY,XX@,YY@SH 20,159,30,180,86,187,141,187,187,181,196,158,215,156,244,149,266,150,271,151V\ 273,153,273,155,271,157,232,156,208,160,194,164,197,158,194,155,189,153,181,151Mp 138,146,97,145,97,148,96,149,94,149,92,147,92,145,81,146,79,147,75,148L 70,149,62,148,65,153,65,154,62,154,59,153,55,149,41,150,31,152,23,155[ 20,158,23,161,39,165,39,166,80,170,144,170,180,165,181,164,191,161,194,156,195,156,0@ 273,153,274,159,272,161,249,161,230,159,209,163,191,170,0y 165,167,150,163,141,162,139,159,131,157,121,156,113,153,102,151,93,153,87,156,75,158,67,161,55,162,50,163,44,166,0\ 68,161,69,165,76,166,86,170,150,170,151,168,150,167,139,165,138,164,139,163,142,162,0L 120,156,122,159,122,160,121,162,104,163,88,162,86,160,87,159,87,156,0L 62,148,59,145,57,132,60,122,61,116,60,112,57,112,56,114,56,117,57,120L 56,123,54,121,54,116,55,113,53,112,50,113,51,121,50,123,47,121,48,114L$ 46,113,42,114,42,119,47,132,55,149,48,146,43,141,38,128,39,106,40,105F8 40,101,39,100,40,96,42,97,44,99,45,102,48,100,48,97,43,93,48,81CL 54,75,60,72,65,71,71,72,77,74,80,76,84,80,89,93,90,98,89,100L` 77,101,64,100,63,108,80,111,89,110,91,108,91,107,86,105,82,105,82,101Gt 82,105,78,105,67,106,63,108,0,91,108,92,111,92,117,91,120,82,122L 73,122,62,120,62,129,65,131,80,134,86,134,88,133,89,132,88,130,86,128U 81,126,81,122,81,126,75,126,68,127,62,129,0,89,131,89,135,87,140,84,143,81,146M 92,145,93,130,92,115,94,110,97,109,99,110,97,114,97,117,99,118,100,116V 100,113,102,111,104,111,104,115,102,117,103,119,106,117,106,113,108,112,110,113S 110,116,103,124,100,129,97,145,0,88,130,90,129,93,130,93,126,89,125,85,127,0U 78,126,81,128,81,130,79,130,78,131,75,131,65,128,65,121,74,122,78,122,78,126,0N 78,105,81,107,81,108,80,109,77,109,67,106,67,100,74,101,79,101,79,105,0V 40,96,39,95,37,95,36,100,40,100,40,106,36,108,31,106,30,102,32,94,37,92,43,93,0P( 89,93,94,92,93,94,96,95,98,95,100,93,100,90,98,88,94,88,89,90,89,95,87,97D< 84,97,81,95,80,87,81,84,85,85,0,76,88,74,85,72,85,70,86,69,87JP 69,95,71,98,74,98,76,97,77,96,77,89,75,88,73,89,73,92,74,96,77,96,0Fd 81,91,82,88,83,88,85,89,85,94,83,97,0,70,78,69,77,67,77,64,80,04x 78,77,80,76,0,47,71,43,67,44,65,46,65,47,71,0F 62,61,60,55,61,53,63,53,62,62,0,80,62,81,55,83,55,84,58,80,61,0^ 133,141,130,142,120,139,115,131,115,124,117,115,120,109,123,106,128,104,129,104,134,105V 138,109,135,108,133,109,133,111,131,109,128,108,126,109,126,113,127,116,129,118V 132,118,133,117,134,116,133,111,134,115,136,117,139,117,140,115,138,109,141,116V 141,119,140,121,139,123,130,121,126,120,123,121,122,125,123,127,124,129,130,130V 134,133,133,142,135,144,139,144,141,141,141,138,143,137,144,134,143,129,140,127J 138,127,137,128,134,127,132,128,130,130,0,141,138,140,133,136,128,0Z 131,118,129,116,129,115,130,113,132,114,132,118,0,134,112,136,112,137,111,136,109,0R, 121,100,118,97,120,96,121,97,121,101,0,128,97,127,93,128,91,130,92,128,97,0T@ 137,100,139,95,142,95,142,97,137,99,0,162,142,161,143,158,143,153,142,150,139VT 148,131,148,122,149,115,150,114,152,109,155,107,156,106,161,105,165,106,167,108Vh 168,108,171,115,172,118,171,122,168,123,164,123,160,122,159,121,156,122,154,124V| 154,129,156,131,160,131,161,130,163,132,164,135,163,140,164,144,166,144,169,142h 170,144,172,144,174,142,175,137,174,131,172,129,170,127,167,127,167,128,164,127,162,127,161,130,0X 167,128,168,131,169,135,170,138,169,143,0,171,116,171,119,168,120,167,120,165,118h 165,116,164,112,161,111,159,112,159,117,161,119,161,120,165,118,163,115,162,115,161,116,160,118,0f 165,114,166,111,169,111,170,115,169,116,168,116,165,114,0,162,105,162,101,164,99,165,100,166,99h 166,103,164,106,167,103,169,104,170,105,167,108,171,104,174,104,176,106,172,110,169,110,168,109,0U 159,99,160,97,161,94,159,94,157,95,159,100,0,154,100,153,94,150,95,155,101,255J0 3,100,165,56,98,120,122,152,122,167,105,55,120,65,104,80,103,84,107PD 67,107,72,109,63,124,79,124,79,132,65,130,44,66,62,55,82,57,120,98,128,92IX 140,96,152,96,158,96,2,167,113,163,118,135,110,131,115,83,93,75,93]l 1,100,160,33,98,74,102,77,107,75,124,75,129,54,129,88,128,97,128,97,92,137,138,142,133T 165,133,171,133,171,107,164,102,71,93,87,93,128,111,137,114,161,114,168,118,0" *x:͛!ͪ!."*x :!ͪ *