(* -------------------------------------------------------------------------
  :Program.       TestDisky
  :Author.        Kai Bolay
  :Address.       Hoffmannstraße 168, 7250 Leonberg 1
  :Phone.         07152/22135
  :ShortCut.      [kai]
  :Version.       1.0
  :Date.          18-May-89
  :Copyright.     INTERN
  :Language.      Modula-2
  :Translator.    M2Amiga 3.2d
  :Imports.       FileRequest [kai], IntuiStruct1.3 [bne]
  :Contents.      Program to test FieRequest
------------------------------------------------------------------------- *)

MODULE TestDisky;

FROM SYSTEM      IMPORT ADR;
FROM FileRequest IMPORT DiskyInfo, DiskyFlags, DiskyFlagSet, DiskyResult,
                        Disky;
FROM Terminal    IMPORT WriteString;

VAR DI : DiskyInfo;
    
BEGIN
   WITH DI DO
      title        := ADR ("FileRequest-Demo");
      dir          := "SYS:";
      file         := "Demo-File";
      flags        := DiskyFlagSet {};
   END; (* WITH *)
   IF (Disky (DI) # DiskyOK) THEN
      WriteString ("Cancel / Error");
   ELSE
      WriteString (DI.path);
   END; (* IF *)
END TestDisky.