1"PIN POINT PREASENTIERT AUS SEINER"Q"PUPLIC-DOMAIN-SOFTWARE:"u(" REVERSI PART 2"2T13000:T *** REVERSI ***"0,6,5:4,6,5:"",I139:E$E$" ":6I139:E$E$"":@N$"12345678"JD$""TI120:D$D$"":6^A(9,9),I4(7),J4(7),D$(2)Hh"GUTEN TAG."gr"KENNST DU DAS SPIEL ?";|2030:X$"J""JA":660"NEIN""REVERSI WIRD AUF EINEM 8 X 8 FELD""GESPIELT.""MAN MUSS IMMER VERSUCHEN,STEINE DES")"GEGENSPIELERS EINZUGRENZEN.HAT MAN"R"HORIZONTAL,VERTIKAL ODER DIAGONAL"~"STEINE DES GEGNERS DURCH ZWEI EIGENE""BEGRENZT,WERDEN ES ALLES EIGENE STEINE"" " "          "," "T"BEISPIEL:WEISS BEGRENZT SCHWARZ"y"BEKOMMT SO 4 SCHWARZE STEINE.""";I130&" ";:L1200:0" ";:L1200::D"         ")N"GIB DEINEN ZUG AN,INDEM DU REIHE UND"TX"SPALTE DURCH BUCHSTABEN UND ZIFFER"{b"ANGIBST,WOHIN DU SETZEN WILLST."lF23v"WENN DU NICHT ZIEHEN MOECHTEST,GIB""0 A EIN."B1:W1D$(B1)" ":N$(B1)"SCHWARZ" D$(01)" "1D$(W1)" ":N$(W1)"WEISS";2740FK07WI4(K),J4(K)]oI09:J09|A(I,J)0J,IA(4,4)W:A(5,5)WA(4,5)B:A(5,4)B BC2:WCBC:N14:Z0:F21:S20:S40:S50"WILLST DU GEGEN MICH SPIELEN?";% 2030:X$"N""^RNEIN":9008*"JA":F23[4"SOLL ICH MICH ANSTRENGEN?";~>2030:X$"N""NEIN":860H"JA"RS22:S41:S52\"SCHWARZ ZIEHT ZUERST."f"WILLST DU SCHWARZ ODER WEISS ? "; p2030:X$"W"""N$(0):900z""N$(2):F228I1999::"";:1740XF22"OK, ICH UEBERLEGE!"fT1B:T2W}F22100,2330,2100Z1990BCBCS11WCWCS1N1N111740WC0N164Z01090T1W:T2BF22100,2100,2330Z11070WCWCS11$BCBCS10N1N11:$1740S.BC0N164Z01090\8920oBD$;E$:E$:E$LD$;E$"SCHWARZ HAT"BC"UND WEISS HAT"WC"STEINE."VBCWC1150`BCWC1170j" WEISS";t1180~"UNENTSCHIEDEN!" 1360&" SCHWARZ";A" GEWINNT !":BCBCWCPBC01210[BCBCmBC(64BC)N1"DAS WAR EIN ";BC111350BC251330BC391310BC531290"SUPER-SPIEL."1360 "WALKAWAY."1360 "KAMPF."(1360)2"HEISSES SPIEL!"3<1360EF"SQUEAKER !"]P"NOCH EIN SPIEL?";Z2030:X$"J""JA":PP0:QQ0:WW0:730d"NEIN"n"DANKE FUER'S SPIEL."xF10I111J111A(II1,JJ1)T21470J1,I1 F11$S10/K07<I5I4(K)IJ5J4(K)UI6II5aJ6JJ5jS30A(I6,J6)T21720"S3S31,I6I6I56J6J6J5@A(I6,J6)T11630JA(I6,J6)01720T1570^S1S1S3hU11720rI6I |J6JK10S3'A(I6,J6)T14I6I6I5AJ6J6J5IK1PKV|"  REVERSI "X$"ó"E$" A B C D E F G H"" òòòòòòòî"I18(N$,I,1)" ";J18D$(A(I,J)1)""; &J40:I8" "X$;:IWD" ñññññññý"]NtX INPUT SUBROUTINEbI1:JIlK12v2030G(X$)47GG58IG48:195064GG74JG64:1950""X$" ";:: BLINK MOVE!(D$,2(I1)5);2(J1)3);1X$D$(T11)<K15R" ";:L1200:iX$"";:L1200:q: INPUT WITH CURSORL09:X$:X$:X$"" "";:L1100:" ";:L1100: 2050*D$""E$"UNMOEGLICH.INPUT 0-8 AND A-H"14 MOVE INPUT SUBROUTINE^>D$;E$"EINGABE:"N$(T11)" ZIEHT -- ";hH1880RI0J0I8J82090\I02200fD$;E$" VERZICHTEST DU?"p2030:X$"J""NEIN":2110z"JA":P1$"-":P2$P1$:2670 Z1ZZ: Z1: A(I,J)02230H D$""E$"FELD BESETZT! "N$(A(I,J)1)R 2310\ 1410k F112270 D$""E$"GRENZT NICHT AN "N$(T21) 2310 U1 1490 S102320 D$""E$"GRENZT KEINE STEINE VON "N$(T21)" EIN"! E$:2110 ! 2600)! COMPUTER DECIDES MOVE=!$ B11:I30:J30O!. I18:J18c!8 A(I,J)02520m!B 1410|!L F102520!V U1!` 1490!j S102520!t (I1)(I8)S1S1S2!~ (J1)(J8)S1S1S2! (I2)(I7)S1S1S5" (J2)(J7)S1S1S5 " (I3)(I6)S1S1S4:" (J3)(J6)S1S1S4J" S1B12520Z" S1B12510m" (1)0.52520" B1S1:I3I:J3J" J,I" B102590" S502560" S50:2330" D$""E$N$(T11)" VERZICHTET":P1$"-":P2$P1$:2670# Z1ZZ: # Z1:# II3:JJ3Q#( D$""E$;N$(T11)" ZIEHT NACH "(I48)" "(J64)s#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)""#d $n QQQQ1:QQ5QQ1:PPPP19$x "";:L0PP:"";:O$ L1QQ:"";:d$ WW1WW0:2720s$ WW0WW1$ WW0"";$ P1$;P2$:D$:$ 0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1