CLS
OPEN "c:\zuege.txt" FOR OUTPUT AS #1
zaehler = 0
FOR z1r = 1 TO 8
FOR z1s = 1 TO 8
FOR z2r = 1 TO 8
FOR z2s = 1 TO 8
GOSUB reihe1
GOSUB reihe2
z1s$ = RIGHT$(STR$(z1s), 1)
z2s$ = RIGHT$(STR$(z2s), 1)
sf$ = z1r$ + z1s$
zf$ = z2r$ + z2s$
IF sf$ <> zf$ THEN
zaehler = zaehler + 1
GOSUB Test
aus$ = z1r$ + z1s$ + "-" + z2r$ + z2s$ + " " + Figuren$
LOCATE 12, 35: PRINT zaehler, aus$
PRINT #1, aus$
END IF
NEXT z2s
NEXT z2r
NEXT z1s
NEXT z1r
CLOSE #1
SYSTEM
reihe1:
IF z1r = 1 THEN z1r$ = "a"
IF z1r = 2 THEN z1r$ = "b"
IF z1r = 3 THEN z1r$ = "c"
IF z1r = 4 THEN z1r$ = "d"
IF z1r = 5 THEN z1r$ = "e"
IF z1r = 6 THEN z1r$ = "f"
IF z1r = 7 THEN z1r$ = "g"
IF z1r = 8 THEN z1r$ = "h"
RETURN
reihe2:
IF z2r = 1 THEN z2r$ = "a"
IF z2r = 2 THEN z2r$ = "b"
IF z2r = 3 THEN z2r$ = "c"
IF z2r = 4 THEN z2r$ = "d"
IF z2r = 5 THEN z2r$ = "e"
IF z2r = 6 THEN z2r$ = "f"
IF z2r = 7 THEN z2r$ = "g"
IF z2r = 8 THEN z2r$ = "h"
RETURN
Test:
Figuren$ = ""
ab = z2r - z1r
abss = z2s - z1s
REM Bauer
IF z1s > 1 AND z1s < 8 THEN
   IF ab >= -1 AND ab <= 1 THEN
      IF abss = 1 OR abss = -1 THEN
         Figuren$ = Figuren$ + "B"
      END IF
      IF ab = 0 AND z1s = 2 AND z2s = 4 THEN
         Figuren$ = Figuren$ + "B"
      END IF
      IF ab = 0 AND z1s = 7 AND z2s = 5 THEN
         Figuren$ = Figuren$ + "B"
      END IF
   END IF
END IF
REM Turm
IF z1r = z2r THEN
   Figuren$ = Figuren$ + "T"
END IF
IF z1s = z2s THEN
   Figuren$ = Figuren$ + "T"
END IF
REM Springer
IF (ab = 2 OR ab = -2) AND (abss = 1 OR abss = -1) THEN
   Figuren$ = Figuren$ + "S"
END IF
IF (abss = 2 OR abss = -2) AND (ab = 1 OR ab = -1) THEN
   Figuren$ = Figuren$ + "S"
END IF
REM Laeufer
IF z1r <> z2r THEN
   IF ab = abss OR -ab = -abss OR ab = -abss OR -ab = abbs THEN
      Figuren$ = Figuren$ + "L"
   END IF
END IF
REM Dame
IF z1r = z2r THEN
   Figuren$ = Figuren$ + "D"
END IF
IF z1s = z2s THEN
   Figuren$ = Figuren$ + "D"
END IF
IF z1r <> z2r THEN
   IF ab = abss OR -ab = -abss OR ab = -abss OR -ab = abbs THEN
      Figuren$ = Figuren$ + "D"
   END IF
END IF
REM Koenig
IF ab >= -1 AND ab <= 1 AND abss >= -1 AND abss <= 1 THEN
   Figuren$ = Figuren$ + "K"
END IF
RETURN

a1-a2 TDK
a1-a3 TD
a1-a4 TD
a1-a5 TD
a1-a6 TD
a1-a7 TD
a1-a8 TD
a1-b1 TDK
a1-b2 LDK
a1-b3 S
a1-b4 
a1-b5 
a1-b6 
a1-b7 
a1-b8

Live and let die