RosettaCodeData/Task/Sierpinski-triangle-Graphical/BBC-BASIC/sierpinski-triangle-graphical.basic

9 lines
206 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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%