1982(C)W.WARNKE- D1000 BERLIN 51Y! *************** ***************i*""~," CHECKERS "2"PROGRAMM: WOLF WARNKE BERLIN51KX11E3:P2008:36879,254:"";:R(4),S(7,7)SG1:R(0)99:QW7X:$Z1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,150xX0QW<yY0QWMzJ:J15180_S(X,Y)J:200m:S(X,Y)wY:XX0QWY0QWS(X,Y)13506S(X,Y)1A112:BG:650:AJS(X,Y)2A112:B112:650:B:A^Y:X:1140,UXA:VYB:U0UQWV0VQW870DS(U,V)0910:870VS(U,V)0870}UUA:VVB:U0V0UQWVQW870RS(U,V)0910fV0S(X,Y)1QQ2(YV)2QQ5YQWQQ2U0UQWQQ110300LQ0:tR(0)991880+" "^"VC20"R(1)""R(2)"NACH"R(3)""R(4);:R(0)99hEN75sENENR(4)0S(R(3),R(4))2:1401S(R(3),R(4))S(R(1),R(2))S(R(1),R(2))0:(R(1)R(3))214012S((R(1)R(3))2,(R(2)R(4))2)03<XR(3):YR(4):S(X,Y)1B2:A224:1370_FS(X,Y)2A224:B224:1370:BPA:R(0)99"NACH"R(3)""R(4);:R(0)99:1240U1401ZUXA:VYB:U0UQWV0VQW1400dS(U,V)0S(XA2,YB2)0910x y" 0 1 2 3 4 5 6 7"#z"7":"6":"5"9{"4":"3":"2"I|"1":"0"U""cY701nX07I=2*X:PRINTTAB(I);S(X,Y)02)"̺";S(X,Y)12)"";S(X,Y)12)"  ";S(X,Y)22)" ** ";&S(X,Y)22)"**";9X:" "::Y:DL07OM07jS(L,M)1S(L,M)2Z1S(L,M)1S(L,M)2T1M:LZ11880T11885"T0:Z05" " 6"VON ";:E,H:XE:YH:S(X,Y)0"":1589%" "K"NACH ";A,B:XA:YBh" "S(X,Y)0(AE)2(AE)(BH)1700"";:1669I46S(A,B)S(E,H):S(E,H)0:(EA)21810S((EA)2,(HB)2)0 "UND NACH";A1,B1:A101810> S(A1,B1)0(A1A)2(B1B)21802aEA:HB:AA1:BB1:II15:1750sB7S(A,B)2(147)&230X"DER COMPUTER HAT DAS SPIEL GEWONNEN!":1999Y"DER COMPUTER HAT DAS SPIEL GEWONNEN!":1999]"BRAVO, SIE HABEN DAS SPIEL GEWONNEN!"!J36879,28:"DIESES PROGRAMM SPIELTe"'AMERICAN CHECKERS'"EINE DAME VERSION."KOORDINATENEINGABEN  MIT KOMMA TRENNEN! ZB:NACH? 3,3"SPRINGEN: GEBEN SIE  -5,-5 EIN.(ZB.)( "ACHTUNG! BEI FALSCHEN EINGABEN ERROR!RETURNBY RE$:RE$(13)2905T^ "WICHTIG:"_ "BEI KOORDINATEN-EINGA-BE BITTE ZUERST"` "WAAGERECHTE, DANN SENKRECHTE EINGEBEN!"a RE12E3:REc RE$"0":{" ")<(C112:UC0UCQWVG010800Hn(S(UC,VG)0QQ1:10800g(UC0UCQWVGQW10800(S(UC,VG)0(S(UC,VG)0(UCXVGY))QQ20*C:QR(0)R(0)Q:R(1)X:R(2)Y:R(3)U:R(4)V1*Y/