10 LET[0],10,3,1,4,2
20 S=4
30 F=-1:L=5
40 FOR I=0 TO L-1
50  IF [I]=S THEN F=I:I=L
60 NEXT
70 PRINT "FIND=";F