home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / cd / indexcd / bin / sources.lha / sources / GetString.e < prev    next >
Text File  |  1997-02-22  |  639b  |  34 lines
  1. /* GetString.e */
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'ReqTools', 'dos/var'
  5. DEF fh,buf[80]:STRING, myargs[1]:ARRAY OF LONG, rdargs, ret
  6.  
  7. PROC main()
  8.     '$VER: GetString v1.2 (22-02-1997) © by Claudio Buraglio'
  9.     ret := 0
  10.     WriteF(myargs[0])
  11.  
  12.     IF rdargs := ReadArgs('FILE/A,',myargs,NIL)
  13.  
  14.         IF reqtoolsbase := OpenLibrary('reqtools.library', 37)
  15.             RtGetStringA(buf,80,'Please enter the search pattern',0,0)
  16.             IF fh:=Open(myargs[0], NEWFILE)
  17.                 Fputs(fh,buf)
  18.                 Close(fh)
  19.                 ret := 0
  20.             ENDIF
  21.             CloseLibrary(reqtoolsbase)
  22.         ELSE
  23.             WriteF('Could not open reqtools.library!\n')
  24.             ret := 20
  25.         ENDIF
  26.  
  27.     ELSE
  28.         ret := 20
  29.     ENDIF
  30.  
  31.     CleanUp( ret )
  32.  
  33. ENDPROC
  34.