5 GOSUB30000:REM TITEL
10 GOSUB20000:REM INIT
1000 GOSUB12000:REM SPIELFELD
1010 IFWN=2THEN1600
1100 Z=Z+1
1200 GOSUB10000:REM COMPUTERZUG
1300 GOSUB4500:REM GEWONNEN?
1400 IFGW=1THENZ5$="C64":CW=CW+1:GOSUB14000:GOTO3000
1500 IFV=1THEN4000
1510 WN=2
1600 Z=Z+1
1700 GOSUB13000:REM SPIELERZUG
1800 GOSUB4500:REM GEWONNEN?
1900 IFGW=1THENZ5$="SPIELER":SW=SW+1:GOSUB15000:GOTO3000
2000 IFV=1THEN4000
2010 WN=1
2100 GOTO1100
3000 ZE=20:SP=0:GOSUB11000:PRINTZ3$
3010 GOSUB11000
3020 PRINT"GEWONNEN HAT DER ";Z5$
3050 FORI=1TO9:BT(I)=0:TP(I)=0:NEXT
3060 P=0
3070 GETX$:IFX$=""THEN3070
3080 GOTO1000
4000 ZE=20:SP=0:GOSUB11000:PRINTZ3$
4010 GOSUB11000
4020 PRINT"UNENTSCHIEDEN"
4030 UW=UW+1
4035 GOSUB14000
4040 GOTO3050
4500 GE=0:G1(1)=BT(1)+BT(2)+BT(3)
4510 G1(2)=BT(4)+BT(5)+BT(6)
4520 G1(3)=BT(7)+BT(8)+BT(9)
4530 G1(4)=BT(1)+BT(4)+BT(7)
4540 G1(5)=BT(2)+BT(5)+BT(8)
4550 G1(6)=BT(3)+BT(6)+BT(9)
4560 G1(7)=BT(1)+BT(5)+BT(9)
4570 G1(8)=BT(3)+BT(5)+BT(7)
4580 FORI=1TO8:IFG1(I)=3ORG1(I)=-3THENGW=1
4590 NEXT
4600 V=1
4610 FORI=1TO9
4620 IFBT(I)=0THENV=0
4630 NEXT
4640 RETURN
5000 PRINT"[147]"
5010 ZE=10:SP=1:GOSUB11000
5020 PRINT"[150]MEHR SPIELE KANN ICH MIR NICHT MERKEN!"
5030 ZE=13:SP=7:GOSUB11000
5040 PRINT"BITTE NEU STARTEN (TASTE)"
5050 GETX$:IFX$=""THEN5050
5060 RUN10
10000 Z4$="[154]X":PF=0:GF=0
10005 FORA=1TO9
10010 IFBT(A)<>0THEN10160
10012 PF=A
10020 IFFS=0THENPF=0:GOSUB10200:GOTO10160: REM NAECHSTMOEGLICHEN ZUG
10030 GOSUB10300:REM NAECHSTEN ZUG SUCHEN
10040 IFGN=1THENGOSUB10200:GOTO10160
10160 NEXT
10162 IFPF>0THENGOSUB10500:GOTO10190
10170 IFA>=15THENV=0:GOTO10190
10180 IFA>=9THENV=1
10190 RETURN
10200 ZE=KW(A,0):SP=KW(A,1)+1
10210 GOSUB11000:REM CURSOR SETZEN
10220 PRINTZ4$
10230 P=P+ZA(A):TP(Z)=P:BT(A)=1
10240 A=15
10250 RETURN
10300 P1=P+ZA(A)
10310 FORI=1TOFS
10320 IFF(I,Z,0)=P1THENGOSUB10360:GOTO10340
10330 GN=1
10340 NEXT
10350 RETURN
10360 IFF(I,Z,1)=0THENMK=I:GN=1:GOTO10380
10370 GN=0
10380 I=FS+10
10390 RETURN
10500 IFA>=15THEN10850
10560 Z1=Z-2:IFZ1<=0THEN10820
10570 P1=TP(Z1):AB=0
10580 FORI=1TOFS
10590 IFF(I,Z1,0)=P1THENF(I,Z1,1)=1:AB=1
10600 NEXT
10820 FORA=1TO9
10830 IFBT(A)=0THENGOSUB10200
10840 NEXT
10842 IFAB=0THEN10850
10845 GF=1
10850 RETURN
11000 POKECS,SP:POKECZ,ZE:POKECP,0:SYSSC
11010 RETURN
12000 IFFS>=DFTHEN5000
12008 Z=0
12010 Z1$="[158]            [221]   [221]"
12020 Z2$="         [192][192][192][219][192][192][192][219][192][192][192]"
12030 Z3$="                                       "
12040 PRINT"[147]"
12050 FORI=1TO3:PRINTZ1$:NEXT
12060 PRINTZ2$
12070 FORI=1TO3:PRINTZ1$:NEXT
12080 PRINTZ2$
12090 FORI=1TO3:PRINTZ1$:NEXT
12100 FORI=1TO9:ZE=KW(I,0):SP=KW(I,1)
12110 GOSUB11000
12120 PRINTI:NEXT
12130 ZE=20:SP=0:GOSUB11000
12140 WN=1
12170 PRINTZ4$
12190 ZE=20:SP=0:GOSUB11000
12200 PRINTZ3$
12210 GS=CW+SW+UW
12220 ZE=1:SP=23:GOSUB11000
12230 PRINT"[150]SPIELE GES.:";"[155]"GS
12240 ZE=4:SP=23:GOSUB11000
12250 PRINT"[150]DAVON GEWONNEN:"
12272 ZE=7:SP=23:GOSUB11000
12274 PRINT"C64:        ";"[155]"CW
12280 ZE=8:SP=23:GOSUB11000
12290 PRINT"[150]SPIELER:    ";"[155]"SW
12300 ZE=11:SP=23:GOSUB11000
12310 PRINT"[150]UNENTSCH.:  ";"[155]"UW
12320 RETURN
13000 ZE=20:SP=0:GOSUB11000
13010 PRINTZ3$:GOSUB11000
13020 PRINT"WELCHES FELD? ";
13030 GETX$:IFX$=""THEN13030
13040 IFASC(X$)<49ORASC(X$)>57THEN13030
13050 X=ASC(X$)-48
13060 IFBT(X)=0THEN13120
13070 ZE=20:SP=0:GOSUB11000
13080 PRINTZ3$:GOSUB11000
13090 PRINT"FELD IST SCHON BESETZT!!  (TASTE) ";
13100 GETX$:IFX$=""THEN13100
13110 GOTO13000
13120 BT(X)=-1:Z4$="[209]"
13130 P1=ZA(X)*2:P=P+P1
13140 TP(Z)=P
13150 ZE=KW(X,0):SP=KW(X,1)+1
13160 GOSUB11000
13170 PRINTZ4$
13180 RETURN
14000 GW=0
14008 IFGF=1THENGF=0:GOTO14050
14010 FS=FS+1
14020 FORI=1TO9
14030 F(FS,I,0)=TP(I)
14040 NEXT
14050 RETURN
15000 GW=0
15008 IFGF=1THENGF=0:GOTO16000
15010 FS=FS+1
15020 Z=Z-1
15030 FORI=1TO9
15040 F(FS,I,0)=TP(I)
15050 NEXT
15060 F(FS,Z,1)=1
15070 FORI=1TOFS
15080 IFF(I,Z,0)=TP(Z)THENF(I,Z,1)=1
15090 NEXT
16000 RETURN
20000 DF=100
20010 DIMF(DF,9,1),KW(9,1)
20030 CS=782:CZ=781:SC=65520:FS=0:CP=783
20040 KW(1,0)=2:KW(1,1)=9:KW(2,0)=2:KW(2,1)=13:KW(3,0)=2:KW(3,1)=17
20050 KW(4,0)=6:KW(4,1)=9:KW(5,0)=6:KW(5,1)=13:KW(6,0)=6:KW(6,1)=17
20060 KW(7,0)=10:KW(7,1)=9:KW(8,0)=10:KW(8,1)=13:KW(9,0)=10:KW(9,1)=17
20070 ZA(1)=1
20080 FORI=2TO9:ZA(I)=ZA(I-1)*3:NEXT
25000 RETURN
30000 IFPEEK(50307)=120THENPOKE50257,0
30010 PRINTCHR$(147)CHR$(14)CHR$(8);
30020 POKE53280,0:POKE53281,0
30030 RV$="                                        "
30040 PRINT"[154]";RV$;"     [196]AS SELBSTLERNENDE [212]IC-[212]AC-[212]OE     ";RV$;
30050 PRINT"     (C) [201][206][208][213][212]64   (W) [203].-[198]. [208]ROBST     ";RV$
30060 PRINT:PRINT"[159][213]M '[211]ELBSTLERNENDE [208]ROGRAMME' WERDEN"
30070 PRINT"VIELE GROSSE [215]ORTE GEMACHT. [196]ASS DIES"
30080 PRINT"SOGAR MIT KLEINEN [194][193][211][201][195]-[208]ROGRAMMEN"
30090 PRINT"GEHT, ZEIGT DIESES [211]PIEL.":PRINT
30095 PRINT"[196]AS [208]ROGRAMM VERSUCHT, AUS SEINEN [198]EH-"
30100 PRINT"LERN ZU LERNEN UND DIE [218]UEGE NICHT ZU"
30110 PRINT"WIEDERHOLEN, MIT DENEN ES VERLOREN HAT."
30120 PRINT"([193]UF '[211]IEG' ZU SPIELEN, IST BEI DIESEM"
30130 PRINT"[211]PIEL THEORETISCH UNSINNIG, WEIL ES "
30140 PRINT"BEI RICHTIGER [211]PIELWEISE BEIDER [211]PIELER"
30150 PRINT"NUR EIN '[213]NENTSCHIEDEN' GEBEN KANN.)"
30160 PRINT
30170 PRINT"[196]ER [197]INFACHHEIT HALBER BEGINNT IMMER"
30180 PRINT"DER [195]OMPUTER.":PRINT
30190 PRINT:PRINT"[154][211]TART MIT IRGENDEINER [212]ASTE!";
30195 POKE198,0
30200 GETW$:IFW$=""THEN30200
30210 PRINTCHR$(147)CHR$(142):RETURN