CLS
INPUT A$
L=LEN(A$)
A$=LEFT$(A$,L-1)+" "
J=1
INPUT B$
FOR I = 1 TO L
 IF MID$(A$,I,1)=" " THEN 
  S=S+1
  IF MID$(A$,J,I-J)=B$ THEN PRINT S:F=1
  J=I+1
 END IF
NETX I
IF F=0 THEN PRINT L
END