home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CASIOCOL.ZIP / KRILE1C.ZIP / SOURCE.ZIP / TEST2.ASI < prev    next >
Text File  |  1997-12-05  |  120b  |  10 lines
  1. a$="Command|frog"
  2. a$=ucase$(a$)
  3. input b$;
  4. b=instr(a$,b$)
  5. if b>0 then
  6. print "found"
  7. else
  8. print"not found"
  9. endif
  10.