8"0,6,5:4,6,5:X#" GIB DEN NAMEN EIN UND DRUECKE":"  RETURN "y*" WIE HEISST DU ";AN$:,I139:E$E$" ":6I139:E$E$"":@N$"12345678"JD$""TI120:D$D$"":^A(9,9),I4(7),D$(2)h"GUTEN TAG,"AN$" !"=i"SPIELEN WIR *** REVERSI ***"\r"KENNST DU DAS SPIEL? ";||2030:X$"J""JA":600"NEIN""REVERSI WIRD AUF EINEM 8 X 8 FELD,""GESPIELT.""MAN MUSS IMMER VERSUCHEN,STEINE DES""GEGENSPIELERS EINZUGRENZEN.HAT MAN"H"HORIZONTAL,VERTIKAL ODER DIAGONAL"t"STEINE DES GEGNERS DURCH ZWEI EIGENE""BEGRENZT,WERDEN ES ALLES EIGENE STEINE"" ""          """ "K"BEISPIEL:WEISS BEGRENZT SCHWARZ"p"BEKOMMT SO 4 SCHWARZE STEINE.""";I130&" ";:L1200:0" ";:L1200::D"         "!N"GIB DEINEN ZUG AN,INDEM DU REIHE UND"LX"SPALTE DURCH BUCHSTABEN UND ZIFFERN"sb"ANGIBST,WOHIN DU SETZEN WILLST."|lF23v"WENN DU NICHT ZIEHEN MOECHTEST,GIB""0 A EIN."B1:W1D$(B1)" ":N$(B1)"SCHWARZ"D$(01)" "+D$(W1)" ":N$(W1)"WEISS"6K07GI4(K),J4(K)M_I09:J09lA(I,J)0uJ,IA(4,4)W:A(5,5)WA(4,5)B:A(5,4)B BC2:WCBC:N14:Z0:S20:S40:S50"WILLST DU GEGEN MICH SPEILEN? ";  2030:X$"N" "NEIN":900&*"JA":F23J4"SOLL ICH MICH ANSTRENGEN? ";>2030:X$"N""NEIN":"NICHT SO BESCHEIDEN!":860H"JA"RS22:S41:S52\"SCHWARZ ZIEHT ZUERST."f"WILLST DU SCHWARZ ODER WEISS ? ";p2030:X$"W"""N$(0)"":Y$"S":9004z""N$(2)"":F22OI1999::"";:1740oF22"OK, ICH UEBERLEGE!"}T1B:T2W F2 2100,2330,2100Z1990BCBCS11WCWCS1N1N11 1740WC0N164Z01090T1W:T2B F2 2100,2100,2330&Z110705WCWCS11BBCBCS1NN1N11X$1740q.BC0N164Z01090z8920BD$;E$:E$:E$LD$;E$"SCHWARZ HAT"BC"UND WEISS HAT"WC"STEINE."VBCWC1150`BCWC1170j"  WEISS";t1180~UNENTSCHIEDEN!"$1360:"  SCHWARZ;[" GEWINNT !":Y$"S"BCWCy BCO "TUT MIR LEID!""DAS WAR EIN ";BC111350BC251330BC391310BC531290"SUPER-SPIEL."30001360  "DURCHMARSCH."1360*"HEISSES SPIEL!"4(1360B2"KAMPF."L<1360cF"ERSTER VERSUCH!"{P"NOCH EIN SPIEL?";Z2030:X$"J""JA":PP0:QQ0:WW0:730d"NEIN"n"DANKE FUERS SPIEL."xF10I111J111A(II1,JJ1)T21470!J1,I1'0F116?S10JK07WI5I4(K)dJ5J4(K)pI6II5|J6JJ5S30A(I6,J6)T21720"S3S31,I6I6I56J6J6J5@A(I6,J6)T11630JA(I6,J6)0 1720T1570^S1S1S3hU11720rI6I&|J6J3K10S3CA(I6,J6)T1PI6I6I5]J6J6J5eK1lKr"  REVERSI X$"ó"E$" A B C D E F G H"" òòòòòòòî"I18(N$,I,1)" ";J182D$(A(I,J)1)"";9&JM0:I8" "X$T:IqD" ñññññññý"wNX INPUT SUBROUTINEbI1:JIlK12v2030G(X$)47GG58IG48:195064GG74JG64:1950""X$" ";:: BLINK MOVE;(D$,2(I1)5);2(J1)3);KX$D$(T11)VK15l" ";:L1200:X$"";:L1200:: INPUT WITH CURSORL09:X$::1,800,10X$:X$"" 1,400,10: "";:L1100: "";:L1100: 2050Q*D$""E$"UNMOEGLICH.INPUT 0-8 AND A-H":3,800,120m4 MOVE INPUT SUBROUTINE>D$;E$"EINGABE:"N$(T11)" ZIEHT -- ";H 1880RI0J0I8J82090\I02200fD$;E$" VERZICHTEST DU?"; p2030:X$"J""NEIN":2110/ z"JA":P1$"-":P2$P1$:2670? Z1ZZ:I Z1:]  A(I,J)02230 D$""E$"FELD BESETZT! "N$(A(I,J)1):3,300,20 2310 1410 F112270 D$""E$"GRENZT NICHT AN "N$(T21):3,600,20 2310 U1!1490!S102320Q!D$""E$"GRENZT KEINE STEINE VON "N$(T21)" EIN":3,700,20_! E$:2110i! 2600! COMPUTER DECIDES MOVE!$ B11:I30:J30!. I18:J18!8 A(I,J)02520!B 1410!L F102520!V U1!` 1490!j S102520"t (I1)(I8)S1S1S2."~ (J1)(J8)S1S1S2H" (I2)(I7)S1S1S5b" (J2)(J7)S1S1S5|" (I3)(I6)S1S1S4" (J3)(J6)S1S1S4" S1B12520" S1B12510" (1)0.52520" B1S1:I3I:J3J" J,I" B102590# S502560# S50:2330L# D$""E$N$(T11)" VERZICHTET":P1$"-":P2$P1$:2670\# Z1ZZ:f# Z1:t# II3:JJ3#( D$""E$;N$(T11)" ZIEHT NACH "(I48)" "(J64)#2 P1$(I48):P2$(J64):2670#< 1960#F Z0:U1:1490%$P D$""E$;N$(T11)" GEWINNT"S1" STEIN";:S11"E";=$Z " VON "N$(T21)""C$d c$n QQQQ1:QQ5 QQ1:PPPP1$x "";:L0PP:"";:$ L1QQ:"";:$ WW1 WW0:2720$ WW0 WW1$ WW0"";$ P1$;P2$:D$:!% 0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1,% I13<% X,Y:1,X,YC% II% d% 770,20,810,20,854,40