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