Rem show a file selector 
Rem and load program 
NAME$=Fsel$("Df0:","","Select File")
If NAME$="" Then End Else Load NAME$