(procedure P_copyparts
 (
  (askdisk (prompt #MSG_INSERTDISK2) (help @askdisk-help) (dest "Flyin´High_Disk2") (assigns))
  (copyfiles (source "Flyin´High_Disk2:") (dest @default-dest) (pattern "archive.lha_part?") (files) (optional fail))
  (complete 8)
  (askdisk (prompt #MSG_INSERTDISK3) (help @askdisk-help) (dest "Flyin´High_Disk3") (assigns))
  (copyfiles (source "Flyin´High_Disk3:") (dest @default-dest) (pattern "archive.lha_part?") (files) (optional fail))
  (complete 14)
  (askdisk (prompt #MSG_INSERTDISK4) (help @askdisk-help) (dest "Flyin´High_Disk4") (assigns))
  (copyfiles (source "Flyin´High_Disk4:") (dest @default-dest) (pattern "archive.lha_part?") (files) (optional fail))
  (complete 20)
  (askdisk (prompt #MSG_INSERTDISK5) (help @askdisk-help) (dest "Flyin´High_Disk5") (assigns))
  (copyfiles (source "Flyin´High_Disk5:") (dest @default-dest) (pattern "archive.lha_part?") (files) (optional fail))
  (complete 26)
  (askdisk (prompt #MSG_INSERTDISK6) (help @askdisk-help) (dest "Flyin´High_Disk6") (assigns))
  (copyfiles (source "Flyin´High_Disk6:") (dest @default-dest) (pattern "archive.lha_part?") (files) (optional fail))
  (complete 32)
  (askdisk (prompt #MSG_INSERTDISK7) (help @askdisk-help) (dest "Flyin´High_Disk7") (assigns))
  (copyfiles (source "Flyin´High_Disk7:") (dest @default-dest) (pattern "archive.lha_part?") (files) (optional fail))
  (complete 38)
  (askdisk (prompt #MSG_INSERTDISK8) (help @askdisk-help) (dest "Flyin´High_Disk8") (assigns))
  (copyfiles (source "Flyin´High_Disk8:") (dest @default-dest) (pattern "archive.lha_part?") (files) (optional fail))
  (complete 44)
  (askdisk (prompt #MSG_INSERTDISK1) (help @askdisk-help) (dest "Flyin´High_Disk1") (assigns))
  (copyfiles (source "Flyin´High_Disk1:") (dest @default-dest) (pattern "archive.lha_part?") (files) (optional fail))
  (complete 50)
 )
)
(procedure P_joinparts
 (
  (run ("join \"%s\" \"%s\" \"%s\" \"%s\" \"%s\" \"%s\" \"%s\" \"%s\" as \"%s\""
   (tackon @default-dest "archive.lha_part1")
   (tackon @default-dest "archive.lha_part2")
   (tackon @default-dest "archive.lha_part3")
   (tackon @default-dest "archive.lha_part4")
   (tackon @default-dest "archive.lha_part5")
   (tackon @default-dest "archive.lha_part6")
   (tackon @default-dest "archive.lha_part7")
   (tackon @default-dest "archive.lha_part8")
   (tackon @default-dest "archive.lha")))
  (delete (tackon @default-dest "archive.lha_part1"))
  (delete (tackon @default-dest "archive.lha_part2"))
  (delete (tackon @default-dest "archive.lha_part3"))
  (delete (tackon @default-dest "archive.lha_part4"))
  (delete (tackon @default-dest "archive.lha_part5"))
  (delete (tackon @default-dest "archive.lha_part6"))
  (delete (tackon @default-dest "archive.lha_part7"))
  (delete (tackon @default-dest "archive.lha_part8"))
 )
)
(procedure P_unpack
 (
  (run ("Flyin´High_Disk1:lhex >CON: -fw= \"%s\" x \"%s\"" @default-dest (tackon @default-dest "archive.lha")))
  (delete (tackon @default-dest "archive.lha"))
 )
)
(set @app-name "Flyin\'High")
(set @pretend 0)
(if (= @language "deutsch")
 (
  (set #MSG_INSERTDISK1 "Bitte legen Sie die 1.Diskette in ein beliebiges Laufwerk ein.")
  (set #MSG_INSERTDISK2 "Bitte legen Sie die 2.Diskette in ein beliebiges Laufwerk ein.")
  (set #MSG_INSERTDISK3 "Bitte legen Sie die 3.Diskette in ein beliebiges Laufwerk ein.")
  (set #MSG_INSERTDISK4 "Bitte legen Sie die 4.Diskette in ein beliebiges Laufwerk ein.")
  (set #MSG_INSERTDISK5 "Bitte legen Sie die 5.Diskette in ein beliebiges Laufwerk ein.")
  (set #MSG_INSERTDISK6 "Bitte legen Sie die 6.Diskette in ein beliebiges Laufwerk ein.")
  (set #MSG_INSERTDISK7 "Bitte legen Sie die 7.Diskette in ein beliebiges Laufwerk ein.")
  (set #MSG_INSERTDISK8 "Bitte legen Sie die 8.Diskette in ein beliebiges Laufwerk ein.")
  (welcome "Willkommen zur Installation von Flyin\'High.")
  (set #default-dest (askdir (prompt "Bitte geben Sie das Verzeichnis an, in das Flyin\'High installiert werden soll. Es wird dort automatisch eine Schublade mit dem Namen \"Flyin\'High\" erzeugt.") (help @askdir-help) (default @default-dest)))
  (if (< (getdiskspace #default-dest) 25000000)
   (exit ("Sie benötigen mindestens 25 MByte freien Speicherplatz auf dem Datenträger auf dem Flyin\'High installiert werden soll. Die Installation kann in \"%s\" nicht durchgeführt werden." #default-dest) (quiet))
   (
    (set @default-dest (tackon #default-dest "Flyin\'High"))
    (makedir @default-dest (infos))
    (complete 2)
    (run "run >nil: Flyin´High_Disk1:Smily")
    (P_copyparts)
    (working "Füge Archiv zusammen.")
    (P_joinparts)
    (complete 52)
    (working "Entpacke Archiv. Dieser Vorgang kann lange Zeit in Anspruch nehmen. Bitte haben Sie Geduld.")
    (P_unpack)
    (complete 100)
    (exit ("Die Installation ist abgeschlossen. Alle Dateien befinden sich in \"%s\".\n\nDas P.U.R.E.-Team wünscht Ihnen viel Spaß mit Flyin\'High!" @default-dest) (quiet))
   )
  )
 )
 (
  (set #MSG_INSERTDISK1 "Please insert 1st disk in any drive.")
  (set #MSG_INSERTDISK2 "Please insert 2nd disk in any drive.")
  (set #MSG_INSERTDISK3 "Please insert 3rd disk in any drive.")
  (set #MSG_INSERTDISK4 "Please insert 4th disk in any drive.")
  (set #MSG_INSERTDISK5 "Please insert 5th disk in any drive.")
  (set #MSG_INSERTDISK6 "Please insert 6th disk in any drive.")
  (set #MSG_INSERTDISK7 "Please insert 7th disk in any drive.")
  (set #MSG_INSERTDISK8 "Please insert 8th disk in any drive.")
  (welcome "Welcome to the installation of Flyin\'High.")
  (set #default-dest (askdir (prompt "Please select the directory, where Flyin\'High should be installed. A drawer named \"Flyin\'High\" will be created.") (help @askdir-help) (default @default-dest)))
  (if (< (getdiskspace #default-dest) 25000000)
   (exit ("You need at least 25 MByte of free space on the device where Flyin\'High should be installed. The installation on \"%s\" cannot be performed." #default-dest) (quiet))
   (
    (set @default-dest (tackon #default-dest "Flyin\'High"))
    (makedir @default-dest (infos))
    (complete 2)
    (run "run >nil: Flyin´High_Disk1:Smily")
    (P_copyparts)
    (working "Joining archive together.")
    (P_joinparts)
    (complete 52)
    (working "Unpacking archive. This can take a long time. Please be patient.")
    (P_unpack)
    (complete 100)
    (exit ("The installation is now complete. All files are located in \"%s\".\n\nThe P.U.R.E.-Team wishes you a lot of fun with Flyin\'High!" @default-dest) (quiet))
   )
  )
 )
)