CLEAR ALL
BITMAP 1 NEW 1,800
SPRITE 1 BIND BITMAP 1 SHOW MOVE 0,400 SCALE 1280,1
TARGET BITMAP 1
FOR y=0 TO 399
    POKE y,GRADIENT(RGB(255,128,0),RGB(135,206,235),y/400)
NEXT y
FOR y=400 TO 799
    POKE y,GRADIENT(RGB(135,206,235),RGB(255,0,128),(y-400)/400)
NEXT y
