[GRAPH02] SAMPLE
10 CLS 3
20 FOR I=0 TO 8.5 STEP 0.02
30 Y=INT(I*30)+10
40 X=INT(SIN(I*3.14)*I*20)+320
50 R=INT(I*10)+1
60 CIRCLE (X,Y),R,1
70 NEXT I
80 END
CIRCLEコマンドを使って、円群を描いています。