** SEARCH.BAS * Created for CodeWorks Magazine ** Adapted for Tandy 600 by Dave Thomas **) I P:SP$SP$" ":: I P:DA$DA$"-":b: ,: (DA$,, )" The CodeWorks "(DA$,,!); ,:"S T R I N G S E A R C H" ,:"Search for Strings in other Programs" DA$;  ,:"Program to search for strings in other programs."F  ,:"The Target program must be stored in ASCII format."Q  DA$;  ,:SP$;: ,: "Enter target program name: ";PN$  PN$"Q" PN$"q"   ,:SP$;:  ,: "Enter string to be found: ";SS$  PN$ AS 1  () 4  #,TX$+ C (TX$)M " (TX$,C,(SS$))SS$ (U $ C_ & ~ ( I : I,: SP$;: *  , : : SS$;: :" found in" , TX$ ."Continue/Stop/Print, C/S/P ";: J 0 " "# 2 Y$"C" Y$"c"  : Y$"P" Y$"p" <: + 4 o 6"Finished with program "PN$:"Search another program: [y/n] ";y 8 J : Y$"Y" Y$"y"  : Y$"N" Y$"n" : 8 < FL > : @ > "Search of program "PN$" for "SS$ @ B TX$ D FFL H* JY$$():