overkill:
print cls$ : print
print "O V E R K I L L " : print
print "loescht Files vollkommen durch ueberschreiben"
print "des Files und des unbenutzten Spaces der Disc"
print
print
on error goto error.label:
print fisp$; : input "";filespec$
filespec$=ucase$(filespec$)
print : print "Bitte um etwas Geduld!":print
if filespec$=chr$(27) then goto exit:
if filespec$=chr$(77) then goto menu:
open filespec$ AS 1
if end #1 then set.eof:
while not eof%
put 1,79
put 1,86
put 1,69
put 1,82
put 1,75
put 1,73
put 1,76
put 1,76
put 1,32
put 1,119
put 1,97
put 1,115
put 1,32
put 1,105
put 1,116
put 1,33
wend
set.eof:EOF%=TRUE%
delete 1
goto menu:
,32
put 1,119
put 1,97
put 1,115
put 1,32
put 1,105
put 1,116
put 1,33
wend
set