BCX Console Demonstration Program s53.bas

 MACRO DRIVE_REMOVABLE = 2
 MACRO DRIVE_FIXED     = 3
 MACRO DRIVE_REMOTE    = 4
 MACRO DRIVE_CDROM     = 5
 MACRO 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

Result:


 C:\ is a fixed disk.
 D:\ is a fixed disk.
 E:\ is a fixed disk.
 F:\ is a fixed disk.
 H:\ is a CD-ROM drive.