Basic - Leer directorio y unidad actual

Trabajo con Qbasic 1.1
¿Hay una instruccion que haga referencia a la unidad y directorio actuales?
Como para poder poner :

PRINT "La unidad actual es " ; ¿kepongoaqui?

En esa versio'n del Qbasic no existe (no se' de otras ma's avanzadas)..... pero te resulta con este ejemplo.....

SHELL "CD > TRAYECTO.TXT": '<--- Pone la ruta actual en ese archivo
OPEN "TRAYECTO.TXT" FOR INPUT AS 100: '<--- Abre el archivo
LINE INPUT #100, RUTA$: '<--- Lee el 1er renglo'n en donde esta' la ruta
CLOSE #100: '<--- Cierra ese archivo
KILL "TRAYECTO.TXT": '<--- Borra el archivo porque la ruta ya la tienes en RUTA$

REM - Aqui' probara's que lo puedes ver
WIDTH 40, 25: '<--- Pone el ancho de la pantalla
COLOR 7, 4: '<--- Pone los colores
PRINT "La Unidad actual es "; : '<--- Imprime esto
COLOR 4, 7: '<--- Invierte los colores
PRINT RUTA$: '<--- Imprime la ruta
SOUND 3333, 3: SOUND 4444, 3: SOUND 5555, 3: '<--- Hace tres sonidos
END: '<--- Fin

Hugo.,

Muchas gracias!!!!!!!!!!!!!!!