rename.label:
   print cls$:  print :print "R E N A M E"
   print
   input "Welcher File soll umbenannt werden?  ";alt$
   if alt$=chr$(27) then goto exit:
   if alt$="M" OR alt$="m" then goto menu:
   input "Bitte geben Sie den neuen Namen ein: ";neu$
   if neu$=chr$(27) then goto exit:
   if neu$="M" OR neu$="m" then goto menu:
   r%=rename(neu$,alt$)
   if r%=0 then print bel$;in$;" E R R O R : Bitte nocheinmal! ";ni$: \
      for x=1 to 500 : next : goto rename.label:
   goto menu:


 pr