Texture
 "<Texture$Dir>.WimpLib.Poll"
 "<Texture$Dir>.WimpLib.Windows"
 "<Texture$Dir>.WimpLib.Icons"
 "<Texture$Dir>.WimpLib.Templates"
startup("Texture",2)
startup_windows(1)
load_templates("<Texture$Dir>.Templates",4096)
respond%(3)=
respond%(6)=
poll(1)
respond_close
quit%=
user_load
create_template("Choices",1,block%)
openwindow(x%)
respond_click
 ihandle% 
 "Filer_Run <Texture$Dir>.Progs.Colour"
 "Filer_Run <Texture$Dir>.Progs.B/W"
 "Filer_Run <Texture$Dir>.Pix"