fword.label:
fwort.text: : print cls$
print "---------------------------------------------"
print "FINDWORD . COM       Version 1.0   1987/07/25"
print "sucht ein bestimmtes  Wort  in  einer  Datei!"
print "---------------------------------------------"
input "In welcher Datei soll gesucht werden ? ";filename$
print "Suchbegriff mit Leerstellen davor und danach ==> EINZELNES WORT!"
print "Suchbegriff ohne Leerstellen davor/danach    ==> WORT u. WORTVERBINDNGEN!"
fwort.work: : print
input "Welches Wort soll gesucht werden ? ";LINE fwort$
if filename$="" or fwort$="" then goto fwort.exit:
lwort%=len(fwort$)
DIM gw%(lwort%)
fanzwort=0
print "Ich suche ";fwort$;" ! Nicht ungeduldig werden!"
fanzwort=0
open filename$ AS 1
if end #1 then ende.fwort:
while not eof%
gw%(1)=get(1)
if gw%(1)=26 then goto ende.fwort:
if gw%(1)<>ASC(MID$(fwort$,1,1)) then goto fwort.wende:
for x=2 to lwort%
gw%(x)=get(1)
if gw%(x)<>ASC(MID$(fwort$,x,1)) then goto fwort.wende:
next
fanzwort=fanzwort+1
fwort.wende:
wend
ende.fwort:
eof%=true%
close 1
print
print chr$(7);ucase$(filename$);" enthaelt >> ";fwort$;" << : ";fanzwort;" - mal"
print
fwort.exit:
print : print "Noch ein Wort suchen  (J/N) ? " : antw=inkey
if antw>90 then antw=antw-32
if antw=74 then goto fwort.work: else goto menu:
"Noch ein Wort suchen  (J/N) ? " : antw=inkey
if antw>90 then antw=antw-32
if antw=74