home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l440 / 2.ddi / CHAP2 / LASTDRV.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-09-25  |  769 b   |  29 lines
  1. REM LASTDRVIVE -- uses only documented DOS
  2. REM $INCLUDE: 'QB.BI'
  3.  
  4. REM BASIC 6.0 compiler:
  5. REM    bc /o lastdrv.bas;
  6. REM    link lastdrv,,,qb.lib;
  7.  
  8. REM Quick BASIC (must produce standalone executable!):
  9. REM    qb lastdrv.bas /L qb.qlb
  10.  
  11. SUB DOSEXIT(errorlevel)
  12.     CLOSE
  13.     DIM Regs AS RegType
  14.     Regs.ax = &H4C00 + errorlevel   ' Terminate Process
  15.     CALL INTERRUPT(&H21, Regs, Regs)
  16.     PRINT "this is never executed"
  17. END SUB
  18.  
  19. DIM Regs AS RegType
  20. Regs.ax = &H1900                    ' Get Current Disk
  21. CALL INTERRUPT(&H21, Regs, Regs)
  22. Regs.dx = Regs.ax
  23. Regs.ax = &H0E00                    ' Select Disk
  24. CALL INTERRUPT(&H21, Regs, Regs)
  25. lastdrv = Regs.ax AND &HFF
  26. PRINT "LASTDRIVE="; CHR$(ASC("A") - 1 + lastdrv)
  27. CALL DOSEXIT(lastdrv)
  28. END
  29.