18 lines
435 B
Text
18 lines
435 B
Text
Order% = 3
|
|
side% = 3^Order%
|
|
VDU 23,22,8*side%;8*side%;64,64,16,128
|
|
FOR Y% = 0 TO side%-1
|
|
FOR X% = 0 TO side%-1
|
|
IF FNincarpet(X%,Y%) PLOT X%*16,Y%*16+15
|
|
NEXT
|
|
NEXT Y%
|
|
REPEAT WAIT 1 : UNTIL FALSE
|
|
END
|
|
|
|
DEF FNincarpet(X%,Y%)
|
|
REPEAT
|
|
IF X% MOD 3 = 1 IF Y% MOD 3 = 1 THEN = FALSE
|
|
X% DIV= 3
|
|
Y% DIV= 3
|
|
UNTIL X%=0 AND Y%=0
|
|
= TRUE
|