15 lines
344 B
Text
15 lines
344 B
Text
100 PROGRAM "Sierpins.bas"
|
|
110 LET O=3
|
|
120 LET SZ=3^O
|
|
130 FOR Y=0 TO SZ-1
|
|
140 FOR X=0 TO SZ-1
|
|
150 LET CH$=CHR$(159)
|
|
160 LET X1=X:LET Y1=Y
|
|
170 DO UNTIL X1=0
|
|
180 IF MOD(X1,3)=1 AND MOD(Y1,3)=1 THEN LET CH$=" ":EXIT DO
|
|
190 LET X1=INT(X1/3):LET Y1=INT(Y1/3)
|
|
200 LOOP
|
|
210 PRINT CH$;
|
|
220 NEXT
|
|
230 PRINT
|
|
240 NEXT
|