(set #askdir-help
(cat "You can choice here the directory."))

(set #copyfiles-help
(cat "Es wird kopiert."))

(set #COPVERZ (cat "\nWere do you like to install the File Cutter?\n\nI craete a new directory."))
(set #COPYFiles (cat "\n Copy files.\n\n"))

(Procedure Inst_PatternFiles
 (set @Dest_File (tackon @Ziel @Dest))
 (if                                      	; Verzeichnis erzeugen
  (= (exists @Dest_File) 0)
  (makedir (@Dest_File))
 )
 (set @anzeige (cat "Copy "@FName" from "@SOURCE" \nto "@Dest_File))
 (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File))
)

(complete 0)

(set @default-dest
 (askdir
  (prompt  #COPVERZ)
  (help    #askdir-help)
  (default "")
 )
)

(if
 (= (exists @default-dest) 0)
 (makedir @default-dest)
)

(set @Ziel (tackon @default-dest "FileCutter"))
(if
 (= (exists @Ziel) 0)
 (makedir (@Ziel))
)

(complete 20)

(askdisk
 (prompt "\n\n Please insert Disk File Cutter v1.0")
 (help #askdir-help)
 (dest "File Cutter v1.0")
)

(complete 60)

(
 (set @Source "")
 (set @Dest "")
 (set @Pattern "#?")
 (set @Size 0)
 (Inst_PatternFiles)
)

(complete 100)