7+[ this is a find$ routine but it doesn't take * or ? +[ : disc error enable 1[:@(0,0)A[ (20)"DIRECTORY CHECKER"P[B#V[:$\[(/b["File name or n to stop ";FIL$:FIL$=(FIL$)2[IF FIL$="N" THEN STOPF["I",1,FIL$K[:Q [ =259R["not found message"S[T[FIL$" IS HERE"U[ V[W[ FIL$="N":d\:n \"not found message"x\FIL$" IS NOT ON THIS DISC"(\=04\[FIL$" IS HERE"U[ V[W[ FIL$="N":d\:n \"not found message"x