var filename, choice : string
var streamNumber, count : int := 0





streamNumber := Dir.Open (Dir.Current)
assert streamNumber > 1
loop
    filename := Dir.Get (streamNumber)
    exit when filename = ""
    if filename (1) not= "." then
        count += 1
    end if
end loop
Dir.Close (streamNumber)






setscreen ("text:max;max")

put "Delete any files that dont have matching .tif files? (discluding the Pagemaker file) \n\t(y/n)" ..
get choice

if choice = "y" or choice = "Y" then

end if


put "\n\tThe files were deleted: \n"

streamNumber := Dir.Open (Dir.Current)
assert streamNumber > 1
loop

    filename := Dir.Get (streamNumber)
    exit when filename = ""
    if filename not= "Folder Cleanup.t" and filename not= "Folder Cleanup.exe" then
        if filename (1) not= "." and filename (length (filename) - 4 .. length (filename)) not= ".tif" then
            if filename (length (filename) - 4) = "." and filename (length (filename) - 4 .. length (filename)) not= ".pmd" then
                if not File.Exists (filename (1 .. length (filename) - 4) + ".tif") then
                    File.Delete (filename)
                    put filename
                end if
            end if
        end if
    end if
end loop
Dir.Close (streamNumber)
Music.Sound (2000, 50)
Music.Sound (2500, 50)
Music.Sound (3000, 50)
Music.Sound (4200, 200)
put "\n\n\t*Disregard any folder names."

var word, fileName, cont, ext : string
var streamNumber, filecount, line, totalfiles : int := 0

setscreen ("text:max;max")


put "\tCurrent Files in this folder: \n"

streamNumber := Dir.Open (Dir.Current)
assert streamNumber > 1
loop

    fileName := Dir.Get (streamNumber)
    exit when fileName = ""
    if fileName (1) not= "." then
        put fileName, "      " ..
        if line = 3 then
            put ""
            line := 0
        end if
        line += 1
        filecount += 1
    end if

end loop
Dir.Close (streamNumber)

loop

    put "\n\nNew File word: " ..
    get word : *

    Music.Sound (2000, 50)
    Music.Sound (2500, 50)
    Music.Sound (3000, 50)

    put "\nThe files will be named ", word, "1.jpg - ", word, "999.jpg"
    put "\nIs this okay? (y/n) " ..
    get cont

    if cont = "y" or cont = "Y" then
        exit

    end if
    Music.Sound (3000, 50)
    Music.Sound (2500, 50)
    Music.Sound (2000, 50)
end loop
Music.Sound (2000, 50)
Music.Sound (2500, 50)
Music.Sound (3000, 50)
totalfiles := filecount - 2
filecount := 0
streamNumber := Dir.Open (Dir.Current)
assert streamNumber > 1
loop

    fileName := Dir.Get (streamNumber)
    exit when filecount = totalfiles
    if fileName (1) not= "." and fileName not= "File Renamer.t" and fileName not= "File Renamer.exe" then
        filecount += 1
        ext := fileName (length (fileName) - 3 .. length (fileName))
        put fileName, " is now ", word + "0" + intstr (filecount) + ext
        File.Rename (fileName, word + "0" + intstr (filecount) + ext)
    end if
end loop
Dir.Close (streamNumber)
Music.Sound (2000, 50)
Music.Sound (2500, 50)
Music.Sound (3000, 50)
Music.Sound (4200, 200)