100 graphics 0 110 graphics cls 120 w = 360 130 for i = 0 to w step 5 140 v = 100 * i / w 150 graphics moveto 0, i 160 graphics color 0, v, (100 - v) 170 graphics lineto i, w 180 fn sleep(0.04) : ' Does not work on Windows 190 next i 990 end