REM Copyright 2003 (C) US Internet Technologies, Inc.
REM
REM Sample BASIC.  Create an ASCII sequntial file, then read it back and print when we 
REM find the name Mike, when done delete the database via inline C
REM 

REM open and create database.dat and add the names to the database

	open "database.dat" for output as 1
	print #1,"Ken"
	print #1,"Mike"
	print #1,"Rachel"
	print #1,"Shane"
	print #1,"Karl"
	print #1,"Herb"
	print #1,"Nancy"
	print #1,"Ron"
	close 1

	
REM	open database.dat and read until the end of the file.  If we find Mike, print

	open "database.dat" for input as #1
	while not eof(1)
              input #1,a$
	      if instr(1,a$,"Mike") <> 0 then
                 print "Found ";a$
	      end if
	wend
	close 1

C       remove('database.dat');