PROGRAM AslTest;


{$I "Include:Libraries/Asl.i"}

VAR
    fr    : FileRequesterPtr;
    dummy : BOOLEAN;

BEGIN
    AslBase := OpenLibrary("asl.library",37);
    IF AslBase <> NIL THEN BEGIN
       fr := AllocAslRequestTags(ASL_FileRequest,
                          ASLFR_InitialPattern,"#?",
                          ASLFR_TitleText,"Test av ASL-Requester by NS",
                          ASLFR_DoPatterns,True,
                          TAG_DONE);
       IF fr <> NIL THEN BEGIN
           dummy := AslRequest(fr,NIL);
           FreeAslRequest(fr);
       END;
    CloseLibrary(AslBase);
    END;
END.