erase.label:
print cls$ : print "E R A S E"
print
   input "Welcher File soll geloescht werden ? ";filespec$
   filespec$=ucase$(filespec$)
   if filespec$="*.*" or filespec$="M:*.*" or filespec$="A:*.*" \
                      or filespec$="B:*.*" then \
   print in$;" * .* sind nicht erlaubt! "; ni$ : for x=1 to 500 : next : goto menu:
   open filespec$ AS 1 : delete 1
   goto menu:
 in$;" * .* sind nicht erlaubt! "; ni$ : for x=1 to 500 : next : goto menu:
   open filespec$ AS 1 : delete 1