(set language
(askchoice  (prompt "Which language ?")
                (help @askchoice-help)
                (choices "Deutsch" "English")
                (default language))
)

(select language
    
(
    (set #welcome "\nDieses Skript installiert PPS (Power Passwortschutz) auf ihrem AMIGA-System. \n\nPPS © 1998 by TFM .")
    (set #copy1 "\nKopiere pps nach C:\n")
    (set #note "\nAlle Daten wurden kopiert.\nNun fügen SIE ¨C:pps¨ in ihre ¨s:startup-sequence¨ ein\n( VOR ¨C:Loadwb¨ ) ")
    (set #note2"\nBestätigen sie die erste Passwortabfrage mit <ENTER>\nDanach können sie ihr persönliches Passwort angeben.\n") 
    (set #note3"\nDie Freeware Version von PPS V3.0 wurde erfolgreich installiert.\n")
    (set #note4" \nBITTE HABEN SIE VERSTÄNDNIS DAFÜR,\nDAS ICH NICHT DIE VERANTWORTUNG FÜR EVENTUELLE\nSCHÄDEN IRGENDEINER ART DIE DURCH DIE BENUTZUNG DES PROGRAMS ENTSTEHEN, ÜBERNEHMEN KANN.\n\n(Also merken sie sich ihr Passwort bitte gut.)") 
    (set #help1 "\n Dies ist das Programm ¨PPS V3.0¨ ,es ist absolut notwendig..")
    (set #doc "Wohin sollen die Dok-Dateien kopiert werden ?")
    (set #helpfont "Dies sind alle Schriftarten die PPS benötigt. Einige werden sie vielleicht nicht in bestimmten Größen besitzen, und der Font ¨PPS¨ ist unerläßlich für das Programm !")
    (set #copydoc "Welche Dok-Dateien sollen kopiert werden ?")
    (set #fonts "Es werden die Fonts kopiert ...") 
)

(
    (set #welcome "\nThis script will install PPS (Power Passwortschutz) on your Harddisk.\n\nPPS © 1998 by TFM .")
    (set #copy1 "\nCopying pps to C:\n")
    (set #note "Now it`s YOUR turn.\nEdit your ¨s:startup-sequence¨ and type in ¨C:pps¨. \n( BEFORE ¨C:Loadwb¨ )")
    (set #note2 "\nConfirm the first question for a password with <ENTER>\nHereafter you can specify your own password.") 
    (set #note3"\nThe Freeware Version of PPS V3.0 was installed successfully.\n")
    (set #note4" \nPLEASE UNDERSTAND,\nTHAT I CAN`T TAKE RESPONSE FOR ANY\nKIND OF DAMAGE CAUSED THROUGH THE USE OF THIS PROGRAM\n\n(So PLEASE remember your password.)") 
    (set #help1 "\n This is the executable ¨pps¨ ,it is absolutly necessary.")
    (set #doc "Where should the doc-files be stored ?") 
    (set #helpfont "These are all the fonts needed by PPS. You will probaly have some, but perhaps not in these sizes. And the font ¨PPS¨ is absolutly necessary !")
    (set #copydoc "What doc-files should be copied ?")
    (set #fonts "Copying the fonts ...")
)
)


(message #welcome)

(complete 0)
(copyfiles
     (prompt #copy1)
     (help #help1)
     (source "pps")
     (dest "C:")
     (confirm)

)
(complete 50)
(copyfiles
     (prompt #fonts)
     (source "fonts")
     (dest "Fonts:")
     (help #helpfont)
     (confirm)
     (all)
)

(complete 75)
(set DocPath (askdir (prompt #doc)
                                   (help @askdir-help)
                                   (default @default-dest)
                          )
)
(copyfiles
     (prompt #copydoc)  
     (source "Doc")
     (dest DocPath)
     (help @copyfiles-help)
     (confirm)
     (all) 
)
(complete 100)
(message #note)
(message #note2)
(message #note3)
(message #note4)
(exit (quiet))