 |
BCX Console Demonstration Program S53.bas
|
CONST
DRIVE_REMOVABLE =
2
CONST
DRIVE_FIXED =
3
CONST
DRIVE_REMOTE =
4
CONST
DRIVE_CDROM =
5
CONST
DRIVE_RAMDISK =
6
DIM
i
DIM
a$
DIM
k
FOR
i =
0
TO
25
a$ =
CHR$
(
i +
65
)
&
":\"
k =
GetDriveType(
a$)
SELECT
CASE
k
CASE
DRIVE_REMOVABLE
PRINT
a$, " is a removable disk."
CASE
DRIVE_FIXED
PRINT
a$, " is a fixed disk."
CASE
DRIVE_REMOTE
PRINT
a$, " is a remote disk."
CASE
DRIVE_CDROM
PRINT
a$, " is a CD-ROM drive."
CASE
DRIVE_RAMDISK
PRINT
a$, " is a RAMDisk."
END
SELECT
NEXT