rem * * * * KORRKORR.LOM * * * *
rem
LABEL.korr:
     gosub label.olddatei:
     sourcefilenum=2
     open filespec$ AS 1
     open oldfile$ AS 2
     for x=1 to felder : feldinhalt$(x)=feldname$(x) : next
     gosub satzauf.disk:
     gosub satzvon.disk:
rem =================
korr.weiter:
     gosub satzvon.disk:
           if dateiende=1 then close 2 : put 1,26 : close 1 : goto menu:
           gosub satzauf.moni:
     print : print in$;
print "  <LEERTASTE>...nðchsten Satz * <AUSBL>...Satz lóschen * <^>...Korrektur   "
print "  <EXIT>...beenden                   *                <STOP>...abbrechen   "
korrwahl1:
       w=inkey
if w=3 then goto korr.stop:           :REM STOP
if w=27 then goto korr.ende:          :REM EXIT
if w=21 then goto korr.weiter:        :REM AUSBL
if w=32 then goto korr.ohnekorr:      :REM SPACE
if w=94 then goto korrigieren:        :REM ^
goto korrwahl1:
rem ==================================
   korr.stop:
           delete 1
           x=rename(filespec$,oldfile$)
           close 2
           goto menu:
rem ==================================
   korr.ende:
       gosub satzauf.disk:
           IF END #2 then korr.endeende
           while dateiende=0
            gosub satzvon.disk:
            gosub satzauf.disk:
           wend
   korr.endeende:
   put 1,26
   close 1,2
   goto menu:
rem =================================
korr.ohnekorr:
gosub satzauf.disk:
goto korr.weiter:
rem =================================
korrigieren:
print in$;"  <RETURN>...Feld bleibt * <AUSBL>...Feld lóschen * <EINBL>...Feld neu";
print tab(78);ni$  : print
for x=1 to felder
    print in$;feldname$(x);tab(28);ni$;": ";
    korrchoice:
    w=inkey
    if w=13 then print feldinhalt$(x) : goto next.feld:
    if w=21 then print : feldinhalt$(x)="" : goto next.feld:
    if w=23 then input feldinhalt$(x)   : goto next.feld:
    goto korrchoice:
    next.feld:
next
gosub satzauf.disk:
goto korr.weiter:
rem =============================
.feld:
    goto