Goto

C$ = "C-R-B-R + F + B + B + F-R-B + R + B + ":GOTO 1880 1870 IF Y = 12 THEN

C$ = "C-R-B-R + F + B + F-R-B + R + B + B +" 1880 GOSUB 2660 :X = 0 1890 IF C(5,0) = C(5,4) AND C(5,2) = C(5,4) AND C(5,6) = C(5,4) AND C(5,8) = C(5,4) GOTO 2000 1900 IF C(5,0) = C(5,4) AND C(2,8) = C(5,4) AND C(3,8) = C(5,4) AND C(4,8) = C(5,4) GOTO 1990 1910 IF C(5,0) = C(5,4) AND C(3,6) = C(5,4) AND C(4,6) = C(5,4) AND C(1,6) = C(5,4) GOTO 1990 1920 IF C(1,8) = C(5,4) AND C(3,6) = C(5,4) AND C(4,6) = C(5,4) AND C(4,8) = C(5,4) GOTO 1990 1930 IF C(2,6) = C(5,4) AND C(5,2) = C(5,4) AND C(5,8) = C(5,4) AND C(4,8) = C(5,4) GOTO 1990 1940 IF C(2,6) = C(5,4) AND C(2,8) = C(5,4) AND C(5,6) = C(5,4) AND C(5,8) = C(5,4) GOTO 1990 1950 IF C(2,6) = C(5,4) AND C(5,2) = C(5,4) AND C(3,8) = C(5,4) AND C(5,6) = C(5,4) GOTO 1990 1960 IF C(1,6) = C(5,4) AND C(1,8) = C(5,4) AND C(3,6) = C(5,4) AND C(3,8) = C(5,4) GOTO 1990 1970 X=X+1:IFX>4 GOTO 2540 1980 C$ = "C + " :GOSUB 2660 :GOTO 1900 1990 C$ = "R-B-R + B-R-B +B+R+B+B+" :GOTO 1880 2000 0$ = " Bottom Edges" 2010 X = 0 :Z = 1 :GOSUB 2940 2020 ON Z GOTO 2030, 2040, 2540, 2540, 2090 2030 C$ = "L-R + F + L + R-B + B + L-R + F + L + R-": GOSUB 2660

2040 IF C(2,7) = C(2,4) OR C(5,1) = C(2,4) GOTO 2070

2070 X = 0:C$ = "L-R + F + L + R-B + B + L-R + F + L + R-":

0 0

Post a comment