;Multiselect Requester

WbToScreen 1

Poke.l ?SetScreen+4,Peek.l(Addr Screen(1))

;SetASLScreenAttrs 1,1,1
SetFROptionsAttrs False,True,False

If AllocASLRequest (1,0,?SetScreen)
  RemAllFRAttrs

  If ASLFileRequest (1)
    NPrint "Path: ",ASLPath$(1)
    For I.l=0 To NumSelected(1)-1 Step 1
      NPrint "File (",Str$(I),") ",ASLFile$ (1,I)
    Next I
  End If

End If
Stop
End

SetScreen:
Dc.l $80080028,0
Dc.l 0,0