'      ********************************************  
'      *          DeleteBackUp_doc.ASC            *  
'      * by Alan F Pfeil for free distribution by *  
'      *  the AMOS Public Domain Library 30-10-90 *  
'      ********************************************  
'
'  A Utility to Delete all those disk eating .bak Files. 
' You can load it as an accessory by changing the .AMOS to .acc
' The program is fully documented but this is provided in case 
' you want to strip out the Rems to save memory. 
'
'  Note: For Safety, only .bak files are displayed by default. 
'   Other files can be shown or deleted by erasing  '*.bak'
'   from the Requestor window  and pressing the Return key.
'
'  Operating Instructions. 
'      Alter lines 40 to 42 to suit your setup, and run, 
'  Select any file and then Clik the Right Mouse button to show  
' the existing free disk space, or the Left Mouse button to select 
' the Drive, Directory and File from the File Requestor. 
'     The program will then display your selection and ask for 
' confirmation, then delete it and show the disk space left free,
' and offer the option to quit or a further deletion.
'     If no file is selected you will be returned to Edit mode.
'
'     The following lines are provided to activate the file
' requestor, edit them to suit your Drive setup or Directory 
' usage. Leave one active and 'Rem' or delete the other two. 
'
  F$=Fsel$("DF0:*.bak","","Kill a Bak_up prog")
Rem F$=Fsel$("DF1:Amos_Progs/*.bak","","Kill a Bak_up prog") 
Rem F$=Fsel$("RAD:Amos_Progs/*.bak","","Kill a Bak_up prog") 
'
' The program quotes to the screen the full path and filename selected.
'    As this may overflow a screen line they are shown on seperate 
' lines, viz:    
 Locate 1,3 : Ink 3,0 : Print " DELETE Program: ";Left$(F$,8);" "
 Print " "+Mid$(F$,9)+" "
'    You may want to alter the '8' or '9' to give a better layout
' so that a long filename comes on a seperate line.
'
'    Control is by means of Zones and the one active is visually 
' confirmed by its number being shown in the top left corner of
' the screen.
'
'    Once a file has been selected, a RightMouse Clik will show  
' the Free Disk Space without deleting the file; a second Clik 
' will quit to Edit. 
'
'   After deletion the free disk space in bytes is automatically 
' displayed, and a LeftMouse Clik will recall the File Requestor 
' regardless of where the pointer is located.    
'    NB. This is the free space on the Disk in the Drive called  
' by lines 40, 41 or 42 as above; not necessarily the one from 
' which you delete a file, or the current directory disk, if the 
' selection was changed from the Requestor.
'AFP