home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 10 / amigaformatcd10.iso / -readerstuff- / peter_hutchison / star-drivers.lzx / Install < prev    next >
Text File  |  2002-01-09  |  21KB  |  678 lines
  1. ; $VER: Star Driver Disk (14.09.93)
  2. ; Copyright (C)1993 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6. ;**** English text
  7.  
  8. (set #welcome
  9. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  10.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  11. ))
  12. (set #welcome-pirate
  13. (cat "\nWelcome to the Star Driver Disk!\n"
  14.     "Copyright (C)1993 by Wolf Faust\n\n"
  15.     "\n"
  16.     "This disk contains the latest Amiga Workbench drivers for Star "
  17.     "printers."
  18. ))
  19.  
  20. (set #missing-env-kick
  21. (cat "\nThere is no ENV: directory available for storing the driver environment settings.\n"
  22.     "Star drivers store settings like emulation and brightness in the ENV: directory. "
  23.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  24.     "It seems you have altered the startup-sequence. Please change the startup-sequence "
  25.     "and re-install.\n\n"
  26. ))
  27.  
  28. (set #ask-sys
  29. (cat "\nIn which disk or drawer should the Star printer driver be installed?"
  30. ))
  31.  
  32. (set #ask-sys-help
  33. (cat "\nThis section lets you choose in which drawer or on which disk the "
  34.     "Star printer driver should be installed. "
  35.     "The driver should normally go into the \"devs:printers\" directory "
  36.     "of your system disk.\n\n"
  37.     @askdir-help
  38. ))
  39.  
  40. (set #abortmsgdriver
  41. (cat "\nThis installation requires more than 43000 bytes free on the volume "
  42.     "where you wish to install the printer driver. Please make this space "
  43.     "available and then re-install.\n\nIn case you want to update your Star driver, "
  44.     "try continue installing by selecting CONTINUE.\n\n"
  45. ))
  46.  
  47. (set #abortmsgdriver-help
  48. (cat "\nThis installation requires more than 43000 bytes free on the volume "
  49.     "where you wish to install the printer driver. In case a Star driver has been "
  50.     "installed allready, you may try to continue installing and ignore "
  51.     "this warning. In case you continue, you do risk possible installation errors "
  52.     "if the disk space required by the old driver is smaller than the installed one.\n"
  53. ))
  54.  
  55. (set #abortmsgdriver-yes
  56. (cat "Continue"
  57. ))
  58. (set #abortmsgdriver-no
  59. (cat "Quit"
  60. ))
  61.  
  62. (set #cfm-delete
  63. (cat "\n\nCan the old Star printer driver settings be deleted?"
  64. ))
  65. (set #cfm-delete-help
  66. (cat "\nIt seems you have allready installed a Star printer driver. "
  67.     "You must delete the settings made for the previous driver before "
  68.     "installing a new driver.\n\n"
  69. ))
  70. (set #cfm-delete-1
  71. (cat "Yes, kill'm"
  72. ))
  73. (set #cfm-delete-2
  74. (cat "No"
  75. ))
  76. (set #cfmdelete
  77. (cat "You did not allow me to delete your old driver settings! "
  78.     "Sorry, I'm unable to install a driver without erasing your "
  79.     "previous settings. This is done for your secure. "
  80.     "In case you decided to delete the settings, try installing again!\n\n"
  81. ))
  82.  
  83. (set #ask-prefs
  84. (cat "\nIn which disk or drawer should the printer preferences program be installed?"
  85. ))
  86.  
  87. (set #ask-prefs-help
  88. (cat "\nThis section lets you choose in which drawer or on which disk the "
  89.     "Star printer driver preferences program should be installed. "
  90.     "These should normally go into the \"sys:prefs\" directory of your system "
  91.     "disk.\n\n"
  92.     @askdir-help
  93. ))
  94.  
  95. (set #abortmsgpref
  96. (cat "\nThis installation requires more than 75000 bytes free on the volume "
  97.     "where you wish to install the preferences program. Please make this space "
  98.     "available and then re-install. Floppy users may install the "
  99.     "Star preferences program on an empty floppy to save disk space on "
  100.     "the system disk.\n\nIn case you want to update StarPref, "
  101.     "try continue installing by selecting CONTINUE.\n\n"
  102. ))
  103. (set #abortmsgpref-yes
  104. (cat "Continue"
  105. ))
  106. (set #abortmsgpref-no
  107. (cat "Quit"
  108. ))
  109.  
  110. (set #warn-env-kick
  111. (cat "\nNote: Please make sure your ENV: directory is assigned to a non volatile "
  112.     "disk in your \"s:startup-sequence\" or you will lose your driver settings "
  113.     "when turning off your computer. So please check your startup-sequence after "
  114.     "finishing this installation and change it if required.\n\n"
  115.     "Note: Unchanged standard Workbench 1.3.x startup-sequences do NOT assign "
  116.     "ENV: to a non-volatile disk and must be altered.\n"
  117. ))
  118.  
  119. (set #w-emul
  120. (cat "What's your printers emulation?"
  121. ))
  122. (set #w-emul-help
  123. (cat "\nStar disk includes several printer drivers for various "
  124.     "printer emulations. "
  125.     "Look in your printer's user manual to find the emulations "
  126.     "supported by your printer.\n\n"
  127.     @askchoice-help
  128. ))
  129.  
  130. (set #finalmsg1
  131. (cat "The driver you requested has been installed. The name of the driver is\n\""
  132. ))
  133. (set #finalmsg2
  134. (cat "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  135.     "The Star driver preferences program has been saved \"StarPref\" "
  136.     "and can now be used to adjust the driver to suit your needs.\n"
  137. ))
  138. (set #finalmsg2old
  139. (cat "\"\nand should now be selected in the Workbench preferences program.\n\n"
  140.     "Note: the driver was made for use with Workbench 2.04 or higher!!!\n"
  141.     "You may use the driver with Workbench 1.3 but with limited quality and "
  142.     "and functions!!"
  143. ))
  144. (set #wrongdither
  145. (cat "\n\nWARNING: Your Workbench preferences are set-up WRONG!\n\n"
  146.     "Please select \"Ordered\" dithering in preferences "
  147.     "(in \"PrinterGfx\"). I will now try to start Workbench preferences for you."
  148. ))
  149. (set #selectmsg
  150. (cat "Driver installed. Please select the driver now in Workbench preferences:\n"
  151. ))
  152.  
  153. ;*** German
  154. (if (= @language "deutsch")
  155. (
  156.     (set #welcome
  157.     (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  158.         "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  159.     ))
  160.     (set #welcome-pirate
  161.     (cat "\nWillkommen zur Star Micronics Treiberdiskette\n"
  162.         "Copyright (C)1993 Wolf Faust\n\n"
  163.         "Diese Diskette enthält Amiga Workbench Druckertreiber für Star Drucker\n\n"
  164.     ))
  165.     (set #missing-env-kick
  166.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  167.         "Die Star Treiber speichern alle Einstellungen in dieser Schublade. "
  168.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  169.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  170.         "Startup-Sequence.\n"
  171.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren von "
  172.         "neuem!\n\n"
  173.     ))
  174.     (set #ask-sys
  175.     (cat "\nIn welche Disk oder Schublade soll der Star Druckertreiber kopiert werden?"
  176.     ))
  177.     (set #ask-sys-help
  178.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  179.         "Schublade der Star Druckertreiber kopiert werden soll. Normalerweise sollten "
  180.         "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  181.         @askdir-help
  182.     ))
  183.     (set #abortmsgdriver
  184.     (cat "\nDer Druckertreiber benötigt ca. 43000 Bytes an freiem Speicher "
  185.         "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  186.         "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  187.         "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  188.         "Sie können dennoch versuchen, einen bereits installierten Star Treiber "
  189.         "mit WEITER durch einen neuen Treiber zu ersetzen. "
  190.     ))
  191.  
  192.     (set #abortmsgdriver-help
  193.     (cat "\nDer Druckertreiber benötigt ca. 43000 Bytes an freiem Speicher "
  194.         "auf dem von Ihnen angegebenen Datenträger. Sollte bereits ein Treiber installiert "
  195.         "sein, so löschen Sie diesen bitte, um freien Platz zu schaffen.\n\n"
  196.         "Sie können dennoch versuchen, einen bereits installierten Star Treiber "
  197.         "mit WEITER durch einen neuen Treiber zu ersetzen, jedoch riskieren Sie "
  198.         "eine mögliche Fehlermeldung, weil der Platz dennoch nicht reichte.\n"
  199.     ))
  200.  
  201.     (set #abortmsgdriver-yes
  202.     (cat "Weiter"
  203.     ))
  204.  
  205.     (set #abortmsgdriver-no
  206.     (cat "Abbrechen"
  207.     ))
  208.  
  209.     (set #cfm-delete
  210.     (cat "\n\nKönnen die alten Star Voreinstellungen gelöscht werden?"
  211.     ))
  212.     (set #cfm-delete-help
  213.     (cat "\nEs scheint, Sie hatten bereits einmal einen Star-Treiber "
  214.         "installiert. Sie müssen die Voreinstellungen des alten Treibers "
  215.         "löschen, bevor ein neuer Treiber installiert werden kann.\n\n"
  216.     ))
  217.     (set #cfm-delete-1
  218.     (cat "Ja, löschen"
  219.     ))
  220.     (set #cfm-delete-2
  221.     (cat "Nein"
  222.     ))
  223.     (set #cfmdelete
  224.     (cat "Tut mir leid, aber ohne das Löschen Deiner alter Voreinstellungen "
  225.         "kann ich keinen neuen Treiber installieren. Dies dient der "
  226.         "Datensicherheit. Sollten Sie sich anders entscheiden, dann rufen "
  227.         "Sie bitte das Installationsprogramm erneut auf!\n\n"
  228.     ))
  229.  
  230.  
  231.     (set #ask-prefs
  232.     (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  233.         "(engl. Preferences) kopiert werden?"
  234.     ))
  235.     (set #ask-prefs-help
  236.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  237.         "Schublade das Star Voreinsteller-Programm kopiert werden soll. "
  238.         "Normalerweise sollten Sie hierzu die Schublade \"Sys:prefs\" wählen.\n\n"
  239.         "Besitzen Sie keine Festplatte, können Sie dieses Programm auf "
  240.         "eine leere Diskette installieren, um Platz auf der Systemdiskette zu sparen.\n\n"
  241.         @askdir-help
  242.     ))
  243.     (set #abortmsgpref
  244.     (cat "\nDas Star Programm für die Voreinstellungen benötigt ca. 75000 Bytes "
  245.         "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  246.         "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  247.         "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  248.         "eine Installation! Diskettenbenutzer können das Voreinstellungsprogramm auch "
  249.         "auf eine leere Diskette installieren.\n\nSollte StarPref auf Ihrem System "
  250.         "schon installiert sein, können Sie mit WEITER versuchen, StarPref zu erneuern.\n"
  251.     ))
  252.     (set #abortmsgpref-yes
  253.     (cat "Weiter"
  254.     ))
  255.     (set #abortmsgpref-no
  256.     (cat "Abbrechen"
  257.     ))
  258.  
  259.     (set #warn-env-kick
  260.     (cat "\nBitte versichern Sie sich, daß die Inhalte der Env:-Schublade bei Ihnen "
  261.         "nicht durch Ausschalten des Rechners verloren gehen. Env: sollte nicht "
  262.         "einem Verzeichnis im Speicher (Ram Disk) Ihres Rechners zugewiesen sein.\n\n"
  263.         "Achtung: die standard Startup-Sequence der Commodore Workbench 1.3 "
  264.         "weist ENV: einem flüchtigen Speicher zu und muß daher geändert werden!\n"
  265.     ))
  266.     (set #w-emul
  267.     (cat "Was für einen Drucker besitzen Sie?"
  268.     ))
  269.     (set #w-emul-help
  270.     (cat "\nDiese Diskette enthält Druckertreiber für verschiedene Star Drucker. "
  271.         "Bitte lesen Sie Ihr Druckerhandbuch für Angaben zum Druckertyp.\n\n"
  272.         @askchoice-help
  273.     ))
  274.     (set #finalmsg1
  275.     (cat "Der Treiber wurde installiert unter dem Namen\n\""
  276.     ))
  277.     (set #finalmsg2
  278.     (cat "\"\nund sollte jetzt in dem \"Printer\"-Programm der Workbench eingestellt werden.\n"
  279.         "Das Programm für die Voreinstellungen des Treibers wurde unter den Namen "
  280.         "\"StarPref\" gespeichert und sollte jetzt  zur genaueren Einstellung benutzt werden.\n"
  281.     ))
  282.     (set #finalmsg2old
  283.     (cat "\"\nund sollte jetzt in dem \"Printer\"-Programm der Workbench eingestellt werden.\n"
  284.         "Bitte beachten Sie, daß der Treiber nur eingeschränkt benutzbar ist unter "
  285.         "Workbench 1.3. Installieren Sie den Treiber erneut, sollten Sie Ihr System auf Workbench 2.04 oder neuer aufrüsten. "
  286.         "Sie kommen dann in den Genuß der vollen Leistung des Treibers.\n"
  287.     ))
  288.     (set #wrongdither
  289.     (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  290.         "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  291.         "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  292.         "Programms. Zur Erleichterung und zur Sicherheit wird das Programm "
  293.         "für die Voreinstellungen jetzt gestartet..."
  294.     ))
  295. ))
  296.  
  297. (welcome #welcome)
  298. (message #welcome-pirate)
  299.  
  300. (complete 2)
  301. ; **** Install printer driver?
  302. (set @default-dest "")
  303. ; find the devs:printers directory
  304. (set studdisk "Devs:Printers")
  305. (if (= @user-level 2)
  306. (
  307.     (set studdisk (askdir (prompt #ask-sys)
  308.         (help #ask-sys-help)
  309.         (default studdisk))
  310.     )
  311. ))
  312. (complete 5)
  313. (if (not (exists studdisk))
  314. (
  315.     (set studdisk (askdir (prompt #ask-sys)
  316.         (help #ask-sys-help)
  317.         (default studdisk))
  318.     )
  319. ))
  320. (complete 7)
  321.  
  322. ; delete old ENV: and ENVARC: settings
  323. (set n 0 )
  324. (foreach "Env:" "Star#?"
  325. (
  326.     (set n 1)
  327. ))
  328. (if (> n 0)
  329. (
  330.     (if (askbool (prompt (#cfm-delete))
  331.         (help (#cfm-delete-help ))
  332.         (choices #cfm-delete-1 #cfm-delete-2)
  333.         (default 1))
  334.     (
  335.         (set n 0)
  336.         (while (set thisfile (select n  "Beep"
  337.             "Time"
  338.             "ResX"
  339.             "ResY"
  340.             "GAdj"
  341.             "CAdj"
  342.             "MAdj"
  343.             "YAdj"
  344.             "KAdj"
  345.             "KDit"
  346.             "GDit"
  347.             "CDit"
  348.             "MDit"
  349.             "YDit"
  350.             "CDitAlg"
  351.             "GDitAlg"
  352.             "Type"
  353.             "Perf"
  354.             "Mirror"
  355.             "Sep"
  356.             "Magenta"
  357.             "Yellow"
  358.             "Top"
  359.             "Tab"
  360.             "Super"
  361.             "Form"
  362.             "Color"
  363.             "Emu"
  364.             "Strip"
  365.             "GFeed"
  366.             "PageLen"
  367.             "Wrap"
  368.             "" ))
  369.         (
  370.             (set n (+ n 1))
  371.             (if (exists (cat "ENV:Star" thisfile))
  372.             (
  373.                 (delete (cat "ENV:Star" thisfile))
  374.             ))
  375.             (if (>= (/ (getversion) 65536) 37)
  376.                 (if (exists (cat "ENVARC:Star" thisfile))
  377.                 (
  378.                     (delete (cat "ENVARC:Star" thisfile))
  379.                 ))
  380.             )
  381.         ))
  382.     )
  383.     ( ; else
  384.         (abort #cfmdelete)
  385.     ))
  386. ))
  387. (complete 10)
  388.  
  389. ; ask for kind of printer 
  390. (set emul   (askchoice (prompt #w-emul)
  391.     (help #w-emul-help)
  392.         (choices "9 Pin Printer (LC200, ...)"
  393.             "24 Pin Printer (LC24-200, ...)"
  394.             "SJ48 Printer"
  395.             "SJ144 Printer"
  396.         )
  397.         (default 1)
  398. ))
  399. (complete 15)
  400.  
  401. (if (= emul 0)
  402. (  ; 9 pin driver
  403.     (set printerdriver "Star9Plus")
  404.     (set printerpref "StarPref-9pin")
  405.     ; ditherord = halftone 64 shades
  406.     (set ditherord  "8, 8, 144, 160, 152, 128, 108, 92, 100, 124, 216, 224, 232, 176, 36, 28, 20, 76, 208, 248, 240, 168, 44, 4, 12, 84, 184, 200, 192, 136, 68, 52, 60, 116, 104, 88, 96, 120, 148, 164, 156, 132, 32, 24, 16, 72, 220, 228, 236, 180, 40, 0, 8, 80, 212, 252, 244, 172, 64, 48, 56, 112, 188, 204, 196, 140")
  407.     (set adjc "0, 90, 117, 137, 153, 167, 179, 190, 200, 210, 218, 226, 234, 241, 248, 255")
  408.     (set adjm "0, 90, 117, 137, 153, 167, 179, 190, 200, 210, 218, 226, 234, 241, 248, 255")
  409.     (set adjy "0, 90, 117, 137, 153, 167, 179, 190, 200, 210, 218, 226, 234, 241, 248, 255")
  410.     (set adjk "0, 90, 117, 137, 153, 167, 179, 190, 200, 210, 218, 226, 234, 241, 248, 255")
  411.     (set adjg "0, 90, 117, 137, 153, 167, 179, 190, 200, 210, 218, 226, 234, 241, 248, 255")
  412. ))
  413.  
  414. (if (= emul 1)
  415. (  ; 24 pin driver
  416.     (set printerdriver "Star24Plus")
  417.     (set printerpref "StarPref-24pin")
  418.     ; ditherord = halftone dither 64 shades
  419.     (set ditherord  "8, 8, 144, 160, 152, 128, 108, 92, 100, 124, 216, 224, 232, 176, 36, 28, 20, 76, 208, 248, 240, 168, 44, 4, 12, 84, 184, 200, 192, 136, 68, 52, 60, 116, 104, 88, 96, 120, 148, 164, 156, 132, 32, 24, 16, 72, 220, 228, 236, 180, 40, 0, 8, 80, 212, 252, 244, 172, 64, 48, 56, 112, 188, 204, 196, 140")
  420.     (set adjc "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255") ; gamma 32
  421.     (set adjm "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255") ; gamma 32
  422.     (set adjy "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255") ; gamma 32
  423.     (set adjk "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255") ; gamma 32
  424.     (set adjg "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255") ; gamma 32
  425. ))
  426.  
  427. (if (= emul 2) ; WARNING do not change emul without changing emul routine below
  428. (  ; SJ48 driver
  429.     (set printerdriver "Star24Plus")
  430.     (set printerpref "StarPref-24pin")
  431.     ; ditherord = ordered dither 64 shades
  432.     (set ditherord  "8 8  4 236 60 220 8 224 48 208 132 68 188 124 136 72 176 112 36 196 20 252 40 200 24 240 164 100 148 84 168 104 152 88 12 228 52 212 0 232 56 216 140 76 180 116 128 64 184 120 44 204 28 244 32 192 16 248 172 108 156 92 160 96 144 80") ; order 64
  433.     (set adjg "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  434.     (textfile   (dest "Env:StarEmu")
  435.         (append "2"))
  436.     (textfile   (dest "Env:StarSuper")
  437.         (append "ON"))
  438. ))
  439.  
  440. (if (= emul 3) ; WARNING do not change emul without changing emul routine below
  441. (  ; SJ144 driver
  442.     (set printerdriver "StarSJ144")
  443.     (set printerpref "StarPref-SJ144")
  444.     ; ditherord = ordered dither 64 shades
  445.     (set ditherord  "8 8  4 236 60 220 8 224 48 208 132 68 188 124 136 72 176 112 36 196 20 252 40 200 24 240 164 100 148 84 168 104 152 88 12 228 52 212 0 232 56 216 140 76 180 116 128 64 184 120 44 204 28 244 32 192 16 248 172 108 156 92 160 96 144 80") ; order 64
  446.     (set adjc "0 61 88 109 127 143 157 171 183 195 206 217 227 236 246 255")
  447.     (set adjm "0 61 88 109 127 143 157 171 183 195 206 217 227 236 246 255")
  448.     (set adjy "0 61 88 109 127 143 157 171 183 195 206 217 227 236 246 255")
  449.     (set adjk "0 61 88 109 127 143 157 171 183 195 206 217 227 236 246 255")
  450.     (set adjg "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  451.     ; install 256 shades dither
  452.     (copyfiles (source "Star-Drivers:dithers/Hexagonal-Cluster-256.dit")
  453.         (dest "ENV:")
  454.         (newname "StarKDit")
  455.         (files)
  456.         (infos)
  457.         (nogauge))
  458.     (copyfiles (source "Star-Drivers:dithers/Hexagonal-Cluster-256.dit")
  459.         (dest "ENV:")
  460.         (newname "StarCDit")
  461.         (files)
  462.         (infos)
  463.         (nogauge))
  464.     (copyfiles (source "Star-Drivers:dithers/Hexagonal-Cluster-256.dit")
  465.         (dest "ENV:")
  466.         (newname "StarMDit")
  467.         (files)
  468.         (infos)
  469.         (nogauge))
  470.     (copyfiles (source "Star-Drivers:dithers/Hexagonal-Cluster-256.dit")
  471.         (dest "ENV:")
  472.         (newname "StarYDit")
  473.         (files)
  474.         (infos)
  475.         (nogauge))
  476. ))
  477. (complete 20)
  478.  
  479. ; check if enough disk space is available. Check is not 100% accurate! BTN!
  480. (set targetsize (getdiskspace studdisk))
  481. (if (< targetsize 43000)
  482. (
  483.     (if (<> (getdevice studdisk) "RAM")
  484.     (
  485.         (if (not (askbool (prompt (#abortmsgdriver))
  486.             (help (#abortmsgdriver-help ))
  487.             (choices #abortmsgdriver-yes #abortmsgdriver-no)))
  488.         (
  489.             (exit (quiet))
  490.         ))
  491.     ))
  492. ))
  493. (complete 30)
  494. ; *** copy driver to destination
  495. (copyfiles (source (cat "Star-Drivers:drivers/" printerdriver))
  496.     (dest studdisk )
  497.     (infos)
  498.     (files))
  499.  
  500. (complete 40)
  501. ; **** sure we are running under a >= 2.04 ROM???
  502. (if (> (/ (getversion) 65536) 36)
  503. (
  504.     ; **** find the sys:prefs directory
  505.     (set prefdisk ("SYS:Prefs"))
  506.     (if (exists "sys:preferences")
  507.     (
  508.         (set prefdisk ("SYS:Preferences"))
  509.     ))
  510.     (if (exists "SYS:Prefs")
  511.     (
  512.         (set prefdisk ("SYS:Prefs"))
  513.     ))
  514.     (complete 50)
  515.     (set prefdisk (askdir (prompt #ask-prefs)
  516.         (help #ask-prefs-help)
  517.         (default prefdisk))
  518.     )
  519.     (if (not (exists prefdisk))
  520.     (
  521.         (set prefdisk (askdir (prompt #ask-prefs)
  522.             (help #ask-prefs-help)
  523.             (default prefdisk))
  524.         )
  525.     ))
  526.     (complete 60)
  527.     (set targetsize (getdiskspace prefdisk))
  528.     (if (< targetsize 75000)
  529.     (
  530.         (if (<> (getdevice prefdisk) "RAM")
  531.         (
  532.             (if (not (askbool (prompt (#abortmsgpref))
  533.                 (help @askbool-help)
  534.                 (choices #abortmsgpref-yes #abortmsgpref-no)))
  535.             (
  536.                 (exit (quiet))
  537.             ))
  538.         ))
  539.     ))
  540.     (complete 70)
  541.     ; *** copy preferences and .info program to destination
  542.     (copyfiles (source (cat "Star-Drivers:Prefs/" printerpref))
  543.         (dest prefdisk )
  544.         (infos)
  545.         (newname "StarPref")
  546.         (files))
  547.     (complete 75)
  548.     (copyfiles (source "Star-Drivers:Prefs/StarPref.info")
  549.         (dest prefdisk)
  550.         (files)
  551.         (nogauge)
  552.         (infos))
  553.     (complete 80)
  554.     ; make directory for color adjustments
  555.     (if (not (exists (tackon prefdisk "Color-Settings")))
  556.         (makedir (tackon prefdisk "Color-Settings")
  557.             (infos))
  558.     )
  559.     ; make directory for dither adjustments
  560.     (if (not (exists (tackon prefdisk "Dither-Settings")))
  561.         (makedir (tackon prefdisk "Dither-Settings")
  562.             (infos))
  563.     )
  564.     (textfile   (dest "Env:StarGDit")
  565.         (append ditherord))
  566.     (textfile   (dest "Env:StarGAdj")
  567.         (append adjg))
  568.     (complete 85)
  569.     (if (<> emul 2)
  570.     (
  571.         (if (<> emul 3)
  572.         (
  573.             (textfile   (dest "Env:StarCDit")
  574.                 (append ditherord))
  575.             (textfile   (dest "Env:StarMDit")
  576.                 (append ditherord))
  577.             (textfile   (dest "Env:StarYDit")
  578.                 (append ditherord))
  579.             (textfile   (dest "Env:StarKDit")
  580.                 (append ditherord))
  581.         ))
  582.         (textfile   (dest "Env:StarCAdj")
  583.             (append adjc))
  584.         (textfile   (dest "Env:StarMAdj")
  585.             (append adjm))
  586.         (textfile   (dest "Env:StarYAdj")
  587.             (append adjy))
  588.         (textfile   (dest "Env:StarKAdj")
  589.             (append adjk))
  590.     ))
  591.     (complete 90)
  592.     ; **** copy supported ENV: vars to ENVARC:
  593.     (if (>= (/ (getversion) 65536) 37)
  594.     (
  595.         (set n 0)
  596.         (while (set thisfile (select n "Beep"
  597.             "Time"
  598.             "ResX"
  599.             "ResY"
  600.             "GAdj"
  601.             "CAdj"
  602.             "MAdj"
  603.             "YAdj"
  604.             "KAdj"
  605.             "KDit"
  606.             "GDit"
  607.             "CDit"
  608.             "MDit"
  609.             "YDit"
  610.             "CDitAlg"
  611.             "GDitAlg"
  612.             "Type"
  613.             "Perf"
  614.             "Mirror"
  615.             "Sep"
  616.             "Magenta"
  617.             "Yellow"
  618.             "Top"
  619.             "Tab"
  620.             "Super"
  621.             "Form"
  622.             "Color"
  623.             "Emu"
  624.             "Strip"
  625.             "GFeed"
  626.             "PageLen"
  627.             "Wrap"
  628.             "" ))
  629.         (
  630.             (set n (+ n 1))
  631.             (if (exists (cat "ENV:Star" thisfile))
  632.             (
  633.                 (copyfiles (source (cat "ENV:Star" thisfile))
  634.                     (dest "ENVARC:")
  635.                     (nogauge)
  636.                     (files))
  637.             ))
  638.         ))
  639.     ))
  640.     (complete 95)
  641.     (run "Star-Drivers:check")
  642.     (if (not (exists "RAM:StudioTemp"))
  643.     (
  644.         (message #wrongdither)
  645.         (if (exists "sys:prefs/printergfx")
  646.         (
  647.             (run "sys:prefs/printergfx")
  648.         ))
  649.     )
  650.     ( ; else
  651.         (delete "RAM:StudioTemp")
  652.     ))
  653.     (message (cat #finalmsg1
  654.         printerdriver
  655.         #finalmsg2
  656.     ))
  657.     (complete 98)
  658.     (if (exists "sys:prefs/printer")
  659.     (
  660.         (run "sys:prefs/printer")
  661.     ))
  662.     (run (cat "\""
  663.         (tackon prefdisk "StarPref")
  664.         "\""
  665.     ))
  666. )
  667. (
  668.     (message (cat #finalmsg1
  669.         printerdriver
  670.         #finalmsg2old
  671.     ))
  672.     (if (exists "sys:prefs/printer")
  673.     (
  674.         (run "sys:prefs/printer")
  675.     ))
  676. ))
  677. (complete 100)
  678.