100 PROGRAM "mutatok.bas"
  110 DIM MUTATOK(50)
  120 LET A$="kjare///rgfiuqre---jhdcjh-iqrfb-----ljkwhaefgb5t----j,hdfhjv,jhv--jklhef-----liwefl---.jbv"
  130 LET ALJA,TETEJE=0
  200 DEF KERES(FORRAS$,KERESETT$,REFTOMB)
  205   LET ALJA=LBOUND(TOMB)
  206   LET TETEJE=UBOUND(TOMB)
  210   LET MUTATO=POS(FORRAS$,KERESETT$)
  220   IF MUTATO=0THEN
  230     EXIT DEF
  240   ELSE 
  250     LET TOMB(ALJA)=MUTATO
  260     LET ALJA=ALJA+1
  270     DO 
  280       LET MUTATO=POS(FORRAS$,KERESETT$,MUTATO+1)
  290       IF MUTATO=0THENEXIT DEF
  300       LET TOMB(ALJA)=MUTATO
  310       LET ALJA=ALJA+1
  320     LOOP UNTILALJA>TETEJE
  330   END IF 
  340 END DEF 
 1000 CALL KERES(A$,"---",MUTATOK)