' Svjatoslav Agejenko ' year: 2001 ' alien text DEFINT A-Z DECLARE SUB prch (x, y, n, s) DIM SHARED co(1 TO 4) co(1) = 7 co(2) = 7 co(3) = 0 co(4) = 0 SCREEN 12 RANDOMIZE TIMER PAINT (1, 1), 0 siz = 4 tmp = 0 FOR y = 1 TO 480 - siz - 2 STEP siz + (siz \ 2) tmp1 = 0 FOR x = 1 TO 640 - siz - 2 STEP siz + (siz \ 2) prch x, y, RND * 16, siz tmp1 = tmp1 + 1 IF tmp1 > 20 THEN tmp1 = 0: x = x + (siz) NEXT x tmp = tmp + 1 IF tmp > 5 THEN tmp = 0: y = y + (siz) NEXT y SUB prch (x, y, n, s) sp = s \ 2 c = co(RND * 3 + 1) LINE (x, y)-(x + s, y), c LINE (x, y)-(x + sp, y + sp), c LINE (x + s, y)-(x + sp, y + sp), c PAINT (x + 2, y + 1), c c = co(RND * 3 + 1) LINE (x, y)-(x, y + s), c LINE (x, y)-(x + sp, y + sp), c LINE (x, y + s)-(x + sp, y + sp), c PAINT (x + 1, y + 2), c c = co(RND * 3 + 1) LINE (x + s, y)-(x + s, y + s), c LINE (x + s, y)-(x + sp, y + sp), c LINE (x + s, y + s)-(x + sp, y + sp), c PAINT (x + s - 1, y + 2), c c = co(RND * 3 + 1) LINE (x, y + s)-(x + s, y + s), c LINE (x, y + s)-(x + sp, y + sp), c LINE (x + s, y + s)-(x + sp, y + sp), c PAINT (x + 2, y + s - 1), c END SUB