wort$ = Input("Dein Wort:")
Print "Das Wort " + wort + " wurde im Satz gefunden."
WaitKey
End

satz$ = "Hallo. Na du! Hallo! Alles klar? hallo? Na dann nicht!" ;Dein Satz
wort$ = "Hallo"   ;Dein Wort
grosklein% = 0      ;Wenn =1 wird Groß/Kleinschreibung beachtet


If grosklein% = 1 Then
   Repeat
      pos = Instr(satz$,wort$,pos+1)   ;Sucht nach wort$ in satz$ an pos. Pos ist immer die Position des zuletzt gefundenen Wortes +1
      If pos = 0 Then Exit  ;Wenn pos=0 wurde nichts mehr gefunden
      Print "Von "+pos+" bis "+(pos+Len(wort$))+" ("+Mid(satz$,pos,Len(wort$))+")"
      i = i + 1
   Forever
Else
   Repeat
      pos = Instr(Lower(satz$),Lower(wort$),pos+1)
      If pos = 0 Then Exit
      Print "Von "+pos+" bis "+(pos+Len(wort$))+" ("+Mid(satz$,pos,Len(wort$))+")"
      i = i + 1
   Forever
EndIf
Print "Dein Wort wurde "+i+"mal gefunden!"
WaitKey