CLS
SHELL "A:"
SHELL "FORMAT A:"
INPUT "KONEC" ;A$
END