[SAMPLE6] SAMPLE
10 REM SAMPLE6
100 SCREEN 0:CLS
110 FOR P=1 TO 7:C=0
120 FOR R=10 TO 200 STEP 20
130 FOR L=0 TO 3.14 STEP 0.05
140 Y=SIN(L)*COS(L)
150 X=SIN(L)*SIN(L)
160 Y=Y* R +100
170 X=X*R *2.5+100-C
180 PSET (X,Y),P
190 NEXT L
200 C=C+10
210 NEXT R,P
220 END
110と210のPでパレット番号を変える。
130〜190で楕円をプロットする。
120と210のRで楕円の大きさを変える。
200のCで描き始める位置を変える。