CLS SCREEN 7 WINDOW (-1.05, 1.05)-(1.05, -1.05) DIM a(25) DIM b(25) DIM c(138) DIM e(138) DIM O(258) DIM N(258) DIM w(1025) DIM u(1025) DIM q1(1025) DIM q2(1025) a(1) = -.5 a(2) = -.5 a(3) = -.5 a(4) = .5 a(5) = .5 b(1) = -.5 b(2) = -.5 b(3) = .5 b(4) = .5 b(5) = -.5 begin: CLS FOR K = 2 TO 5 COLOR (K) LINE (a(K - 1), b(K - 1))-(a(K), b(K)) FOR r = 1 TO 30000 NEXT r NEXT K FOR r = 1 TO 30000 NEXT r CLS PRINT "itration 2 to 17 by 4" FOR m = 1 TO 30000 NEXT m FOR g = 2 TO 5 e(g) = (-((a(g)) * (-1)) / 2) - .5 c(g) = (b(g) / 2) - .5 c(1) = c(2) e(1) = e(2) LINE ((c(g - 1)), (e(g - 1)))-(c(g), e(g)) FOR r = 1 TO 30000 NEXT r NEXT g FOR g = 6 TO 9 COLOR (g) c(g) = ((a(g - 4)) / 2) - .5 e(g) = (b(g - 4) / 2) + .5 c(1) = c(2) e(1) = e(2) LINE ((c(g - 1)), (e(g - 1)))-(c(g), e(g)) FOR r = 1 TO 30000 NEXT r NEXT g FOR g = 10 TO 13 COLOR (g - 5) c(g) = ((a(g - 8)) / 2) + .5 e(g) = (b(g - 8) / 2) + .5 c(1) = c(2) e(1) = e(2) LINE ((c(g - 1)), (e(g - 1)))-(c(g), e(g)) FOR r = 1 TO 30000 NEXT r NEXT g FOR g = 14 TO 17 COLOR (g - 10) e(g) = (((a(g - 12)) * (-1)) / 2) - .5 c(g) = -(b(g - 12) / 2) + .5 c(1) = c(2) e(1) = e(2) LINE ((c(g - 1)), (e(g - 1)))-(c(g), e(g)) FOR r = 1 TO 30000 NEXT r NEXT g FOR r = 1 TO 30000 NEXT r CLS PRINT "iteration 2 to 65 by 15" FOR m = 1 TO 30000 NEXT m FOR g = 2 TO 17 COLOR (g / 2) N(g) = (-((c(g)) * (-1)) / 2) - .5 O(g) = (e(g) / 2) - .5 O(1) = O(2) N(1) = N(2) LINE ((O(g - 1)), (N(g - 1)))-(O(g), N(g)) NEXT g FOR g = 18 TO 33 COLOR ((g / 2) - 8) O(g) = ((c(g - 16)) / 2) - .5 N(g) = (e(g - 16) / 2) + .5 O(1) = O(2) N(1) = N(2) LINE ((O(g - 1)), (N(g - 1)))-(O(g), N(g)) NEXT g FOR g = 34 TO 49 COLOR ((g / 4) - 7) O(g) = ((c(g - 32)) / 2) + .5 N(g) = (e(g - 32) / 2) + .5 O(1) = O(2) N(1) = N(2) LINE ((O(g - 1)), (N(g - 1)))-(O(g), N(g)) NEXT g FOR g = 50 TO 65 COLOR ((g / 5) - 8) N(g) = (((c(g - 48)) * (-1)) / 2) - .5 O(g) = -(e(g - 48) / 2) + .5 O(1) = O(2) N(1) = N(2) LINE ((O(g - 1)), (N(g - 1)))-(O(g), N(g)) NEXT g FOR r = 1 TO 30000 NEXT r CLS PRINT "iteration 2 to 257 by 63" FOR m = 1 TO 30000 NEXT m FOR g = 2 TO 65 COLOR (RND(r) * 10) u(g) = (-((O(g)) * (-1)) / 2) - .5 w(g) = (N(g) / 2) - .5 w(1) = w(2) u(1) = u(2) LINE ((w(g - 1)), (u(g - 1)))-(w(g), u(g)) NEXT g FOR g = 66 TO 129 COLOR (RND(r) * 10) w(g) = ((O(g - 64)) / 2) - .5 u(g) = (N(g - 64) / 2) + .5 w(1) = w(2) u(1) = u(2) LINE ((w(g - 1)), (u(g - 1)))-(w(g), u(g)) NEXT g FOR g = 130 TO 193 COLOR (RND(r) * 10) w(g) = ((O(g - 128)) / 2) + .5 u(g) = (N(g - 128) / 2) + .5 w(1) = w(2) u(1) = u(2) LINE ((w(g - 1)), (u(g - 1)))-(w(g), u(g)) NEXT g FOR g = 194 TO 257 COLOR (RND(r) * 10) u(g) = (((O(g - 192)) * (-1)) / 2) - .5 w(g) = -(N(g - 192) / 2) + .5 w(1) = w(2) u(1) = u(2) LINE ((w(g - 1)), (u(g - 1)))-(w(g), u(g)) FOR r = 1 TO 20 NEXT r NEXT g FOR r = 1 TO 300000 NEXT r CLS PRINT "iteration 2 to 1025 by 255" FOR m = 1 TO 300000 NEXT m FOR g = 2 TO 257 COLOR (RND(r) * 10) q2(g) = (-((w(g)) * (-1)) / 2) - .5 q1(g) = (u(g) / 2) - .5 q1(1) = q1(2) q2(1) = q2(2) LINE ((q1(g - 1)), (q2(g - 1)))-(q1(g), q2(g)) NEXT g FOR g = 258 TO 513 COLOR (RND(r) * 10) q1(g) = ((w(g - 256)) / 2) - .5 q2(g) = (u(g - 256) / 2) + .5 q1(1) = q1(2) q2(1) = q2(2) LINE ((q1(g - 1)), (q2(g - 1)))-(q1(g), q2(g)) NEXT g FOR g = 514 TO 769 COLOR (RND(r) * 10) q1(g) = ((w(g - 512)) / 2) + .5 q2(g) = (u(g - 512) / 2) + .5 q1(1) = q1(2) q2(1) = q2(2) LINE ((q1(g - 1)), (q2(g - 1)))-(q1(g), q2(g)) NEXT g FOR g = 770 TO 1025 COLOR (RND(r) * 10) q2(g) = (((w(g - 768)) * (-1)) / 2) - .5 q1(g) = -(u(g - 768) / 2) + .5 q1(1) = q1(2) q2(1) = q2(2) LINE ((q1(g - 1)), (q2(g - 1)))-(q1(g), q2(g)) FOR r = 1 TO 2000 NEXT r NEXT g FOR r = 1 TO 10000 NEXT r