十進BASIC
3種類の三角関数を使ったプログラムです。
SET WINDOW 1,639,1,399
LET A=.3
LET B=.5
LET C=.6
LET D=.7
FOR X=1 TO 639
FOR Y=1 TO 399
LET C1=COS(X/100+ATN(3*(X/100)+COS(5*(X/100))))
LET C2=SQR(ABS(Y/100+ATN(3*(Y/100)+TAN(5*(Y/100)))))
LET C=MOD( (C1+C2)*10 , 15 )
SET LINE COLOR C
PLOT X,Y
NEXT Y
NEXT X
END


参照 (仮称)十進BASICのホームページ
「やさしいコンピュータ CGワンダーランド」(日本放送協会)