home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB04.ZIP / GETSETDD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-12-03  |  566 b   |  20 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5. }
  6. program Get_and_Set_Default_Drive;
  7.  
  8. var
  9.   drive : char;
  10. {$I regpack.typ}
  11. {$I getsetdd.lib}
  12. begin
  13.   GetSetDrive('G',drive);
  14.   WriteLn('The default drive is now ',drive);
  15.   Write('Change to what? ');
  16.   read(drive); WriteLn;
  17.   GetSetDrive('S',drive);
  18.   GetSetDrive('G',drive);
  19.   WriteLn('The default drive is now ',drive);
  20. end.