Next N

1510 0$ = "Vertical Edge"

0(2,3) = 0(2,4) AND 0(2,5) = 0(2,4) AND 0(3,3) = 0(3,4)

1540 IF 0(2,5) = 0(2,4) AND 0(3,3) = 0(3,4) GOTO 1710 1550 IF 0(2,5) = 0(3,4) AND 0(3,3) = 0(2,4) THEN 0$ = "R-B + R + B + F + B-F-B + R-B + R + B + F + B-F-": GOTO 1700

1560 IF 0(3,5) = 0(2,4) AND 0(4,3) = 0(3,4) THEN 0$ = "C-R-B + R + B + F + B-F-C + B-F + B-F-B-R-B + R + ": GOTO 1700

1570 IF 0(4,3) = 0(2,4) AND 0(3,5) = 0(3,4) THEN 0$ = "C-R-B + R + B + F + B-F-C + R-B + R + B + F + B-F-": GOTO 1700

1580 IF 0(4,5) = C(2,4) AND 0(1,3) = C(3,4) THEN C$ = "C + F-B + F + B + L + B-L-B + C-B + F + B-F-B-R-B + R + ":GOTO 1700

1590 IF 0(1,3) = C(2,4) AND 0(4,5) = C(3,4) THEN C$ = "C + F-B + F + B + L + B-L-C-B-R-B + R + B + F + B-F-": GOTO 1700

1600 IF 0(1,5) =C(2,4) AND 0(2,3) = C(3,4) THEN 0$="F-B +F+B+L+B-L-B + F + B-F-B-R-B + R + ": GOTO 1700

1610 IF 0(2,3) = C(2,4) AND 0(1,5) = C(3,4) THEN C$ = "F-B + F + B + L+B-L-B-B-R-B + R + B + F + B-F-": GOTO 1700

1620 IF 0(2,7) = C(2,4) AND 0(5,1) = C(3,4) THEN 0$ = "B-R-B +R+B+F+ B-F-":GOTO 1700 1630 IF 0(5,1) = C(2,4) AND 0(2,7) = C(3,4) THEN C$ = "B + B + F + B-F-B-R-B + R + ":GOTO 1700 1640 IF 0(3,7) = C(3,4) AND 0(5,5) = C(2,4) THEN C$ = "B + F + B-F-B-R-B + R + ":GOTO 1700 1650 IF 0(5,5) = C(3,4) AND 0(3,7) = C(2,4) THEN C$ = "B-B-R-B 4- R + B + F + B-F-":GOTO 1700 1660 IF 0(4,7) =C(3,4) AND 0(5,7) = C(2,4) THEN C$ = "F + B-F-B-R-B + R + ":GOTO 1700 1670 IF 0(5,7) = C(3,4) AND 0(4,7) = C(2,4) THEN C$ = "B + R-B + R + B + F + B-F-":GOTO 1700 1680 IF 0(1,7) = C(3,4) AND 0(5,3) = C(2,4) THEN 0$ = "B-F + B-F-B-R-B + R + ":G0T0 1700 1690 IF 0(5,3) = C(3,4) AND 0(1,7) = C(2,4) THEN 0$ = "R-B + R + B + F + B-F-" 1700 GOSUB 2660

1710 IF N < 4 THEN 0$ = "C +" :GOSUB 2660 1720 NEXT N

1730 X=0 :N = 0 :0$ = "Bottom Corners" 1740 Y = 0 :Z = 0

1750 IF (C(2,8) =0(2,4) AND 0(3,6) = C(3,4) AND 0(5,2) = C(5,4)) OR (0(2,8) =C(3,4) AND 0(3,6) = C(5,4) AND 0(5,2) = C(2,4)) OR (0(2,8) = C(5,4) AND 0(3,6) = 0(2,4) AND 0(5,2) = 0(3,4)) THEN Z = Z +1: Y=Y + 1

1760 IF (0(3,8) =C(3,4) AND 0(4,6) = C(4,4) AND 0(5,8) = C(5,4)) OR (0(3,8) = C(4,4) AND 0(4,6) = C(5,4) AND 0(5,8) = C(3,4)) OR (0(3,8) = C(5,4) AND 0(4,6) = 0(3,4) AND 0(5,8) = 0(4,4)) THEN Z = Z +1:

1770 IF (0(4,8) = C(4,4) AND 0(5,6) = C(5,4) AND 0(1,6) = C(1,4)) OR (0(4,8) = C(1,4) AND 0(5,6) = C(4,4) AND C(1,6) =0(5,4)) OR (0(4,8) = C(5,4) AND 0(5,6) = C(1,4) AND C(1,6) = C(4,4)) THEN Z = Z +1: Y=Y + 4

1780 IF (0(1,8) = 0(1,4) AND 0(2,6) = 0(2,4) AND 0(5,0) = C(5,4)) OR (0(1,8) = C(2,4) AND 0(2,6) = C(5,4) AND 0(5,0) = C(1,4)) OR (0(1,8) = 0(5,4) AND 0(2,6) = 0(1,4) AND 0(5,0) = 0(2,4)) THEN Z = Z +1:

1810 IF Z< >2 THEN C$ = "B + " :GOSUB 2660:

GOTO 1740 1820 IF Y = 3 THEN

C$ = "C + R-B-R + F + B + F-R-B + R + B + B +":

0 0

Post a comment