home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his038 / qbints.lzh / DRIVE.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-04-23  |  975 b   |  38 lines
  1. 'Sun  Apr 23, 1989   10:46:48 pm
  2. '*****************************************************************************
  3. 'This routine returns the name of the current default drive.
  4. '*****************************************************************************
  5.  
  6. TYPE RegType
  7.      ax    AS INTEGER
  8.      bx    AS INTEGER
  9.      cx    AS INTEGER
  10.      dx    AS INTEGER
  11.      bp    AS INTEGER
  12.      si    AS INTEGER
  13.      di    AS INTEGER
  14.      flags AS INTEGER
  15. END TYPE
  16. DIM SHARED inregs AS RegType, outregs AS RegType
  17. DECLARE FUNCTION drive$ ()
  18.  
  19. PRINT drive$
  20.  
  21. FUNCTION drive$
  22.      inregs.ax = &H1900
  23.      CALL interrupt(&H21, inregs, outregs)
  24.      ah = FIX(outregs.ax / 256)
  25.      al = outregs.ax - (ah * 256)
  26.      SELECT CASE al
  27.         CASE 0: d$ = "A:"
  28.         CASE 1: d$ = "B:"
  29.         CASE 2: d$ = "C:"
  30.         CASE 3: d$ = "D:"
  31.         CASE 4: d$ = "E:"
  32.         CASE 5: d$ = "F:"
  33.         CASE 6: d$ = "G:"
  34.     END SELECT
  35.     drive$ = d$
  36. END FUNCTION
  37.  
  38.