10 WINDOW:CLS
20 FOR I=0 TO 31:PRINT AT(4,I);"":A=31-I:PRINT AT(10,A);"":NEXT
30 FOR I=4 TO 9:PRINT AT(I,31);"":A=14-I:PRINT AT(A,0);"":NEXT
40 PRINT AT(6,3);"S U P E R - D A M E"
50 PRINT AT(8,3);"COPRYRIGHT BY R.STEINBRINK"
60 WINDOW 11,31,0,31:CLS
70 PRINT:PRINT:PRINT:PRINT "WILLST DU MIT SCHWARZEN(S) ODER"
80 INPUT "WEISSEN(W) STEINEN SPIELEN";F$
90 IF F$="W"GOTO 110
100 IF F$<>"S"GOTO 60
110 POKE 112,0:POKE 113,18:INPUT " WILLST DU BEGINNEN ? (J/N)";B$
120 IF B$="J"OR B$="N"THEN 140
130 GOTO 110
140 PRINT:PRINT:PRINT "       ALSO DANN ..."
150 PRINT:PRINT "             VIEL ERFOLG !!!":PAUSE 20
170 WINDOW:CLS
180 PRINT " ";:FOR I=1 TO 28:PRINT "";:NEXT:PRINT ""
190 FOR I=1 TO 4
200 FOR J=1 TO 3
210 PRINT "               " 
220 NEXT J
230 FOR J=1 TO 3
240 PRINT "               "
250 NEXT J,I
260 PRINT "   "
270 PRINT "    A  B  C  D  E  F  G  H   "
280 PRINT " ";:FOR I=1 TO 28:PRINT "";:NEXT:PRINT ""
290 A=-5054
300 FOR I=56 TO 49 STEP-1
310 POKE A,I:POKE A+27,I
320 A=A+96:NEXT
330 IF F$="W"THEN A$(1)="":A$(3)="":ELSE A$(1)="":A$(3)=""
340 DATA 2,8,2,14,2,20,2,26,5,5,5,11,5,17,5,23,8,8,8,14,8,20,8,26
350 DATA 17,5,17,11,17,17,17,23,20,8,20,14,20,20,20,26,23,5,23,11,23,17
360 DATA 23,23
370 FOR I=1 TO 3 STEP 2
380 FOR J=1 TO 12
390 READ A,B
400 PRINT AT(A,B);A$(I)
410 NEXT J,I
420 IF F$="W"THEN A$(0)="":A$(1)="":A$(2)=" ":A$(3)="":A$(4)="":GOTO 440
430 A$(0)="":A$(1)="":A$(2)=" ":A$(3)="":A$(4)=""
440 G=-1:R(1)=-99
450 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15
460 RESTORE 450
470 FOR X=1 TO 8:FOR Y=1 TO 8
480 READ J
490 IF J=15 THEN 520
500 S(X,Y)=J
510 GOTO 540
520 RESTORE 450
530 READ S(X,Y)
540 NEXT Y
550 NEXT X
560 IF B$="J"THEN 1470
570 WINDOW 28,31,0,31:CLS:PRINT:PRINT "   MOMENT BITTE ! ICH DENKE.":FOR X=1 TO 8
580 FOR Y=1 TO 8
590 IF S(X,Y)>-1 THEN 710
600 IF S(X,Y)<>-1 THEN 650
610 FOR A=-1 TO 1 STEP 2
620 B=G
630 GOSUB 740
640 NEXT A
650 IF S(X,Y)<>-2 THEN 710
660 FOR A=-1 TO 1 STEP 2
670 FOR B=-1 TO 1 STEP 2
680 GOSUB 740
690 NEXT B
700 NEXT A
710 NEXT Y
720 NEXT X
730 GOTO 980
740 U=X+A:V=Y+B
750 IF U<1 OR U>8 OR V<1 OR V>8 THEN 830
760 IF S(U,V)<>0 THEN 790
770 GOSUB 840
780 GOTO 830
790 IF S(U,V)<0 THEN 830
800 U=U+A:V=V+B
810 IF U<1 OR V<1 OR U>8 OR V>8 THEN 830
820 IF S(U,V)=0 THEN GOSUB 840
830 RETURN
840 IF V=1 AND S(X,Y)=-1 THEN Q=Q+2
850 IF ABS(Y-V)=2 THEN Q=Q+5
860 IF ABS(Y-V)=2 AND S(X,Y)=-2 THEN Q=Q+5
870 IF Y=8 THEN Q=Q-2
880 IF Y=1 OR U=8 THEN Q=Q+1
890 FOR C=-1 TO 1 STEP 2
900 IF U+C<1 OR U+C>8 OR V+G<1 THEN 940
910 IF S(U+C,V+G)<0 THEN Q=Q+1:GOTO 940
920 IF U-C<1 OR U-C>8 OR V-G>8 THEN 940
930 IF S(U+C,V+G)>0 AND(S(U-C,V-G)=0 OR(U-C=X AND V-G=Y))THEN Q=Q-2
940 NEXT C
950 IF Q>R(1)THEN R(1)=Q:R(2)=X:R(3)=Y:R(4)=U:R(5)=V
960 Q=0
970 RETURN
980 IF R(1)=-99 THEN 1840
990 R1$=CHR$(R(2)+64)
999 REM ROST-DEZ.86
1000 R2$=CHR$(R(4)+64)
1010 CLS:PRINT:PRINT "  ICH SETZE VON ";R1$;R(3);"NACH ";R2$;R(5)
1020 R(1)=-99:PAUSE 50
1030 IF R(5)=1 THEN S(R(4),R(5))=-2:GOTO 1050
1040 S(R(4),R(5))=S(R(2),R(3)) 
1050 S(R(2),R(3))=0
1060 IF ABS(R(2)-R(4))<>2 THEN 1270
1070 S((R(2)+R(4))/2,(R(3)+R(5))/2)=0
1080 X=R(4):Y=R(5)
1090 IF S(X,Y)<>-1 THEN 1150
1100 B=-2
1110 FOR A=-2 TO 2 STEP 4
1120 GOSUB 1290
1130 NEXT A
1140 GOTO 1210
1150 IF S(X,Y)<>-2 THEN 1210
1160 FOR A=-2 TO 2 STEP 4
1170 FOR B=-2 TO 2 STEP 4
1180 GOSUB 1290
1190 NEXT B
1200 NEXT A
1210 IF R(1)=-99 THEN 1260
1220 R1$=CHR$(R(4)+64)
1230 CLS:PRINT:PRINT "  HI HI HI ... UND NACH ";R1$;R(5):PAUSE(20)
1240 R(1)=-99
1250 GOTO 1030
1260 GOSUB 1740
1270 GOSUB 1330
1280 GOTO 1460
1290 U=X+A:V=Y+B
1300 IF U<1 OR V<1 OR U>8 OR V>8 THEN 1320
1310 IF S(U,V)=0 AND S(X+A/2,Y+B/2)>0 THEN GOSUB 840
1320 RETURN
1330 WINDOW
1340 FOR Y=7 TO 1 STEP-2
1350 FOR X=1 TO 8 STEP 2
1360 I=3*X
1370 PRINT AT((9-Y)*3-1,I+2);A$(S(X,Y)+2)
1380 NEXT X,Y
1390 FOR Y=8 TO 1 STEP-2
1400 FOR X=2 TO 8 STEP 2
1410 I=3*X
1420 PRINT AT((9-Y)*3-1,I+2);A$(S(X,Y)+2)
1430 NEXT X,Y
1440 WINDOW 28,31,0,31
1450 RETURN
1460 PRINT
1470 WINDOW 28,31,0,31:CLS:PRINT "  DEIN ZUG BITTE. SPALTE,ZEILE"
1480 PRINT:INPUT "     VON ";R1$,K$:H=VAL(K$)
1490 E=ASC(R1$)-64:X=E:Y=H
1500 IF X<1 OR Y<1 OR X>8 OR Y>8 THEN 1470
1510 IF S(X,Y)=0 THEN 1470
1520 POKE 112,18:POKE 113,31
1530 INPUT " NACH ";R2$,K$:B=VAL(K$)
1540 A=ASC(R2$)-64
1550 X=A:Y=B:IF X<1 OR X>8 OR Y<1 OR Y>8 THEN 1520
1560 IF S(X,Y)=0 AND ABS(A-E)<=2 AND ABS(A-E)=ABS(B-H)THEN CLS:GOTO 1580
1570 GOTO 1470
1580 I=46
1590 S(A,B)=S(E,H):S(E,H)=0
1600 IF ABS(E-A)<>2 THEN GOTO 1710
1610 S((E+A)/2,(H+B)/2)=0
1630 CLS:PRINT:INPUT " WEITERSPRUNG MOEGLICH ?(J/N)";O$
1640 IF O$<>"J"THEN GOTO 1710
1650 INPUT "       AUF FELD ";R2$,K$:B1=VAL(K$)
1660 A1=ASC(R2$)-64
1670 IF A1<1 OR B1<1 OR A1>8 OR B1>8 GOTO 1630
1680 IF S(A1,B1)<>0 OR ABS(A1-A)<>2 OR ABS(B1-B)<>2 THEN 1630
1690 E=H:H=B:A=A1:B=B1:I=I+15
1700 GOTO 1590
1710 IF B=8 THEN S(A,B)=2
1720 GOSUB 1330
1730 GOTO 570
1740 W=0
1750 FOR I=1 TO 8
1760 FOR J=1 TO 8
1770 IF S(I,J)>0 THEN W=W+1
1780 NEXT J,I
1790 IF W=0 THEN 1810
1800 RETURN
1810 CLS:PRINT:PRINT " ICH GEWINNE WIE JEDESMAL !"
1820 PRINT:INPUT " WILLST DU NOCH EINMAL ?(J/N)";O$:IF O$="J"THEN RUN
1830 WINDOW:END
1840 CLS:PRINT:PRINT " DU GEWINNST SELTSAMERWEISE !"
1850 PRINT:INPUT " GIBST DU MIR REVANCHE ?(J/N)":IF O$="J"THEN RUN
1860 WINDOW:END