/* 
    test
*/


address command /* Use AmigaDOS */

say c2d('"')
say d2c(34)

number=1

if number~=0 then call ProcessFiles()

say "The End!"
exit


ProcessFiles:

answer=''

do while (answer~="D" & answer~="M" & answer~="C")
    say "[D]elete files, [M]ove to new directory or [C]ancel?"
    parse pull answer
    answer=upper(answer)
end

select
    when answer='M' then call MoveFiles()
    when answer='D' then call DeleteFiles()
    when answer='C' then return
end

return

MoveFiles:
    say "Moving files..."
    return

DeleteFiles:
    say "Deleting files..."
    call open(infile,"t:report",'r')
    do while ~eof(infile)
    	data='list '||d2c(34)||readln(infile)||d2c(34)
       interpret(data)
    end
    call close(infile)
    return