	REM	FIND
5 	INPUT "FILENAME: ";FILENAME$
	INPUT "What do you want to find";A$
	COUNTER=0
	FILE	FILENAME$
 
10	REM
	READ #1; LAST$, FIRST$, ADDRESS$, CITY$,ZIP$,AREA$,TEL$
	IF LAST$="END" THEN 20
	IF LAST$=A$ OR FIRST$=A$+" " OR ADDRESS$=A$ OR CITY$=A$ \
		OR ZIP$=A$ OR AREA$=A$ OR TEL$=A$ THEN 15
	GOTO 16
15	  PRINT
	PRINT LAST$;"/";FIRST$;TAB(20);ADDRESS$;TAB(42);CITY$;\
		".";ZIP$;TAB(68);TEL$
	PRINT "          This is ";COUNTER+1;"th name on the list":PRINT
16	 COUNTER=COUNTER+1
	GOTO 10

20	REM
	PRINT:PRINT "END OF LIST"
	PRINT "Total ";COUNTER;" names was searched"
	END
FULL, FURTHER PASSES REQUIRED
 READY FOR "SAVE  SWAP DISKETTES AND TYPE CTRL-C
 ILLEGAL EXTENT NUMBER
 R, SEEMED MOST POLITE.