18 lines
379 B
Text
18 lines
379 B
Text
|
MODE 8
|
||
|
|
OFF
|
||
|
|
|
||
|
|
order% = 5
|
||
|
|
PROCsierpinski(0, 0, 2^(order%-1))
|
||
|
|
REPEAT UNTIL GET
|
||
|
|
END
|
||
|
|
|
||
|
|
DEF PROCsierpinski(x%, y%, l%)
|
||
|
|
IF l% = 0 THEN
|
||
|
|
PRINT TAB(x%,y%) "*";
|
||
|
|
ELSE
|
||
|
|
PROCsierpinski(x%, y%+l%, l% DIV 2)
|
||
|
|
PROCsierpinski(x%+l%, y%, l% DIV 2)
|
||
|
|
PROCsierpinski(x%+l%+l%, y%+l%, l% DIV 2)
|
||
|
|
ENDIF
|
||
|
|
ENDPROC
|