/*
** Just for grins - go get a file name via the ARP file requrester,
** and then load the file.
*/

/*
** Add the library
*/
If ~Show('Libraries','rexxarplib.library') Then
  If ~addlib('rexxarplib.library', 0, -30, 0) Then Do
    Call Log 1, "No rexxarp library, exiting!"
    Exit 20
  End

NEWFILE = GetFile(20,20,Pragma('Directory'),'','Find File?')

/*
** Check for CANCEL or no file selected
*/
If NEWFILE = "" Then
  Exit 2

/*
** Check for directory selected, in which case I die (no dired). Those who
** use may wish to invoke it at this point.
*/
If Index("/:",Right(NEWFILE, 1)) ~= 0 Then
  Exit 1

/*
** Finally, do a find-file. I use this for pedegogical reasons; those
** who really want requesters everywhere might want to copy this file,
** and change the command/hailstring for other commands (or maybe create
** a single Rexx script that takes two arguments, the hailstring & command,
** and uses this in the appropriate places.
*/
'find-file' NEWFILE

Exit RC