SUB fileexist (filename$, yn%)

'****************************************************************************
'This subroutine checks to see if a given file exists.
'
'Input:
' filename$, the file we are checking on
'
'Output:
' yn%, 1 if the file exists, 0 if it doesn't
'
'Zachary Wolf
'5/28/94
'****************************************************************************

'See if filename$ exists
check$ = DIR$(filename$)

'Return 1 or 0
yn% = 1
IF check$ = "" THEN yn% = 0

END SUB