10 CLS
20 DIM X$(5),Y$(5)
30 DIM A(10,10),I4(8),J4(8),C$(8),D$(3)
40 F2=0
50 S2=2
60 B=-1
70 W=1
80 D$(B+2)="X"
90 D$(0+2)="."
100 D$(W+2)="0"
110 FOR K=1 TO 8
120 READ I4(K)
130 NEXT K
140 DATA 0,-1,-1,-1,0,1,1,1
150 FOR K=1 TO 8
160 READ J4(K)
170 NEXT K
180 DATA 1,1,0,-1,-1,-1,0,1
190 FOR K=1 TO 8
200 READ C$(K)
210 NEXT K
220 DATA A,B,C,D,E,F,G,H
230 FOR I=1 TO 10
240 FOR J=1 TO 10
250 A(I,J)=0
260 NEXT J
270 NEXT I
280 A(5,5)=W
290 A(6,6)=W
300 A(5,6)=B
310 A(6,5)=B
320 C1=2
330 H1=2
340 N1=4
350 Z=0
360 PRINT "NEHMEN SIE X ODER 0?"
370 C=W
380 H=B
390 INPUT X$
400 IF X$="X" THEN 440
410 IF X$<>"0" THEN 390
420 C=B
430 H=W
440 PRINT "BEGINNEN SIE? (J ODER N)"
450 INPUT X$
460 IF X$="N" THEN 520
470 IF X$<>"J" THEN 450
480 GOSUB 2010
490 GOTO 1020
500 IF F2=0 THEN 520
510 INPUT X$
520 B1=-1
530 I3=0
540 J3=0
550 T1=C
560 T2=H
570 FOR I=2 TO 9
580 FOR J=2 TO 9
590 IF A(I,J)<>0 THEN 760
600 GOSUB 1690
610 IF F1=0 THEN 760
620 U=-1
630 GOSUB 1760
640 IF S1=0 THEN 760
650 IF(I-2)*(I-9)<>0 THEN 670
660 S1=S1+S2
670 IF(J-2)*(J-9)<>0 THEN 690
680 S1=S1+S2
690 IF S1<B1 THEN 760
700 IF S1>B1 THEN 730
710 R=RND(1)
720 IF R>.5 THEN 760
730 B1=S1
740 I3=I
750 J3=J
760 NEXT J
770 NEXT I
780 IF B1>0 THEN 830
790 PRINT "ICH VEZICHTE !"
800 IF Z=1 THEN 1480
810 Z=1
820 GOTO 1020
830 Z=0
840 CLS
850 PRINT "MEIN ZUG IST";
860 PRINT I3-1;
870 PRINT ",";
880 PRINT C$(J3-1)
890 I=I3
900 J=J3
910 U=1
920 GOSUB 1760
930 C1=C1+S1+1
940 H1=H1-S1
950 N1=N1+1
960 PRINT "ICH BEKOMME";
970 PRINT S1;
980 PRINT "IHRER OYMEL"
990 GOSUB 2010
1000 IF H1=0 THEN 1480
1010 IF N1=64 THEN 1480
1020 T1=H
1030 T2=C
1040 PRINT "IHR ZUG-(ZEILE,SPALTE)"
1050 INPUT I,X$
1060 IF I<0 THEN 1050
1070 IF I>8 THEN 1050
1080 IF I<>0 THEN 1150
1090 PRINT "WOLLEN SIE AUSSETZEN?(J/N)"
1100 INPUT X$
1110 IF X$<>"J" THEN 1040
1120 IF Z=1 THEN 1480
1130 Z=1
1140 GOTO 500
1150 FOR Q=1 TO 8
1160 IF C$(Q)=X$ THEN 1190
1170 NEXT Q
1180 GOTO 1050
1190 J=Q
1200 I=I+1
1210 J=J+1
1220 IF A(I,J)=0 THEN 1250
1230 PRINT "BESETZT!"
1240 GOTO 1050
1250 GOSUB 1690
1260 IF F1=1 THEN 1290
1270 PRINT "FALSCHE EINGABE!"
1280 GOTO 1050
1290 U=-1
1300 GOSUB 1760
1310 IF S1>0 THEN 1340
1320 PRINT "FALSCHE EINGABE!"
1330 GOTO 1050
1340 Z=0
1350 CLS
1360 PRINT "SIE BEKOMMEN";
1370 PRINT S1;
1380 PRINT "MEINER OYMEL"
1390 U=1
1400 GOSUB 1760
1410 H1=H1+S1+1
1420 C1=C1-S1
1430 N1=N1+1
1440 GOSUB 2010
1450 IF C1=0 THEN 1480
1460 IF N1=64 THEN 1480
1470 GOTO 500
1480 PRINT
1490 PRINT "SIE HABEN";
1500 PRINT H1;
1510 PRINT "UND ICH       
1520 PRINT "HABE ";C1;
1530 PRINT "OYMELS." 
1540 IF H1=C1 THEN 1590
1550 IF H1>C1 THEN 1610
1560 PRINT
1570 PRINT "ICH HABE GEWONNEN!"
1580 GOTO 1620
1590 PRINT "UNENTSCHIEDEN!"
1600 GOTO 1620
1610 PRINT "SIE HABEN GEWONNEN!"
1620 PRINT "EIN NEUES SPIEL? (J/N)"
1630 INPUT X$
1640 IF X$="J" THEN 230
1650 IF X$<>"N" THEN 1630
1660 CLS:FOR I=1 TO 12:PRINT:NEXT
1670 PRINT "DANKE FUER DAS SPIEL!"
1680 PRINT :PRINT :PRINT "TSCHUESS !!!":PRINT :PRINT :PRINT :END
1690 F1=0
1700 FOR I1=-1 TO 1
1710 FOR J1=-1 TO 1
1720 IF A(I+I1,J+J1)=T2 THEN F1=1
1730 NEXT J1
1740 NEXT I1
1750 RETURN
1760 S1=0
1770 FOR K=1 TO 8
1780 I5=I4(K)
1790 J5=J4(K)
1800 I6=I+I5
1810 J6=J+J5
1820 S3=0
1830 IF A(I6,J6)<>T2 THEN 1990
1840 S3=S3+1
1850 I6=I6+I5
1860 J6=J6+J5
1870 IF A(I6,J6)=T1 THEN 1900
1880 IF A(I6,J6)=0 THEN 1990
1890 GOTO 1840
1900 S1=S1+S3
1910 IF U<>1 THEN 1990
1920 I6=I
1930 J6=J
1940 FOR K1=0 TO S3
1950 A(I6,J6)=T1
1960 I6=I6+I5
1970 J6=J6+J5
1980 NEXT K1
1990 NEXT K
2000 RETURN
2010 PRINT
2020 PRINT "     A  B  C  D  E  F  G  H"
2030 PRINT
2040 FOR I=2 TO 9
2050 PRINT I-1;
2060 FOR J=2 TO 9
2070 PRINT "  ";
2080 PRINT D$(A(I,J)+2);
2090 NEXT J
2100 PRINT
2110 PRINT
2120 NEXT I
2130 PRINT
2140 RETURN
2150 END
2160 CLS
2170 FOR I=1 TO 15
2180 PRINT "WILLST DU WEITERSPIELEN ?
2190 PRINT :PRINT :PRINT :PRINT 
2200 INPUT A$
2210 IF A$="J" THEN RUN
2220 IF A$="N" THEN CLS:PAUSE(255)
10 CLS
20 DIM X$(5),Y$(5)
30 DIM A(10,10),I4(8),J4(8),C$(8),D$(3)
40 F2=0
50 S2=2
60 B=-1
70 W=1
80 D$(B+2)="X"
90 D$(0+2)="."
100 D$(W+2)="0"
110 FOR K=1 TO 8
120 READ I4(K)
130 NEXT K
140 DATA 0,-1,-1,-1,0,1,1,1
150 FOR K=1 TO 8
160 READ J4(K)
170 NEXT K
180 DATA 1,1,0,-1,-1,-1,0,1
190 FOR K=1 TO 8
200 READ C$(K)
210 NEXT K
220 DATA A,B,C,D,E,F,G,H
230 FOR I=1 TO 10
240 FOR J=1 TO 10
250 A(I,J)=0
260 NEXT J
270 NEXT I
280 A(5,5)=W
290 A(6,6)=W
300 A(5,6)=B
310 A(6,5)=B
320 C1=2
330 H1=2
340 N1=4
350 Z=0
360 PRINT "NEHMEN SIE X ODER 0?"
370 C=W
380 H=B
390 INPUT X$
400 IF X$="X" THEN 440
410 IF X$<>"0" THEN 390
420 C=B
430 H=W
440 PRINT "BEGINNEN SIE? (J ODER N)"
450 INPUT X$
460 IF X$="N" THEN 520
470 IF X$<>"J" THEN 450
480 GOSUB 2010
490 GOTO 1020
500 IF F2=0 THEN 520
510 INPUT X$
520 B1=-1
530 I3=0
540 J3=0
550 T1=C
560 T2=H
570 FOR I=2 TO 9
580 FOR J=2 TO 9
590 IF A(I,J)<>0 THEN 760
600 GOSUB 1690
610 IF F1=0 THEN 760
620 U=-1
630 GOSUB 1760
640 IF S1=0 THEN 760
650 IF(I-2)*(I-9)<>0 THEN 670
660 S1=S1+S2
670 IF(J-2)*(J-9)<>0 THEN 690
680 S1=S1+S2
690 IF S1<B1 THEN 760
700 IF S1>B1 THEN 730
710 R=RND(1)
720 IF R>.5 THEN 760
730 B1=S1
740 I3=I
750 J3=J
760 NEXT J
770 NEXT I
780 IF B1>0 THEN 830
790 PRINT "ICH VEZICHTE !"
800 IF Z=1 THEN 1480
810 Z=1
820 GOTO 1020
830 Z=0
840 CLS
850 PRINT "MEIN ZUG IST";
860 PRINT I3-1;
870 PRINT ",";
880 PRINT C$(J3-1)
890 I=I3
900 J=J3
910 U=1
920 GOSUB 1760
930 C1=C1+S1+1
940 H1=H1-S1
950 N1=N1+1
960 PRINT "ICH BEKOMME";
970 PRINT S1;
980 PRINT "IHRER OYMEL"
990 GOSUB 2010
1000 IF H1=0 THEN 1480
1010 IF N1=64 THEN 1480
1020 T1=H
1030 T2=C
1040 PRINT "IHR ZUG-(ZEILE,SPALTE)"
1050 INPUT I,X$
1060 IF I<0 THEN 1050
1070 IF I>8 THEN 1050
1080 IF I<>0 THEN 1150
1090 PRINT "WOLLEN SIE AUSSETZEN?(J/N)"
1100 INPUT X$
1110 IF X$<>"J" THEN 1040
1120 IF Z=1 THEN 1480
1130 Z=1
1140 GOTO 500
1150 FOR Q=1 TO 8
1160 IF C$(Q)=X$ THEN 1190
1170 NEXT Q
1180 GOTO 1050
1190 J=Q
1200 I=I+1
1210 J=J+1
1220 IF A(I,J)=0 THEN 1250
1230 PRINT "BESETZT!"
1240 GOTO 1050
1250 GOSUB 1690
1260 IF F1=1 THEN 1290
1270 PRINT "FALSCHE EINGABE!"
1280 GOTO 1050
1290 U=-1
1300 GOSUB 1760
1310 IF S1>0 THEN 1340
1320 PRINT "FALSCHE EINGABE!"
1330 GOTO 1050
1340 Z=0
1350 CLS
1360 PRINT "SIE BEKOMMEN";
1370 PRINT S1;
1380 PRINT "MEINER OYMEL"
1390 U=1
1400 GOSUB 1760
1410 H1=H1+S1+1
1420 C1=C1-S1
1430 N1=N1+1
1440 GOSUB 2010
1450 IF C1=0 THEN 1480
1460 IF N1=64 THEN 1480
1470 GOTO 500
1480 PRINT
1490 PRINT "SIE HABEN";
1500 PRINT H1;
1510 PRINT "UND ICH       
1520 PRINT "HABE ";C1;
1530 PRINT "OYMELS." 
1540 IF H1=C1 THEN 1590
1550 IF H1>C1 THEN 1610
1560 PRINT
1570 PRINT "ICH HABE GEWONNEN!"
1580 GOTO 1620
1590 PRINT "UNENTSCHIEDEN!"
1600 GOTO 1620
1610 PRINT "SIE HABEN GEWONNEN!"
1620 PRINT "EIN NEUES SPIEL? (J/N)"
1630 INPUT X$
1640 IF X$="J" THEN 230
1650 IF X$<>"N" THEN 1630
1660 CLS:FOR I=1 TO 12:PRINT:NEXT
1670 PRINT "DANKE FUER DAS SPIEL!"
1680 PRINT :PRINT :PRINT "TSCHUESS !!!":PRINT :PRINT :PRINT :END
1690 F1=0
1700 FOR I1=-1 TO 1
1710 FOR J1=-1 TO 1
1720 IF A(I+I1,J+J1)=T2 THEN F1=1
1730 NEXT J1
1740 NEXT I1
1750 RETURN
1760 S1=0
1770 FOR K=1 TO 8
1780 I5=I4(K)
1790 J5=J4(K)
1800 I6=I+I5
1810 J6=J+J5
1820 S3=0
1830 IF A(I6,J6)<>T2 THEN 1990
1840 S3=S3+1
1850 I6=I6+I5
1860 J6=J6+J5
1870 IF A(I6,J6)=T1 THEN 1900
1880 IF A(I6,J6)=0 THEN 1990
1890 GOTO 1840
1900 S1=S1+S3
1910 IF U<>1 THEN 1990
1920 I6=I
1930 J6=J
1940 FOR K1=0 TO S3
1950 A(I6,J6)=T1
1960 I6=I6+I5
1970 J6=J6+J5
1980 NEXT K1
1990 NEXT K
2000 RETURN
2010 PRINT
2020 PRINT "     A  B  C  D  E  F  G  H"
2030 PRINT
2040 FOR I=2 TO 9
2050 PRINT I-1;
2060 FOR J=2 TO 9
2070 PRINT "  ";
2080 PRINT D$(A(I,J)+2);
2090 NEXT J
2100 PRINT
2110 PRINT
2120 NEXT I
2130 PRINT
2140 RETURN
2150 END
2160 CLS
2170 FOR I=1 TO 15
2180 PRINT "WILLST DU WEITERSPIELEN ?
2190 PRINT :PRINT :PRINT :PRINT 
2200 INPUT A$
2210 IF A$="J" THEN RUN
2220 IF A$="N" THEN CLS:PAUSE(255)