[comp.sys.amiga.tech] Help! ARP functions from BASIC

barrett@ektools.UUCP (Chris Barrett) (01/24/89)

Help!  I'd like to use the ARP file requester from basic, but it keeps
guruing the machine.  The following is a short code example:

  DIM FR&(10)
  DECLARE FUNCTION FileRequest&() LIBRARY
  
  LIBRARY "graphics.library"
  LIBRARY "arp.library"

 TEMP$ = "Enter file name: " + CHR$(0)
  FOR TEMP = 1 TO 10
    FR&(TEMP) = 0&
  NEXT TEMP
  FILENAME$ = STRING$(128,0)
  DIR$ = STRING$(128,0)
  FR&(1) = SADD(TEMP$)
  FR&(2) = SADD(FILENAME$)
  FR&(3) = SADD(DIR$)
  TEMP = FileRequest& (VARPTR(FR&(0)))
  IF TEMP <> 0 THEN
    MN$ = DIR$ + FILENAME$
  ELSE
    MN$ = ""
  END IF

  PRINT MN$
 
  LIBRARY CLOSE

  END

It does display the requester for about .5 seconds then crashes, any 
suggetions would be appreciated.  Thanks.

Chris

rochester!kodak!ektools!barrett
barrrett@ektools