100 MODE 2
110 DIM s(7),c(7)
120 qpi=ATN(1):sq2=SQR(2)
130 FOR i=0 TO 7
140 s(i)=SIN(i*qpi)
150 c(i)=COS(i*qpi)
160 NEXT
170 level=11
180 DIM r(level)
190 insize=128*2
200 MOVE 200,150
210 rotqpi=0:rq=1
220 GOSUB 250
230 END
240 '
250 IF level=1 THEN DRAWR c(rotqpi)*insize,s(rotqpi)*insize:RETURN
260 insize=insize*sq2/2
270 rotqpi=(rotqpi+rq) AND 7
280 level=level-1
290 r(level)=rq:rq=1
300 GOSUB 250
310 rotqpi=(rotqpi-r(level)*2) AND 7
320 rq=-1
330 GOSUB 250
340 rq=r(level)
350 rotqpi=(rotqpi+rq) AND 7
360 level=level+1
370 insize=insize*sq2
380 RETURN