home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / ace_basic / ace / include / fexists.h < prev    next >
Text File  |  1977-12-31  |  335b  |  20 lines
  1. { FEXISTS(x$) -- returns true if file exists otherwise false.
  2.  
  3.   Author: David J Benn
  4.     Date: 28th February 1993,
  5.       2nd January 1994 }
  6.         
  7. sub fexists(x$)
  8.   if x$="" then 
  9.     fexists=0
  10.   else
  11.     open "I",#255,x$
  12.     if handle(255) <> 0& then 
  13.       close #255
  14.       fexists=-1
  15.     else 
  16.       fexists=0
  17.     end if
  18.   end if
  19. end sub
  20.