rebol[] w: view layout[ AREA1: area 500x300 across BTN1: btn "Load" [ set-face area1 read ftp://USER:PW@URL/FILE ] BTN1: btn "Save" [ write ftp://USER:PW@URL/FILE get-face area1 ] ]