'ribbons.bas SmallBASIC 0.12.2 [B+=MGA] 2016-03-24 'new and improved update of SB and Bpf posts 2015-04-16 B+ at 80,610:? "Wait 8 secs or press any for next screen..." const a=127 while 1 for i=0 to 9 b=rnd^2:c=rnd^2:d=rnd^2 for x=1 to 600 cl=RGB(a+a*sin(b*x),a+a*sin(c*x),a+a*sin(d*x)) line x,i*60+1 step 0,60,cl next x next i pause 8 '<=========== pause waits 8 secs or key press wend