' runfile = C:\\holiday\\"

SUB backupstaff

filter = "Staff Files (*.sta)|*.sta|Data File (*.sta)|*.sta||"
filenames = filerequest("Backup Empolyee file",0,0,filter,"sta",@MULTISELECT, runfile)

do

    pos = instr(filenames,"|")

    if(pos)

        filetemp = left$(filenames,pos-1)

        filenames = mid$(filenames,pos+1)

        COPYFILE runfile + "staff.dat" , filetemp,cpy

    endif

until pos = 0

RETURN
ENDSUB

SUB backuprota

filter = "Rota Files (*.rot)|*.rot|Backup Files (*.rot)|*.rot||"
filenames = filerequest("Backup rota file",0,0,filter,"rot",@MULTISELECT, runfile)

do

    pos = instr(filenames,"|")

    if(pos)

        filetemp = left$(filenames,pos-1)
        filenames = mid$(filenames,pos+1)

        COPYFILE runfile + "rota.dat" , filetemp,cpy

    endif

until pos = 0

RETURN
ENDSUB

SUB restorestaff

filter = "Staff Files (*.sta)|*.sta|Data File (*.sta)|*.sta||"
filenames = filerequest("Restore Empolyee file",0,1,filter,"sta",@MULTISELECT, runfile)

do

    pos = instr(filenames,"|")

    if(pos)

        filetemp = left$(filenames,pos-1)
        filenames = mid$(filenames,pos+1)

        COPYFILE filetemp, runfile + "staff.dat" ,cpy

    endif

until pos = 0

RETURN
ENDSUB

SUB restorerota

filter = "Rota Files (*.rot)|*.rot|Data Files (*.rot)|*.rot||"
filenames = filerequest("Restore rota file",0,1,filter,"rot",@MULTISELECT, runfile)


do

    pos = instr(filenames,"|")

    if(pos)

        filetemp = left$(filenames,pos-1)
        filenames = mid$(filenames,pos+1)

        COPYFILE filetemp, runfile + "rota.dat" ,cpy

    endif

until pos = 0 

RETURN
ENDSUB