Rem set default drive
Dir$="df0:"
Rem set ok to continue flag
OK=True
Rem open a requester 
NAME$=Fsel$("","","Select Source Program","")
If NAME$=""
   OK=False : Rem Quit has been chosen, so set ok to continue flag to false
End If 
If Exist(NAME$)=0
   OK=False : Rem a filename has been typed in that doesn't exist! 
End If 
If OK=True : Rem the source file exists, so load it 
   Open In 1,NAME$
   L=Lof(1) : Rem work out the length of the file
   Close 1
   Reserve As Work 2,L : Rem reserve a work area for it 
   Bload NAME$,2 : Rem load it into the work area 
   OK=True
   Dir$="Df0:" : Rem set destination dir
   Rem open a requester 
   NAME$=Fsel$("","","Select Destination","")
   If NAME$=""
      OK=False : Rem someone has chosen 'quit', so set flag to false
   End If 
   If OK=False
      Goto OOT : Rem if quit was chosen, skip past the writing routines 
   End If 
   Rem save out bank 2 ( the bank containing the source file) 
   Bsave NAME$,Start(2) To Start(2)+Length(2)
   Rem erase the bank,freeing the memory
   Erase 2
   Rem if quit is chosen the program ends up here 
   OOT:
End If