I#1: 10& DAME IN MINIL6000 u FM(19,9): CZ(19,4): S(9): FS(9)( A(X)3(X1)(X3)4(X6)6(X4)7(X9)9(X7) B(X)2 B(X)X(X2 X5 X8)< C(Y)Y(Y10)10F ZE$"C M"P SC0: SM0;Z I1 19:J19: FM(I,J):J,I]dI119:J14: CZ(I,J):J,In-1,-1,-1,1,0,0,0,1,1,-1,-1,-1,0,1,0,1,0,1p-1,0,-1,-1,1,0,0,0,1,0,-1,-1,1,-1,0,0,0,1r-1,0,-1,1,1,0,0,1,0,-1,-1,0,1,0,1,0,0,1t0,-1,-1,0,-1,1,1,0,0,0,-1,-1,-1,1,1,1,0,0Ev-1,0,-1,-1,0,1,0,1,0,0,-1,-1,0,1,0,0,0,1rx0,-1,-1,0,1,0,1,0,0,-1,0,-1,1,0,0,0,0,1z0,0,-1,-1,-1,1,0,0,0,-1,0,0,1,1,1,0,0,0|0,-1,0,-1,1,1,0,0,0,-1,0,0,-1,-1,1,0,0,0~0,0,-1,-1,1,0,0,0,0,0,-1,0,1,-1,,0,0,0-1,0,0,-1,1,0,0,0,0D24,25,36,0,14,15,36,0,15,35,36,47,36,58,59,0t15,35,36,0,24,25,26,0,26,57,58,0,26,35,0,047,48,0,0,35,36,0,0,35,36,0,0,36,0,0,047,58,0,0,15,0,0,0,26,47,0,0,47,58,0,035,36,47,0,24,58,0,0,15,47,0,070000,31,0,39:7,0::0,23,0,395I20 36:J220 6E(J,I);"["NJ,IeI220:J19376u(I,J);"["J,I K0I3156:J20326KK1(I,J);0,7;((K),2,1)J,I0,25,0,16:7,1: 6:: 2);"DAME IN MINI"::7 / "" IHR ZUG (M)":" -----------"I ," VON:":" NACH:":p 6" MEIN ZUG (C)":" ------------" @" VON:":" NACH:" J(19,1);"SPIELSTAND :" T(22,4);SM;" : ";SC ^(21,0);"MENSCH - COMPUTER" c(24,1);"RUNDE:";Q5 h SPIELBEGINN rX0:Y0, |I13:S(I)1:IA I46:S(I)0:IV I79:S(I)1:I` 5000  EINGABE - MENSCH MIT UEBERPRUEFUNG  I5 6:(I,6);" ":I M1$"":M1$:M1$""440:5500 M2$"":M2$:M2$""450:5600  M1(M1)M2(M2)51005 M10M110M20M2105100I S(M1)15100\ S(M2)15100| M2M13S(M2)1 5100 MZM15100 M2M13S(M2)05100 M2M145100 M17 M235100 &S(M1)0:S(M2)1 05000 : ABFRAGE OB MENSCH GEWONNEN HAT@ D S(1)1 S(2)1 S(3)1 5200N N I1 9c X S(I)1 630j bIt l5200 v I1 9  S(I)1 730  S(I3)0 750  A(I)I720  I3700  S(5)1 750 730  S(8)1 750 730(  S(I2)1 S(I4)1 750/ I9 5200Q  FELDMUSTER SUCHEN_  I1 19  GESPIEGELTES FELDMUSTER ERZEUGEN  J13 K31 1  FS((J1)3K)FM(I,(J1)34K) *K,J 4 VERGLEICH AKTUELLES FELD MIT FM> J19H S(J)FM(I,J)880"RJ+\HV04f970Yp VERGLEICH AKTUELLESFELD MIT FSdzJ19| S(J)FS(J) 940JHV1970I(27,10);18,0;"PROGRAMM FEHLER !!!":4: DARF NICHT AUF (29,10);2,0;"MIT 'RUN' NEU STARTEN !": 5 SUCHE NACH MOEGLICHEN COMPUTERZUG=XIHI14_ CZ(X,I)01040fI10,0:(27,10);"ICH GEBE AUF !!!"5200 COMPUTERZUG AUSWAELENY((1)41)$CZ(X,Y)01050.HV1114086,0:(10,6);((CZ(X,Y)10))0B(11,6);( C(CZ(X,Y))):7,1NL SPIELFELD AKTUALISIERENeVS((CZ(X,Y)10))0|`S( C(CZ(X,Y)))1j1190t6,0:(10,6);( A((CZ(X,Y)10)))~(11,6);( A( C(CZ(X,Y)))) :7,1 SPIELFELD AKTUALISIERENS( A((CZ(X,Y)10)))0,S( A( C(CZ(X,Y))))165000] ABFRAGE OB COMPUTER GEWONNEN HATS(7)1S(8)1S(9)15300I19 S(I)11260I5300I19 S(I)11360 S(I3)0 430  A(I)I 1350  171330 C(5)1430&(1360:2 S(2)1 430D<1360cF S(I2)1S(I4)1430jPItZ5300 ANZEIGE I1 3J13 (I61,(J3)62);(ZE$,S((I1)3J)2,1)J,I UNGUELIGEEINGABE/26,0:(27,10);"UNGUELTIGE EINGABE !!":2:30 d(27,10);" ":7,1:430 yP MENSCH GEWINNTZ6:(13,1);"SPIELENDE"d(14,1);"---------"n10:(16,1);"SIE HABEN"x(17,1);"GEWONNEN!"SMSM1:CZ(X,Y)07:5400 COMPUTER GEWINNT:6:(13,1);"SPIELENDE"S(14,1);"---------"o2:(16,1);"ICH HABE "(17,1);"GEWONNEN!"SCSC1:7 SPIELENDE "(22,3);" ":Q5Q51,(22,3);SM;" : ";SC:0:7000:2 66(27,10);" ":1:12,17,0,16:E@0,23,0,16tJ I56:(I,6);" ":(I5,6);" ":I}T355|M1$"1" M11:5590M1$"2" M12:5590M1$"3" M13:5590M1$"4" M14:5590M1$"5" M15:5590M1$"6" M16:5590,M1$"7" M17:5590EM1$"0" M10:5590^M1$"8" M18:5590|M1$"9" M19:5590:4405,0:(5,6);M1:7,1:450M2$"1" M21:5700M2$"2" M22:5700M2$"0" M20:5700M2$"3" M23:5700M2$"4" M24:57000M2$"5" M25:5700IM2$"6" M26:5700bM2$"7" M27:5700{&M2$"8" M28:57000M2$"9" M29:5700:450D5,0:(6,6);M2:7,1:M1$"0"M2$"0" 5300 N460p6,3:0,31,0,39:::Q51z" [[[ [[[[ [[[[[ [[[[":" [ [ [ [ [ [ [ [ "^" [ [ [[[[ [ [ [ [[[["" [ [ [ [ [ [ [ [ "" [[[ [ [ [ [ [ [[[["7:"DAS SPIELBRETT BESTEHT AUS 3*3 FELDERN."":"- EIN SPIEL BEGINNT MITEINEM ZUG DES MENSCHEN ( M )." Z:"- EIN STEIN KANN EIN FELD GERADLINIG VOR";"ZIEHEN, WENN DIESES FELD LEHR IST.":"- DAS RUECKWAERTSZIEHEN IST NICHT ERLAUBT.": "- ES WIRD SCHRAEG GESCHLAGEN (KEIN SCHLAGZWANG)." E:"- EINER DER BEIDEN SPIELER HAT GEWONNEN, WENN:":" * EIN STEIN AUF DER GEGNERISCHEN SEITE ANKOMMT."" * DER GEGNER KEINE STEINE MEHR HAT." " * DER GEGNER KEINE ZUGMOEGLICHKEIT HAT"; " * EIN SPIELER MIT ' 0,0 ' AUFGIBT." 30:X26:(29,30);">ENTER<":7bbQQ$"":QQ$:QQ$(13)7020:7010 lQQ$"":(29,30);" ":  AUFGIBT." 30:X26:(29,30);">ENTER<":7bbQQ$"":QQ$:QQ$(13)7020:7010 lQQ$"":(29,30);"