10 COLOR 1,15,8:SCREEN 2
20 FOR X=0 TO 255:PSET(X,191-SQR(50*X)):NEXT
30 GOTO 30