5 'Построение функциональных узоров
10 DEF FNF(X,Y)=SQR(X^2+Y^2)
20 SCREEN 3
30 FOR X=-.375 TO .375 STEP 1/64
40 FOR Y=-.375 TO .375 STEP 1/64
50 R=INT(200*FNF(X,Y))
60 C=R-2*INT(R/2)
70 PSET(128+256*X,96+256*Y),C*11+4
80 NEXT Y,X
90 GOTO 90