home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l440 / 2.ddi / CHAP2 / LASTDRV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-25  |  460 b   |  22 lines
  1. { LASTDRV.PAS -- uses only documented DOS }
  2. { Turbo Pascal: tpc lastdrv }
  3.  
  4. program LastDrv;
  5. uses dos;
  6. var
  7.     r : Registers;
  8.     lastdrive : Word;
  9.  
  10. begin
  11.     with r do begin
  12.         ah := $19;          { Get Current Disk }
  13.         MsDos(r);
  14.         dl := al;
  15.         ah := $0E;          { Select Disk }
  16.         MsDos(r);
  17.         lastdrive := al;
  18.     end;
  19.     Writeln('LASTDRIVE=', Chr(Ord('A') - 1 + lastdrive));
  20.     Halt(lastdrive);
  21. end.
  22.