{ ---------------------------------------------
  -- kleines Beispiel für ASL-File-Requester --
  ---------------------------------------------
  --       benötigt Kickstart 2.0 !          --
  ---------------------------------------------
  -- Roger Fischlin                 25.12.91 --
  --------------------------------------------- }

{$incl "libraries/asl.h", "asl.lib"}


VAR Req      : p_FileRequester;
    Tags     : ARRAY[0..10] OF TagItem; { großzügig}
    FileName : String[100];
    DirName  : String[100];
    Cancel   : Boolean;


BEGIN
      { Library öffnen }
      OpenLib(AslBase,ASLNAME,36);

      DirName :="RAM:";
      FileName :="";

      { Tags aufbauen }
      Tags[0].ti_Tag:=ASL_Hail;
      Tags[0].ti_Data:="ASL in KickPascal";
      Tags[1].ti_Tag:=ASL_File;
      Tags[1].ti_Data:=FileName;
      Tags[2].ti_Tag:=ASL_Dir;
      Tags[2].ti_Data:=DirName;
      Tags[3].ti_Tag:=TAG_DONE;

      { Requester-Struktur anlegen lassen }
      Req:=AllocAslRequest(ASL_FileRequest,^Tags);

      IF Req<>NIL THEN
         BEGIN
              { Requester aufrufen, erscheint auf
                dem Default-Public-Screen, d.h.
                meist auf der Workbench }
              Cancel:=RequestFile(Req);
              IF Cancel=false THEN
                 BEGIN
                      WRITELN("Drawer : ",Req^.rf_Dir);
                      WRITELN("Datei  : ",Req^.rf_File);
                 END
                 ELSE WRITELN("Keine Datei angewählt.");
              FreeAslRequest(Req);
         END
         ELSE WRITELN("Kann Struktur nicht anlegen !");

      CloseLib(AslBase);
END.