{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

}
program Get_and_Set_Default_Drive;

var
  drive : char;
{$I regpack.typ}
{$I getsetdd.lib}
begin
  GetSetDrive('G',drive);
  WriteLn('The default drive is now ',drive);
  Write('Change to what? ');
  read(drive); WriteLn;
  GetSetDrive('S',drive);
  GetSetDrive('G',drive);
  WriteLn('The default drive is now ',drive);
end.
begin
  activity := UpCase(activity);
  case activity of
    'G': regi