RosettaCodeData/Task/Sierpinski-triangle-Graphical/BBC-BASIC/sierpinski-triangle-graphical.basic
2023-07-01 13:44:08 -04:00

8 lines
206 B
Text

order% = 8
size% = 2^order%
VDU 23,22,size%;size%;8,8,16,128
FOR Y% = 0 TO size%-1
FOR X% = 0 TO size%-1
IF (X% AND Y%)=0 PLOT X%*2,Y%*2
NEXT
NEXT Y%