Help! ARP functions from BASIC

Article View: comp.sys.amiga.tech

Article #11132

Back to comp.sys.amiga.tech Previous Next

#11132

From: Chris Barrett
Date: Tue, 24 Jan 1989 04:05

38 lines
1235 bytes

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

Technical Details

Message-ID: <1714@ektools.UUCP>

Path:

arc1-ca.pugleaf.net!utzoo!attcan!uunet!lll-winken!ncis.llnl.gov!helios.ee.lbl.gov!pasteur!ames!mailrus!cornell!rochester!kodak!ektools!barrett

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!lll-winken!ncis.llnl.gov!helios.ee.lbl.gov!pasteur!ames!mailrus!cornell!rochester!kodak!ektools!barrett
From: barrett@ektools.UUCP (Chris Barrett)
Newsgroups: comp.sys.amiga.tech
Subject: Help! ARP functions from BASIC
Keywords: ARP BASIC FileRequest
Message-ID: <1714@ektools.UUCP>
Date: 24 Jan 89 04:05:39 GMT
Organization: Eastman Kodak, Dept. 47, Rochester N.Y.
Lines: 38