Sub CopyDir(src$, dest$)
Local file$, subdir$, dcount, i
Local string sdirs$(200) length 64
 Mkdir dest$
 file$ = Dir$(src$ + "/*", FILE)
 Do While file$ <> ""
   Print " copy file: ";dest$ + "/" + file$
   Copy src$ + "/" + file$ To dest$ + "/" + file$
   file$ = Dir$()
 Loop
 dcount = 0
 subdir$ = Dir$(src$ + "/*", DIR)
 Do While subdir$ <> ""
   If subdir$ <> "." And subdir$ <> ".." Then
     Inc dcount
     sdirs$(dcount) = subdir$
     subdir$ = Dir$()
   EndIf
 Loop
 For i = 1 To dcount
    Print " copy dir: ";src$ + "/" + sdirs$(i)
    CopyDir(src$ + "/" + sdirs$(i), dest$ + "/" + sdirs$(i))
 Next i
End Sub

'Drive "a:"
Chdir "\"
Print "You are hier: ";Cwd$
Input "Directory to delete: ",Path$
If Path$="" Then End
If MM.Info(exists dir path$) Then
 Print " Ready to erase directory: "Chr$(34);path$;Chr$(34);
 Input "now? (y/n/q(uiet))",yn$
 If yn$="y" Then DeleteDir(Path$,0)
 If yn$="q" Then DeleteDir(Path$,1)
Else
 Print "Directory: "Chr$(34);path$;Chr$(34);" not found."
EndIf

End '***************************

Sub DeleteDir(path$, quiet)
Local string file$, subdir$, yn$

If MM.Info(exists dir path$) Then
   file$ = Dir$(path$ + "/*", FILE)
   Do While file$ <> ""
       Print " deleting file: ";path$ + "/" + file$
       Kill path$ + "/" + file$
       file$ = Dir$()
   Loop
L1:
    subdir$ = Dir$(path$ + "/*", DIR)
    If subdir$ = "" Then
       GoTo Lend
    EndIf
    If subdir$ <> "." And subdir$ <> ".." Then
       DeleteDir(path$ + "/" + subdir$,quiet)  ' rekursiv
    EndIf
   GoTo l1'replacement for do/loop
Lend:
   Print " Remove the directory: ";MM.Info(drive);"/"; path$;
   If Not quiet Then
     Input " now? (y/n/x)",yn$
   Else
     Print
     yn$="y"
   EndIf
   If LCase$(yn$) = "y" Then Rmdir path$
   If LCase$(yn$) = "x" Then End
Else
   Print "Directory: "Chr$(34);path$;Chr$(34);" not found."
EndIf
End Sub

Do
   subdir$ = Dir$(path$ + "/*", DIR)
   If subdir$ = "" Then
      Exit Loop
   EndIf
   ...
LOOP