pro s_sine,nc openr,1,'sine.byt' a=bytarr(360,360) readu,1,a window,1,xsize=360,ysize=360,xpos=300,ypos=400,colors=nc l_color,nc tv,a close,1 return end