18 lines
770 B
Plaintext
18 lines
770 B
Plaintext
100 PROGRAM "Search.bas"
|
|
110 STRING A$(1 TO 55)*8
|
|
120 FOR I=1 TO 55
|
|
130 READ A$(I)
|
|
140 PRINT A$(I);" ";
|
|
150 NEXT
|
|
160 DO
|
|
170 PRINT :INPUT PROMPT "Word to seatch for? (Leave blank to exit) ":S$
|
|
180 LET S$=LCASE$(LTRIM$(RTRIM$(S$))):LET FOUND=0
|
|
190 IF S$="" THEN EXIT DO
|
|
200 FOR I=LBOUND(A$) TO UBOUND(A$)
|
|
210 IF A$(I)=S$ THEN LET FOUND=-1:PRINT "Found """;S$;""" at index";I
|
|
220 NEXT
|
|
230 IF NOT FOUND THEN PRINT """";S$;""" not found."
|
|
240 LOOP
|
|
250 DATA foo,bar,baz,quux,quuux,quuuux,bazola,ztesch,foo,bar,thud,grunt,foo,bar,bletch,foo,bar,fum,fred,jim,sheila,barney,flarp,zxc
|
|
260 DATA spqr,wombat,shme,foo,bar,baz,bongo,spam,eggs,snork,foo,bar,zot,blarg,wibble,toto,titi,tata,tutu,pippo,pluto,paperino,aap,noot,mies,oogle,foogle,boogle,zork,gork,bork
|