REM ************** KORRHELP * * * * * * * * * * * * *
REM
LABEL.KORRAUSWAHL:
     print cls$;line$
     print in$;tab(20);"Bestehende Datei bearbeiten";tab(83);ni$
     print line$ : print
   gosub filestart:
     print
     print "Bitte wðhlen Sie aus:":print
     print "< A > ... Datensðtze auswðhlen und in neue Datei schreiben" : print
     print "< K > ... Datensðtze bearbeiten / korrigieren / lóschen   " : print
     print "< M > ... zurôck zum Menô" : print
   korrhelp.wahl:
     antw=inkey
     if antw>90 then antw=antw-32
     if antw=65 then goto LABEL.AUSWAHL:
     if antw=75 then goto LABEL.KORR:
     if antw=77 then goto menu:
   goto korrhelp.wahl:
REM ======================================================= ENDE KORRAUSWAHL
LABEL.AUSWAHL:
print cls$;line$
print in$;tab(20);"Datensðtze auswðhlen und in neue Datei schreiben";tab(83);ni$
print line$ : print
input "Neuen Dateinamen eingeben: ";neuspec$
print : print line$
print in$;tab(17);"<A> ... automatische * <M> ... manuelle Auswahl";tab(83);ni$
print line$
LABEL.1.workauswahl:
w=inkey : c=0
if w=65 then c=1
if w=97 then c=1
if w=77 then c=1
if w=109 then c=1
if c=0 then goto label.1.workauswahl:
create neuspec$ AS 1
for x=1 to felder : feldinhalt$(x)=feldname$(x) : next
gosub satzauf.disk:
sourcefilenum=2
open filespec$ AS 2
gosub satzvon.disk:
satz=0
if w=65 OR w=97 then goto LABEL.AUTOMATIK: ELSE goto LABEL.MANUELL:
rem ==================
LABEL.MANUELL:
LABEL.workauswahl:
dateiende=0
gosub satzvon.disk:
if dateiende=1 then close 2 : put 1,26 : close 1: goto menu:
gosub satzauf.moni:
print : print line$
print in$;"<LEERTASTE>...nðchsten Satz * <EXIT>...beenden * <COPY>...Satz kopieren";\
    : print tab(83);ni$
print line$
LABEL.wahlauswahl:
w=inkey
if w=32 then goto label.workauswahl:
if w=27 then close 2 : put 1,26 : close 1 : goto menu:
if w=23 then gosub satzauf.disk: : goto LABEL.workauswahl:
goto LABEL.wahlauswahl:
rem ====================
LABEL.AUTOMATIK:
print cls$
sourcefilenum=2
close 2
print cls$
lab.autom.start:
gosub suchen.feldnamen.label:
print cls$;"Bitte um etwas GEDULD!       DANKE!"
lab.autogefunden:
if gefunden=1 then gosub satzauf.disk: feldinhalt$(suchzahl)=suchbeg$+"X" : \
   : satz=satz-1 : gosub suchen.fortsetzen.label: : goto lab.autogefunden:
if gefunden=0 then close 2 : put 1,26 : close 1 : goto menu:
REM ********
%include korrkorr.lom
: : goto lab.autogefunden:
if gefunden=0 then close 2 : put 1,26 : close 1 : goto menu:
REM ********
%include