dos33fsprogs/basic/fractals/restrict.bas

13 lines
216 B
QBasic

10 HGR2
20 X=192*RND(1):Y=192*RND(1)
30 L=0:LL=0
40 V=INT(4*RND(1))
50 IF V=LL THEN 40
60 X=X/2:Y=Y/2
70 IF V<2 THEN X=X+96
80 IF V=1 OR V=2 THEN Y=Y+96
90 HPLOT 43+X,Y
100 LL=L:L=V+1
110 IF L=4 THEN L=0
120 GOTO 40