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