var BackNext, NextFind, num, NumOfDir : int := 0
var fileName : string
var FoldersHotlink : array 0 .. 100000 of string
var size, attr, fileTime, dir : int
var NextDrive, DriveHotlink : array 0 .. 25 of string := init ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z')
var TRUEFALSEDRIVE : array 0 .. 25 of int
View.Set ("Graphics:max;max")

proc GetDrives (truefalse : boolean)
    NumOfDir := 0
    for i : 0 .. 25
        Dir.Change (NextDrive (i) + ":/")
        if Error.Last = 0 then
            NumOfDir += 1
            DriveHotlink (NumOfDir) := Dir.Current
            if truefalse = true then
                put DriveHotlink (NumOfDir), " ", (NumOfDir)
            end if
        else
            DriveHotlink (i) := ""
        end if
    end for
    if truefalse = true then
        get num
    end if
end GetDrives

proc GetLongDir (DirGet : string)
    NumOfDir := 0
    dir := Dir.Open (DirGet)
    loop
        Dir.GetLong (dir, fileName, size, attr, fileTime)
        exit when fileName = ""
        put fileName : 22, " " ..
        if (attr and attrDir) not= 0 then
            put "   [DIR] " ..
            NumOfDir += 1
            put "   ", NumOfDir ..
            FoldersHotlink (NumOfDir) := fileName
        end if
        put ""
    end loop
    Dir.Close (dir)
end GetLongDir

proc ExploreDrives
    GetDrives (false)
    loop
        cls
        put Dir.Current
        GetLongDir (Dir.Current)
        NumOfDir += 1
        put "Change Drive ", NumOfDir
        num := 0
        for i : 1 .. NumOfDir
            if num < 1 or num > NumOfDir then
                get num
            end if
            if num = i then
                if num = NumOfDir then
                    GetDrives (true)
                    Dir.Change (DriveHotlink (num))
                else
                    Dir.Change (FoldersHotlink (i))
                end if
                exit
            end if
        end for
    end loop
end ExploreDrives

ExploreDrives