;=======================================================================
; Instalacni soubor pro BD Editor 1.x - $VER: Instalace 1.11 (13.9.1996)
;=======================================================================

; deklarace nekterych hlaseni pro uzivatele

(set select-driver "Vyberte si ovladac tiskarny, ktery chcete instalovat. Pro ukonceni instalace zvolte Konec.")

(set vlozte-KOREKTOR "\n\n\n\n\nVlozte prosim disketu s nazvem KOREKTOR")

(set end-mess "\nDekuji za pozornost.\n")

; Hlavni program

(user 3)

(set src "KOREKTOR:Devs/Printers"
     korektor-name "KOREKTOR"
     @default-dest "BD_Editor:")

(run "resident BD_Editor:C/Delete PURE ADD")

(message (cat
"\nVitejte v instalacnim programu\n\n"
"***  ***     **** ***  * *****  ***  ***  *   *\n"
"*  * *  *    *    *  * *   *   *   * *  * *   *\n"
"***  *  *    ***  *  * *   *   *   * ***  *   *\n"
"*  * *  *    *    *  * *   *   *   * *  * *   *\n"
"***  ***     **** ***  *   *    ***  *  *  *** \n\n\n"
"Tento instalacni program slouzi k instalaci\novladacu tiskaren dodavanych s BD Editorem")
)

(welcome)

(complete 0)

(askdisk
 (prompt vlozte-KOREKTOR)
 (help @askdisk-help)
 (dest korektor-name)
)

; nyni se budou kopirovat knihovny, fonty apod.

(while
 (set volba
  (askchoice
   (prompt select-driver)
   (help @askchoice-help)
   (choices "Konec" "HP DeskJet, Latin2 ROM (9 KB)" "HP DeskJet, puvodni ROM (6 KB)" "IBM ProPrinter (14 KB)" "Star LC 10 (9 KB)" "Star LC24 10 (10 KB)" "Star LC 90 CZ (7 KB)")
;   (choices "Konec" "D100M.ISO_ROM (7 KB)" "EpsonX = 9-jehel univerzalni (50 KB)" "HP DeskJet, Latin2 ROM (9 KB)" "HP DeskJet, puvodni ROM (6 KB)" "IBM ProPrinter (14 KB)" "Star LC 10 (9 KB)" "Star LC24 10 (10 KB)" "Star LC 90 CZ (7 KB)")
  )
 )
 (
 (select volba
  (set drivername "xxxxxxx")
;  (set drivername "D100M.ISO_ROM")
;  (set drivername "EpsonX.grafika")
  (set drivername "HP_DeskJet.Latin-2_ROM")
  (set drivername "HP_DeskJet.puvodni_ROM")
  (set drivername "IBM_ProPrinter.download")
  (set drivername "Star_LC-10.Download")
  (set drivername "Star_LC24-10.download")
  (set drivername "Star_LC90.CZ")
 )
; kopirujeme do ram
 (copyfiles
  (source src)
  (help @copyfiles-help)
  (dest "RAM:")
  (pattern drivername)
 )
; kopirujeme do Fonts:
 (copyfiles
  (source "RAM:")
  (help @copyfiles-help)
  (dest "Devs:Printers")
  (pattern drivername)
 )
; smazani z RAM
 (run ("Delete <NIL: >NIL: RAM:%s" drivername))
 )
)

(complete 100)

; konec instalacniho programu
(exit end-mess)