BEGIN
GetDir(1, DirectoryInfo);{1 = the 'A' drive}
IF Copy(DirectoryInfo, 1, 1) <> 'A'{if the disk is not present}
   THEN
      BEGIN
         Beep;
         MessageDlg('     Place the disk with the files to be' + Chr(13)
+
                    'unzipped, in drive ''A'' and then try again !!',
                     mtError, [mbOK], 0);
         Application.Terminate;
      END
   ELSE
      BEGIN {disk is in 'A' drive, continue with program}
         Application.Initialize;
         Application.Title := 'GetData';
         Application.CreateForm(TForm_GetData, Form_GetData);
         Application.CreateForm(TForm_Options, Form_Options);
         Application.Run;
      END;
END.