UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<CSS *UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<CLCr " ****************************"C" ** CSS CHESS PROGRAM **"C" ****************************"C(" by dieter steinwender"C2CF B(119),S(10,4)DG M(10),A$(10),U(10),F$(10)DSH R1(4),R2(4),R3(4),R4(4),R5(4),R6(4)&UU<,R7(4),G1(10)DeI W(10),P(10)DP O(15),OA(6),OE(6),L(6),Z(200,6)DZ ZT(9,8),BV(8),BL(2,9),TL(2,9),I,J,CL,K,Z1,V,I2,C,P,R,S,T,W,PT,Y1,X1,Z0,Z1,Z2,MZ,MT,IIS,FA,T7,T0,W$,B$,E$E_B$(128)(128)(128)(128)EP`W$(207)(207)(207)(207):C(0)(UU<32:C(2)48End T7(2),BA(2),KR(2),KL(2)EtȏE I0 119EB(I)100E"E, I9 2 1E6 J1 8E@ B(I10J)EJETE^ -2,-4,-3,-5,-6,-3,-4,-2Fh -1,-1,-1,-1,-1,-1,-1,-1F&r 0,0,0,0,0,0,0,0F<| 0,0,0,0,0,0,0,0FR 0UU<,0,0,0,0,0,0,0Fh 0,0,0,0,0,0,0,0F~ 1,1,1,1,1,1,1,1F 2,4,3,5,6,3,4,2FF1F I1 4FS(0,I)1F̊FS(0,0)0FM(0)0F I0 6F A$(I),U(I)FG ".",0,"P",100,"R",500,"B",350G>& "N",325,"Q",900,"K",20000GK0UU<M048100GYNF$(0)"."GgXF$(1)"."GubF$(2)"*"G I0 15G O(I)GG -9,-11,9,11,-1,10,1,-10,19,21,12,-8,-19,-21,-12,8G I1 6G OA(I),OE(I),L(I)GƊH#Ѕ 0,3,0,4,7,1,0,3,1,8,15,0,0,7,1,0,7,0H1 I1 4Ha R1(I),R2(IUU<),R3(I),R4(I),R5(I),R6(I),R7(I)HgH 96,97,95,97,95,97,98H 92,94,93,95,95,93,91H 26,27,25,27,25,27,28H* 22,24,23,25,25,23,21HH J1 8HR I2 9I\ZT(I,J)(124((5.5I)(4.5J)))IfI)p BV(J)I/zIE 0,0,4,6,7,2UU<,0,0INMZ0IZG1(0)1IiT01:1800ICL1:Y107:CLCL1:X107IP((Y12)32)(X14):CLCL1ICL1@P,B$;:@P32,B$;:1030ICL1P476@P,W$;:@P32,W$;J ::@477,(W$,2);:@47732,(W$,2);Jh16384511,207:163845113,2UU<07:1638451132,207:16384511323,207JnJP(32(R2))(S4)1:PT1100,1110,1120,1130,1140,1150:JL@P32,(135C);(130C);:KV@P,(130C);(129C);:@P32,(133C);(138C);:K9`@P,(129C);(128C);:@P32,(141C);(136C);:Kpj~UU<@P,(129C);(130C);:@P32,(135C);(130C);:Kt@P,(131C);(130C);:@P32,(135C);(130C);:K~@P,(130C);(130C);:@P32,(141C);(136C);:L @P,(143);(143);:@P32,(143);(143);LAC(16384P1):@P,(C);(C);:@P32,(C);(C),UU<;:LQ"--HELP--"Lc"rE=RESTART"LrĆ"qQ=QUIT"LΆ"vB=VIEW BOARD (ENTER)"L؆"nM=NEXT MOVE"L"mM=MULTIPLE MOVES"L"lM=LIST LEGAL MOVES"L"tB=TAKE BACK MOVE"M "dL=DIFFICULTY LEVEL"M# "sB=SETUP BOARD":M+T0M[Ѓ IFMZ=1THENIxUU<FINKEY$=""THENE$="NM":GOTO2030MyڄI$""E$I$:I$"":2050M"YOUR MOVE";: E$M E$"RE" E$"R" 2070M 200M E$"QQ" E$"Q" 2090M 15000N * E$"VB" E$"" E$"V" 2120N44000N!>2000NAH E$"SB" E$"S" ,UU< 2150NKR5000NU\2000Nuf E$"NM" E$"N" 2170Np3500Nz E$"MM" E$"M" 2210N"MULTIPLE MOVES: ";N MZ0 MZ1:"BEGIN":2000NMZ0:"END":2000O E$"LM" E$"L" 2260OZ0Z1O#6500O-Z1Z0O7ʁ2000OWUU<Ԅ E$"TB" E$"T" 2330Ohބ T1 2300O"SORRY: NOT POSSIBLE"O2000O9600O "OK"O 2000O  E$"DL" E$"D" 3000O $"LEVEL OF ANALYSIS=";T0;O . T0O 8T0(T0)P B2000P P+ „ (E$)4 1200:2000PP V1(E$)6UU<410(((E$,2,1))47)P| N1((E$,3,1))6410(((E$,4,1))47)P 8800P 7000P Z11 G1P Z(Z1,1)V1 3090P  Z(Z1,2)N1 3120P P "ILLEGAL MOVE"P &2000Q 0 Z(Z1,4)0 3170Q) D (E$,1)"N" Z1Z11QE N (E$,1)"0UU<B" Z1Z12Qa X (E$,1)"R" Z1Z13Qt b"YOU MOVE: ";Q~ l6000Q v9000Q 7000Q MT0 3300Q 9600Q 3100Q MZ1 2000Q I$""Q 8800Q ʂ10000Q Ԅ Z20 3650R ل W1 3660R" ބ W32766 3630R, Z1Z2R> "MY MO6UU<VE: ";RH 6000RR9000Rd W2 3660Ry W32765 3670R."CHECK MATE. YOU WIN!"R83670RB T00 3670RL"STALEMATE: TIE GAME!"RV"VALUE=";W:"POSITIONS ANALYSED=";C1S`2000S  BOARDS1000S%I921S0ҀJ18S:܂4UU<350S@S_:1,1:I$"":J1:I2:4350SnE$:1160SE$"A"J14350:JJ1:4350SE$"S"J84350:JJ1:4350SE$"Z"I24350:II1:4350SE$"W"I94350:II1:4350T7E$(13) I$I$(64J)((I1),1):100,1:(I$)4:UU<TPE$" "4350:4121Td,@511,(207);:T^"MATERIAL VALUE = ";M(T)Th"EN PASSANT SQUARE = ";:6700Tr"CASTLE STATUS = ";S(T,1);S(T,2);S(T,3);S(T,4)T|"SIDE TO MOVE=";U F1 " WHITE/RED":4250U"" BLACK/BLUE"U(U2R9IUC9UU<A1B(I10J)UPF1(A1)U]A1(A1)U}&SJ1:PTA1:CC(F11):1050U0U ENTER POSITIONSUT0U"CLEAR BOARD (Y/N) "U E$U E$"N" 5130UĄ E$"Y" 5030U΀ I2 9V ؀ J1 8VB(I10J)0VV%V0M(0)0VCUU< "WHITE/RED ";VKF1VU5500Vi("BLACK/BLUE ";Vr2F1V|<5500VF"SIDE TO MOVE (W/B) ";VP E$VZ E$"B" 5240Vd E$"W" 5190VnF1Wx"CHANGE EN PASSANT/CASTLE STATUS (Y/N)";W  E$W E$"N" 5320W2 E$"Y" 5240zUU<WL"PIECE COLUMN";: E$Wk E$"0" S(0,0)0: 5300WS(0,0)F15(E$)9W"CASTLE STATUS ";W S(0,1),S(0,2),S(0,3),S(0,4)WȂ4000WҐW| SETUP SIDEW E$W E$"." 5660X (E$)3 5590X I0 6X>„ (E$,1)A$(I)UU< AI:5600XD̊Xpֆ"ENTRY ERROR (EG. RA1 OR .=END)":5520XvXN((E$,2,1))6410(((E$,3,1))47)XM(0)M(0)(B(N))U((B(N)))XB(N)FAXM(0)M(0)FU(A)X5520XXpYA$A$((B(Z(Z1,1))))Y! J1 2Y6RE(Z(Z1,JYUU<)10)YKLIZ(Z1,J)10REYgA$A$(64LI)(47RE)YmY Z(Z1,4)0 6100YA$A$"="A$(Z(Z1,4))YԆA$YސYdYx7000Y MT0 6560Y"KING COULD BE TAKEN"YZGG1(T);"POSSIBLE LEGAL MOVES"Z( Z1G1(T) G1Z260UU<00Z8Z>ȐZZ, DISPLAY A E.P. SQUAREZx6 S(T,0)0 A$"0":6750Z@RE(S(T,0)10)ZJLIS(T,0)10REZTA$(64LI)(47RE)Z^A$ZhZX MOVESZlMT0ZvGG1(T)Z V21 98[AB(V)[ A100 7490[+ (A)F 7490[6'UU<A(A)[HƄ A1 7360[WNV(F10)[lڄ B(N)0 7210[v7900[ ((V10)5.5)F2.5 7210[NV(F20)[ B(N)0 7210[ 8500[Z(G1,6)((VN).5)[*[4 I1 2\>NVO(FI)\H B(N)100 7330\/R NS(T,0) 730(UU<0\H\ (B(N))F 7330\ef B(N)F6 MT1:7810\op7900\yz7330\8500\Z(G1,3)1\Z(G1,6)N10F\\7490\\ʀ IOA(A) OE(A)\LAL(A)\NV\NNO(I)]  B(N)100 7480]  (B(N))F 7480]4 B(N)0GUU< 7460]U B(N)(1F)6 MT1:7810]^LA0]h$8500]z. LA1 7400]8]B]` IF2 F3]j S(T,I)0 7790]t JR1(I) R2(I)]~ B(J)0 7790]] JR3(I) R4(I)^ K0 7^ NJ^NNO(K)^.Ą B(N)100 77UU<00^E΄ (B(N))F 7700^Y؄ B(N)0 7610^t OA((B(N)))K 7700^ OA((B(N)))K 7700^ NJO(K) 7790^ L((B(N)))1 7700^ 7790^^ K8 15^( B(JO(K))F4 7790_2_<_FVR5(I)_PNR6(I)_)Z8500_UU<8dZ(G1,5)I_>n_LxG1(T1)G_R_Y܃ _ ((N10)5.5)F3.5 8500: 7980_ I25 2 1_8500_Z(G1,4)I2_"_,_!4_!HZ(G,1)V_!RZ(G,2)N_!\Z(G,3)(B(N))_!f I14 6` !pZ(G,I1)0`!z`&! G200 8600`0!iUU<GG1`6!`K"` INIT MOVE TREE`\"t T0 8880`j"~ I0 4`|"S(0,I)S(1,I)`"`"M(0)M(1)`"T0`"`#( MOVE`#d&H Z(Z1,4)0 9820d&RB(N)Fd&\B(V)B(N)d&fB(N)FZ(Z1,3)d&pTT1d&ze' LOOKUP ALPHAe'$Z20e#'.C10emUU<3'8W(0)32767eC'BW(1)32767eV'V TT0 10110ea'`12000ep'jW(T2)WFe{'t10380e'~7000e' MT0 10150e'W(T2)32767Te'10380e' GG1(T) 10190e'W(T2)0e'10380e'ăe'P(T)G1(T)f 'W(T2)W(T)f'Z1P(T)f(' T0 1*UU<0250f2(6000f<( 9000fH(C1C11fS(10070fu(2 1(W(T3))W(T2) 10350f(12420j 0Hj 0RW(WFAZT(I,J))UU<j+0\12420j10fj@0pKR(FA1)IjO0zKL(FA1)JjU0j[0ja0jp0FA(M(T))j0 FA0 12500j0W(WM(T)(M(T)BA(FA1)(BA(FA1)1)(M0M).0001))j0ԃj0W(W(ZT(KR(2),KL(2))(43000MM(T)).001))k(0W(W(ZT(KR(0),KL(0))(43000MM(T8UU<)).001))kB1W(WT7(2)T7(2)12)k\1W(WT7(0)T7(0)12)kj1. I1 8kx18 J0 2k1BFAJ1k1L FA0 12880k1V BL(J,I)0 12830k1`W(WFA(BL(J,I)1)8)k1jIIS0k1t BL(J,I1)0 12710l1~ BL(J,I1)0 12710l1W(WFA20)l#1UU<IIS1l=1 BL(2J,I)0 12880la1W(WFATL(2J,I)TL(2J,I)3)l}1Ą BL(2J,I1)0 12790l1΄ BL(2J,I1)0 12790l1W(WFA18)l112890l1l2 IIS0 12890l2 W(WFA10)l212890m2 BL(2J,I)0 12880m"22W(WTL(2,I)TL(2,7UU<HI)8)m?2