Sub MAIN
  Dim Befehl$(500)
  anz = 0
  Open "Pascal.txt" For Input As #1
  While Not Eof(1)
    anz = anz + 1
    Line Input #1, Befehl$(anz)
  Wend
  Close #1
  BearbeitenAllesMarkieren
  BearbeitenTextmarke "Marke", .Hinzufügen
  MarkierungArt 1
  While TextmarkenVergleichen("\Sel", "Marke") = 6 \
  		Or TextmarkenVergleichen("\Sel", "Marke") = 8
    MarkierungAktuellWort
    a$ = UCase$(Markierung$())
    If Not(a$ = "." Or a$ = "," Or a$ = ":" Or a$ = ";") Then
      For i = 1 To anz
        If a$ = UCase$(Befehl$(i)) Then
          Fett 1
          Schriftart "Courier New", 10
          Einfügen Befehl$(i)
          i = anz
        EndIf
      Next i
    EndIf
	WortRechts
  Wend
  BearbeitenGeheZu "Marke"
  BearbeitenTextmarke "Marke", .Löschen
End Sub