10  FILES DS
20  DIM A$[100]
30  DIM B$[100]
40  PRINT "S STR =";
50  PRINT #1;CTL(24)
60  LINPUT A$
70  IF A$="" THEN 160
80  A$=UOS$(A$)
90  IF  END #1 THEN 40
100  LINPUT #1;B$
110  B$=UOS$(B$)
120  IF POS(B$,A$) THEN 140
130  GOTO 90
140  PRINT B$
150  GOTO 90
160  END 
