全画面を予めその加工をするなら、
var bgx,bgy,bgr,bgg,bgb,bgc=399
for bgy=0 to 239
for bgx=0 to 399
rgbread gspoit(bgx,bgy) out bgr,bgg,bgb
gpset bgx,bgy,rgb(bgr+0+200*(bgx>=bgc and bgx<=bgc+10),bgg+128+200*(bgx>=bgc and bgx<=bgc+10),bgb+255+200*(bgx>=bgc and bgx<=bgc+10)
bgc=bgc-1
next
next
という文にするかな。
あえてスパゲッティ。