Capable to list all drives of the computer. Pointing the value of the unit and its description:

? listdrives() && Here it calls the function below:

FUNCTION ListDrives()

LOCAL ln, lnTipo

FOR ln = 65 TO 92

lnTipo = DRIVETYPE(CHR(ln))

DO CASE

CASE lnTipo = 1

* Not identified

CASE lnTipo = 2

? CHR(ln)+": Floppy"

CASE lnTipo = 3

? CHR(ln)+": HardDisc"

CASE lnTipo = 4

? CHR(ln)+": Unit of Net "

CASE lnTipo = 5

? CHR(ln)+": CD-ROM"

ENDCASE

ENDFOR

RETURN ""

ENDFUNC