.支持庫 iext

.局部變量 計次, 整數型

.局部變量 磁盤, 文本型

.局部變量 卷標, 文本型

.局部變量 序列號, 整數型

.局部變量 文件系統, 文本型

.計次循環首 (26, 計次)

    磁盤 ＝ 字符 (64 ＋ 計次)

    .如果真 (文件是否存在 (磁盤 ＋ “:\nul”))

        卷標 ＝ 取空白文本 (255)

        文件系統 ＝ 取空白文本 (255)

        取磁盤信息 (磁盤 ＋ “:\”, 卷標, 255, 序列號, 255, 0, 文件系統, 255)

        超級列表框.插入表項 (, 磁盤 ＋ “:”, , , , )

        超級列表框.置標題 (超級列表框.取表項數 () － 1, 1, 選擇 (卷標 ＝ “”, “本地磁盤”, 卷標))

        超級列表框.置標題 (超級列表框.取表項數 () － 1, 2, 格式化大小 (取磁盤總空間 (磁盤) × 1024))

        超級列表框.置標題 (超級列表框.取表項數 () － 1, 3, 格式化大小 (取磁盤剩余空間 (磁盤) × 1024))

        超級列表框.置標題 (超級列表框.取表項數 () － 1, 4, 到文本 (序列號))

        超級列表框.置標題 (超級列表框.取表項數 () － 1, 5, 文件系統)

    .如果真結束

.計次循環尾 ()

.子程序 格式化大小, 文本型

.參數 大小, 雙精度小數型

.局部變量 次數, 整數型

次數 ＝ 1

.判斷循環首 (大小 ≥ 1024)

    次數 ＝ 次數 ＋ 1

    大小 ＝ 大小 ÷ 1024

.判斷循環尾 ()

返回 (到文本 (四舍五入 (大小, 2)) ＋ “ ” ＋ 多項選擇 (次數, “Byte”, “KB”, “MB”, “GB”, “TB”, “PB”, “EB”, “ZB”, “YB”, “NB”, “DB”, “CB”))