PROC INISECDEL
Parameters delit$,inidatei$
Assign #1,inidatei$
Assign #2,"DUMMY.TXT"
RESET #1
REWRITE #2
Whilenot eof(#1)
input #1,zeile$
Print ".";
if equ$(zeile$,delit$)
     whilenot or(equ$(z$,"["),eof(#1))
        input #1,zeile$
        z$=mid$(zeile$,1,1)
        case equ$(z$,"["):print #2,zeile$
        Print ".";
   wend
else
   Print #2,zeile$
   Print ".";
endif
Wend
Close #1
Close #2
copy "Dummy.txt" > inidatei$
Assign #1,"Dummy.txt"
Erase #1
Endproc


declare eintrag$,wahl$,zeile$,z$,inidatei$
Cls
let inidatei$="C:\WINDOWS\TEST.INI"
let wahl$="Schneider" 'dies wäre z.B. der gewählte Abschnitt
let eintrag$="[";wahl$;"]" 'Vorbereiten
INISECDEL eintrag$,inidatei$ 'Löschen
Print " Fertig!"
waitinput