#!./yabasic

a=open(peek$("program_file_name"),"r")
while(!eof(a))
   line input #a a$
   l=l+1
wend
close a
if (l<5) exit 1

if (!open(1,peek$("program_file_name"))) exit 1
while(!eof(1))
  input #1 a$
wend
close 1

rem bug from 2.700
a$ = dummy$(add$)
print a$;

rem bug from 2.714 (must be last test)
if (!open(1,"nonexistent.yab")) exit 0
exit 1

end
sub dummy$(add$)
	f = open ("out.dat", "w")
	print #f "tmp"
	close #f
	return ""
end sub


