loop
    loop
        View.Set ("graphics")
        cls
        View.Set ("text")
        var shortcut, newName, fileName : string
        var dir : string := "C:/Documents And Settings/" + Sys.GetUserName + "/Desktop/"
        var stream : int := Dir.Open (dir)
        for i : 0 .. stream
            fileName := Dir.Get (stream)
            exit when fileName = ""
            if fileName (1) not= "." then
                if fileName (length (fileName) - 2) = "l" and
                        fileName (length (fileName) - 1) = "n" and
                        fileName (length (fileName)) = "k" then
                    for x : 1 .. length (fileName) - 4
                        put fileName (x) .. %, "(" + intstr (length (fileName)) + ")"
                    end for
                    put ""
                end if
            end if
        end for
        put ""
        put "Enter a desktop shortcut name: " ..
        get shortcut : *
        if not File.Exists (dir + shortcut + ".lnk") then
            put Error.LastMsg
            put "Press any key to restart"
            Input.Pause
            exit
        end if
        put "Now what do you want it to be called? " ..
        get newName : *
        File.Rename (dir + shortcut + ".lnk", dir + newName + ".lnk")
    end loop
end loop