home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / misc / studio_update / install-studioupdate < prev    next >
Text File  |  1996-01-12  |  17KB  |  622 lines
  1. ; $VER: StudioUpdate 2.10b (29.12.96)
  2. ; Copyright (C)1992-95 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. (set #waitmsg
  8. (cat "\n\n\n\nWorking. Please wait..."
  9. ))
  10. (set #bad-kick
  11. (cat    "\nYour system software is very old. "
  12.     "You must use at least Kickstart 2.04 for all Studio programs. "
  13. ))
  14. (set #bad-version
  15. (cat    "This update will only update Studio V2.10 and older. "
  16.     "Your Studio disks are version %ld.%ld. Running this update doesn't make sense. "
  17. ))
  18. (set #w-studio
  19. (cat "Select the action(s) to perform."
  20. ))
  21. (set #w-studio-help
  22. (cat "This disk comes with new and additional software for some printers.\n"
  23.     "You can update your current used software update.\n"
  24.     "Or you can update the software and add the additional printer software.\n\n"
  25.     @askchoice-help
  26. ))
  27. (set #w-studio-choices1
  28. (cat "Update Studio driver and printing program"
  29. ))
  30. (set #w-studio-choices2
  31. (cat "And add new Canon BJC 610 software"
  32. ))
  33. (set #w-studio-choices3
  34. (cat "And add new Deskjet 6xx software"
  35. ))
  36. (set #w-studio-choices4
  37. (cat "And add new Deskjet 8xx software"
  38. ))
  39. (set #w-studio-choices5
  40. (cat "And add new Deskjet 1600 software"
  41. ))
  42. (set #abortunpack
  43. (cat "\nError occured while running the installation decompression program. "
  44.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  45. ))
  46. (set #foundstudio
  47. (cat "\nI found your Studio printing program. Can I update the program in the drawer:\n\n%s\n\n"
  48. ))
  49. (set #foundstudiohelp
  50. (cat "When selecting yes, the Studio program will be updated in the location found.\n\n"
  51.     "When selecting no, you will be asked for a Studio filename you want to update\n\n"
  52. ))
  53. (set #ask-studiomod
  54. (cat "\nSelect the disk or drawer the 'Studio' application program is placed in. "
  55. ))
  56. (set #ask-studiomod-help
  57. (cat "You should now select the drawer the 'Studio' application program is placed in. "
  58.     "Usually the program is placed in the Studio drawer and thus the Studio drawer "
  59.     "should be selected.\n\n"
  60.     @askdir-help
  61. ))
  62. (set #nostudiopro
  63. (cat "\nSorry, I can't find the \"Studio\" program. I tried to access %s. "
  64.     "Please check the drawer and program name try installing again. "
  65. ))
  66. (set #updatescan 
  67. (cat "\nI can't find the CMSScan program in your Studio drawer.\n\n"
  68.     "Select YES, if you want to update the CMSScan and CMSEdit program. "
  69.     "You will be asked for a drawer containing the CMSScan program.\n\n"
  70.     "Select NO, if you want to continue the installation without updating "
  71.     "the CMSScan and CMSEdit utilties. "
  72. ))
  73. (set #ask-cmsmod
  74. (cat "\nSelect the disk or drawer the 'CMSScan' program is placed in. "
  75. ))
  76. (set #ask-cmsmod-help
  77. (cat "You should now select the drawer the 'CMSScan' and 'CMSEdit' application program is placed in. "
  78.     "Usually the program is placed in the Studio drawer and thus the Studio drawer "
  79.     "should be selected.\n\n"
  80.     "The programs can be found on the second floppy disk, if Studio was "
  81.     "originaly installed on a floppy disk.\n\n"
  82.     @askdir-help
  83. ))
  84. (set #nocmspro
  85. (cat "\nSorry, I can't find the \"CMSScan\" program. I tried to access %s. "
  86.     "Please check the drawer and program name try installing again. "
  87. ))
  88. (set #ask-prefs
  89. (cat "\nIn which disk or drawer are the Studio printer preferences program(s) installed?"
  90. ))
  91. (set #ask-prefs-help
  92. (cat "\nThis section lets you choose in which drawer or on which disk the "
  93.     "Studio printer driver preferences programs (DeskPref, ...) are installed. "
  94.     "These are normally placed in the \"sys:prefs\" directory of your system "
  95.     "disk.\n\n"
  96.     @askdir-help
  97. ))
  98. (set #nodesk
  99. (cat "If found the DeskDriver printer driver on your system. It seems you used "
  100.     "the DeskDriver for your Deskjet so far. Please note that with this "
  101.     "update Deskjet 6xx/1600 users should use the DeskDriver4C with DeskPref4C.\n\n"
  102.     "Shall I remove the old DeskDriver and DeskPref program before installing "
  103.     "the new DeskDriver4C driver?"
  104. ))
  105. (set #nodeskhelp
  106. (cat "When selecting no, the Studio program will be add the new DeskDriver4C "
  107.     "to your system without deleting the DeskDriver.\n\n"
  108.     "When selecting yes, the old DeskDriver/DeskPref programs are removed "
  109.     "from your system before installing the new driver software for your Deskjet 6xx\n\n"
  110. ))
  111. (set #delenv
  112. (cat "Can I overwrite your old driver settings? I want to overwrite your settings in "
  113.     "order to setup the driver for your printer.\n\n"
  114.     "Note: you can keep your old driver settings if you like. Use the Preset "
  115.     "menu of the preferences program to change the settings to the default "
  116.     "settings anytime later."
  117. ))
  118. (set #delenvhelp
  119. (cat "The installation program wants to setup the default settings for your printer. "
  120.     "In order to do so, your old settings have to be deleted. You can skip overwriting the driver "
  121.     "settings and setup the driver later for your printer using the Preset menu "
  122.     "of the drivers prefences program."
  123. ))
  124. (set #sdelenv
  125. (cat "Can I delete the old settings of your Studio printing program? I want to overwrite your settings in "
  126.     "order to setup Studio for your printer.\n\n"
  127.     "Note: you can keep your old Studio printing program settings if you like. Use the \"Reset To Default\" "
  128.     "menu item of the printing program to change the settings anytime later if required. "
  129. ))
  130. (set #sdelenvhelp
  131. (cat "The installation program wants to setup the default settings for your printer. "
  132.     "In order to do so, your old settings have to be deleted. You can skip overwriting the Studio "
  133.     "settings and setup the printing program later for your printer using the \"Reset To Default\" menu item "
  134.     "of the Studio printing program."
  135. ))
  136. (set #mydisk
  137. (cat "Please insert the disk named\n\n\"StudioDisk_%ld\"\n\nin any drive."
  138. ))
  139.  
  140. (procedure Meter
  141. (
  142.     (set accum    (+ accum addm))
  143.     (complete (/ (* accum 100) total))
  144. ))
  145.  
  146. (complete 0)
  147. ;(message #welcome-pirate)
  148.  
  149. (set total    0)
  150. (set accum    0)
  151. (set addm    0)
  152. (set firstdisk "")
  153. (if (< (/ (getversion) 65536) 37)
  154.     (abort #bad-kick)
  155. )
  156. (if (= (exists "StudioDisk_1:VER") 1)
  157. (
  158.     (set vernum (getversion "StudioDisk_1:VER"))
  159.     (set ver (/ vernum 65536))
  160.     (set rev (- vernum (* ver 65536) ) )
  161.     (if (OR (> ver 2) (> rev 10))
  162.     (
  163.         (abort (#bad-version ver rev))
  164.     ))
  165. ))
  166. (complete 1)
  167. (set studio (askchoice (prompt #w-studio)
  168.     (help #w-studio-help)
  169.     (choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3 #w-studio-choices4 #w-studio-choices5 )
  170.     (default 0)
  171. ))
  172. (working #waitmsg)
  173. (set total 50)
  174. (if (> studio 0)
  175. (
  176.     (set total 100)
  177. ))
  178. (set @default-dest "")
  179. (copyfiles (source "StudioDisk_1:lx")
  180.     (dest "RAM:")
  181.     (nogauge)
  182. )
  183. (set exerr (run "RAM:lx n"))
  184. (if (> exerr 0)
  185. (
  186.     (abort (#abortunpack "-none-"))
  187. ))
  188.  
  189. (set addm 5)
  190. (Meter)
  191. (set studiopath (getenv "StudioPath"))
  192. (set found 1)
  193. (if (> (strlen studiopath) 1)
  194. (
  195.     (if (= (substr studiopath 0 1)  "\"")
  196.     (
  197.         (set studiopath (substr studiopath 1 (- (strlen studiopath) 2)))
  198.     ))
  199.     (if (= (exists studiopath) 1)
  200.     (
  201.         (if (= (fileonly studiopath) "Studio")
  202.         (
  203.             (set found 2)
  204.             (if (askbool (prompt (#foundstudio (pathonly studiopath)))
  205.                 (choices "Yes, update" "No, other drawer")
  206.                 (help (#foundstudiohelp ))
  207.                 (default 1))
  208.             (
  209.                 (set found 0)
  210.             ))
  211.         ))
  212.     ))
  213. ))
  214. (set addm 5)
  215. (Meter)
  216. (if (> found 0)
  217. (
  218.     (if (= found 1)
  219.     (
  220.         (set studiopath (getassign "WORK" "d"))
  221.         (if (= studiopath "")
  222.         (
  223.             (set studiopath (getassign "DH0" "d"))
  224.             (if (= studiopath "")
  225.             (
  226.                 (set studiopath (getassign "DH2" "d"))
  227.                 (if (= studiopath "")
  228.                 (
  229.                     (set studiopath "SYS:")
  230.                 ))
  231.             ))
  232.         ))
  233.         (set studiopath (tackon studiopath "Studio")) 
  234.     ))
  235.     (set studiopath  (askdir (prompt #ask-studiomod)
  236.         (help #ask-studiomod-help)
  237.         (default (pathonly (studiopath)))
  238.     ))
  239.     (set studiopath (tackon studiopath "Studio"))
  240.     (if (<> (exists studiopath) 1)
  241.     (
  242.         (abort (#nostudiopro studiopath))
  243.     ))
  244.     (textfile   (dest "Env:StudioPath")
  245.         (append (cat "\"" studiopath "\"")) )
  246.     (textfile   (dest "Envarc:StudioPath")
  247.         (append (cat "\"" studiopath "\"")) )
  248. ))
  249. (set addm    5)
  250. (Meter)
  251. (working #waitmsg)
  252. (makeassign "STUDIOPARENT" (pathonly (studiopath)))
  253. (set exerr (run (cat "RAM:lx x \"Studio/Studio.pkd\" \"STUDIOPARENT:\"")))
  254. (if (> exerr 0)
  255. (
  256.     (abort (#abortunpack "Studio/Studio.pkd"))
  257. ))
  258. (set addm    20)
  259. (Meter)
  260. (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Output"))
  261. (if (= (exists "STUDIOPARENT:CanonBJC800.output") 1)
  262. (
  263.     (set exerr (run (cat "RAM:lx x \"Output/CanonBJC800.pkd\" \"STUDIOPARENT:\"")))
  264.     (if (> exerr 0)
  265.     (
  266.         (abort (#abortunpack "Output/CanonBJC800.pkd"))
  267.     ))
  268. ))
  269. (if (= (exists "STUDIOPARENT:Fargo_Primera.output") 1)
  270. (
  271.     (set exerr (run (cat "RAM:lx x \"Output/Fargo_Primera.pkd\" \"STUDIOPARENT:\"")))
  272.     (if (> exerr 0)
  273.     (
  274.         (abort (#abortunpack "Output/Fargo_Primera.pkd"))
  275.     ))
  276. ))
  277. (if (= (exists "STUDIOPARENT:Deskjet8xx.output") 1)
  278. (
  279.     (set exerr (run (cat "RAM:lx x \"Output/Deskjet8xx.pkd\" \"STUDIOPARENT:\"")))
  280.     (if (> exerr 0)
  281.     (
  282.         (abort (#abortunpack "Output/Deskjet8xx.pkd"))
  283.     ))
  284. ))
  285. (if (= (exists "STUDIOPARENT:Deskjet6xx.output") 1)
  286. (
  287.     (set exerr (run (cat "RAM:lx x \"Output/Deskjet6xx.pkd\" \"STUDIOPARENT:\"")))
  288.     (if (> exerr 0)
  289.     (
  290.         (abort (#abortunpack "Output/Deskjet6xx.pkd"))
  291.     ))
  292. ))
  293. (if (= (exists "STUDIOPARENT:Deskjet1600.output") 1)
  294. (
  295.     (set exerr (run (cat "RAM:lx x \"Output/Deskjet1600.pkd\" \"STUDIOPARENT:\"")))
  296.     (if (> exerr 0)
  297.     (
  298.         (abort (#abortunpack "Output/Deskjet1600.pkd"))
  299.     ))
  300. ))
  301. (if (= (exists "STUDIOPARENT:CanonBJC610.output") 1)
  302. (
  303.     (set exerr (run (cat "RAM:lx x \"Output/CanonBJC610.pkd\" \"STUDIOPARENT:\"")))
  304.     (if (> exerr 0)
  305.     (
  306.         (abort (#abortunpack "Output/CanonBJC610.pkd"))
  307.     ))
  308. ))
  309. (if (= (exists "STUDIOPARENT:PCL_5C.output") 1)
  310. (
  311.     (set exerr (run (cat "RAM:lx x \"Output/pcl_5c.pkd\" \"STUDIOPARENT:\"")))
  312.     (if (> exerr 0)
  313.     (
  314.         (abort (#abortunpack "Output/PCL_5C.pkd"))
  315.     ))
  316. ))
  317. (set addm    5)
  318. (Meter)
  319. (set cmspath (tackon (pathonly studiopath) "CMSScan"))
  320. (set found 1)
  321. (if (<> (exists cmspath) 1)
  322. (
  323.     (if (askbool (prompt (#updatescan (pathonly cmspath)))
  324.         (choices "Yes, update CMSScan" "No, continue")
  325.         (help (#foundstudiohelp ))
  326.         (default 1))
  327.     (
  328.         (set found 1)
  329.         (set cmspath  (askdir (prompt #ask-cmsmod)
  330.             (help #ask-cmsmod-help)
  331.             (default (pathonly (cmspath))))
  332.         )
  333.         (set cmspath (tackon cmspath "CMSScan"))
  334.         (if (<> (exists cmspath) 1)
  335.         (
  336.             (abort (#nocmspro cmspath))
  337.         ))
  338.     )
  339.     (
  340.         (set found 0)
  341.     ))
  342. ))
  343. (if (> found 0)
  344. (
  345.     (working #waitmsg)
  346.     (makeassign "STUDIOPARENT" (pathonly (cmspath)))
  347.     (set exerr (run (cat "RAM:lx x \"Studio/Scan.pkd\" \"STUDIOPARENT:\"")))
  348.     (if (> exerr 0)
  349.     (
  350.         (abort (#abortunpack "Studio/Scan.pkd"))
  351.     ))
  352. ))
  353. (set addm    5)
  354. (Meter)
  355. (makeassign "STUDIOPARENT" "Devs:printers")
  356. (if (= (exists "STUDIOPARENT:CanonBJ-EC") 1)
  357. (
  358.     (set exerr (run (cat "RAM:lx x \"Drivers/CanonBJEC.pkd\" \"STUDIOPARENT:\"")))
  359.     (if (> exerr 0)
  360.     (
  361.         (abort (#abortunpack "Drivers/CanonBJEC.pkd"))
  362.     ))
  363. ))
  364. (if (= (exists "STUDIOPARENT:DeskDriver") 1)
  365. (
  366.     (set exerr (run (cat "RAM:lx x \"Drivers/DeskDriver.pkd\" \"STUDIOPARENT:\"")))
  367.     (if (> exerr 0)
  368.     (
  369.         (abort (#abortunpack "Drivers/DeskDriver.pkd"))
  370.     ))
  371. ))
  372. (if (= (exists "STUDIOPARENT:DeskDriver4C") 1)
  373. (
  374.     (set exerr (run (cat "RAM:lx x \"Drivers/DeskDriver4C.pkd\" \"STUDIOPARENT:\"")))
  375.     (if (> exerr 0)
  376.     (
  377.         (abort (#abortunpack "Drivers/DeskDriver4C.pkd"))
  378.     ))
  379. ))
  380. (if (= (exists "STUDIOPARENT:LaserDriver") 1)
  381. (
  382.     (set exerr (run (cat "RAM:lx x \"Drivers/LaserDriver.pkd\" \"STUDIOPARENT:\"")))
  383.     (if (> exerr 0)
  384.     (
  385.         (abort (#abortunpack "Drivers/LaserDriver.pkd"))
  386.     ))
  387. ))
  388. (set prefdisk ("SYS:Prefs"))
  389. (if (exists "sys:preferences")
  390. (
  391.     (set prefdisk ("SYS:Preferences"))
  392. ))
  393. (if (exists "SYS:Prefs")
  394. (
  395.     (set prefdisk ("SYS:Prefs"))
  396. ))
  397. (set prefdisk (askdir (prompt #ask-prefs)
  398.     (help #ask-prefs-help)
  399.     (default prefdisk))
  400. )
  401. (set addm    3)
  402. (Meter)
  403. (working #waitmsg)
  404. (if (= (exists prefdisk) 2)
  405. (
  406.     (makeassign "STUDIOPARENT" prefdisk)
  407.     (if (= (exists "STUDIOPARENT:DeskPref4C") 1)
  408.     (
  409.         (set exerr (run (cat "RAM:lx x \"Prefs/DeskPref4C.pkd\" \"STUDIOPARENT:\"")))
  410.         (if (> exerr 0)
  411.         (
  412.             (abort (#abortunpack "Prefs/DeskPref4C.pkd"))
  413.         ))
  414.     ))
  415.     (if (= (exists "STUDIOPARENT:CanonBJECPref") 1)
  416.     (
  417.         (set exerr (run (cat "RAM:lx x \"Prefs/CanonBJECPref.pkd\" \"STUDIOPARENT:\"")))
  418.         (if (> exerr 0)
  419.         (
  420.             (abort (#abortunpack "Prefs/CanonBJECPref.pkd"))
  421.         ))
  422.     ))
  423. ))
  424. ; BJC610
  425. (if (= studio 1)
  426. (
  427.     (set drivername "CanonBJEC")
  428.     (set prefname "prefs/CanonBJECPref")
  429.     (set envname "CanonBJECPref")
  430.     (set presetname "DriverPresets/CanonBJC610")
  431.     (set studiodefault "CanonBJC610")
  432.     (set soutput "Output/CanonBJC610")
  433.     (set sprofile "Profiles/CanonBJC610")
  434.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Profiles"))
  435.     (askdisk (prompt (#mydisk 3))
  436.         (help @askdisk-help)
  437.         (dest "StudioDisk_3")
  438.         ;(assigns)
  439.     )
  440.     (working #waitmsg)
  441.     (set exerr (run (cat "RAM:lx x \"StudioDisk_3:Profiles/CanonBJC600.pkd\" \"STUDIOPARENT:\"")))
  442.     (if (> exerr 0)
  443.     (
  444.         (abort (#abortunpack (cat sprofile ".pkd")))
  445.     ))
  446. ))
  447. ; DJ 6xx
  448. (if (= studio 2)
  449. (
  450.     (if (= (exists "devs:printers/DeskDriver") 1)
  451.     (
  452.         (if (<> (exists "devs:printers/DeskDriver4C") 1)
  453.         (
  454.             (if (NOT (askbool (prompt (#nodesk))
  455.                 (choices "No, don't delete" "Yes, delete before update")
  456.                 (help (#nodeskhelp))
  457.                 (default 1)))
  458.             (
  459.                 (working #waitmsg)
  460.                 (delete "Devs:printers/DeskDriver")
  461.                 (if (= (exists (tackon prefdisk "DeskPref") 1))
  462.                 (
  463.                     (delete (tackon prefdisk "DeskPref"))
  464.                 ))
  465.             ))
  466.         ))
  467.     ))
  468.     (set drivername "DeskDriver4C")
  469.     (set prefname "prefs/DeskPref4C")
  470.     (set envname "DeskPref4C")
  471.     (set studiodefault "Deskjet_6xx")
  472.     (set presetname "DriverPresets/dj6xx")
  473.     (set soutput "Output/Deskjet6xx")
  474.     (set sprofile "Profiles/Deskjet6xx_8xx")
  475.  
  476. ))
  477. ; DJ 8xx
  478. (if (= studio 3)
  479. (
  480.     (set drivername "DeskDriver4C")
  481.     (set prefname "prefs/DeskPref4C")
  482.     (set envname "DeskPref4C")
  483.     (set studiodefault "Deskjet_8xx")
  484.     (set presetname "DriverPresets/dj8xx")
  485.     (set soutput "Output/Deskjet8xx")
  486.     (set sprofile "Profiles/Deskjet6xx_8xx")
  487. ))
  488. ; DJ 1600
  489. (if (= studio 4)
  490. (
  491.     (set drivername "DeskDriver4C")
  492.     (set prefname "prefs/DeskPref4C")
  493.     (set envname "DeskPref4C")
  494.     (set studiodefault "Deskjet_1600")
  495.     (set presetname "DriverPresets/DJ16004C")
  496.     (set soutput "Output/Deskjet1600")
  497.     (set sprofile "Profiles/Deskjet6xx_8xx")
  498. ))
  499. (if (> studio 0)
  500. (
  501.     (set addm 10)
  502.     (Meter)
  503.     (makeassign "STUDIOPARENT" "Devs:Printers")
  504.     (set exerr (run (cat "RAM:lx x drivers/" drivername ".pkd \"STUDIOPARENT:\"")))
  505.     (if (> exerr 0)
  506.     (
  507.         (abort (#abortunpack (tackon "Drivers" drivername)))
  508.     ))
  509.     (makeassign "STUDIOPARENT" prefdisk)
  510.     (set exerr (run (cat "RAM:lx x " prefname ".pkd \"STUDIOPARENT:\"")))
  511.     (if (> exerr 0)
  512.     (
  513.         (abort (#abortunpack prefname))
  514.     ))
  515.     (set addm 10)
  516.     (Meter)
  517.     (set delenv 1)
  518.     (if (= (exists (cat "ENV:" envname)) 1)
  519.     (
  520.             (if (NOT (askbool (prompt (#delenv))
  521.                 (choices "Yes, overwrite" "No, don't delete")
  522.                 (help (#delenvhelp))
  523.                 (default 1)))
  524.             (
  525.                 (set delenv 0)
  526.             ))
  527.     ))
  528.     (if (> delenv 0)
  529.     (
  530.         (if (exists "ENV:")
  531.         (
  532.             (delete (cat "ENV:" envname))
  533.         ))
  534.         (if (exists "ENVARC:")
  535.         (
  536.             (delete (cat "ENVARC:" envname))
  537.         ))
  538.         (if (<> presetname "")
  539.         (
  540.             (if (= (exists presetname) 1)
  541.             (
  542.                 (copyfiles (source presetname)
  543.                     (dest "ENV:")
  544.                     (newname envname)
  545.                     (nogauge)
  546.                 )
  547.             )
  548.             (
  549.                 (if (= (exists (cat presetname ".pkd")) 1)
  550.                 (
  551.                     (set exerr (run (cat "RAM:lx x " presetname ".pkd ENV:")))
  552.                     (if (> exerr 0)
  553.                     (
  554.                         (abort (#abortunpack (cat presetname ".pkd")))
  555.                     ))
  556.                     (if (exists (cat "ENV:" envname))
  557.                     (
  558.                         (delete (cat "ENV:" envname))
  559.                     ))
  560.                     (rename (cat "ENV:" (fileonly presetname)) (cat "ENV:" envname))
  561.                 ))
  562.             ))
  563.             (if (= (exists (cat "ENV:" envname)) 1)
  564.             (
  565.                 (if (exists "ENVARC:")
  566.                 (
  567.                     (copyfiles (source (cat "ENV:" envname))
  568.                         (dest "ENVARC:")
  569.                         (newname envname)
  570.                         (nogauge)
  571.                     )
  572.                 ))
  573.             ))
  574.         ))
  575.     ))
  576.     (set addm 10)
  577.     (Meter)
  578.     (working #waitmsg)
  579.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Prefs"))
  580.     (set exerr (run (cat "RAM:lx x \"" (tackon "StudioPresets" (cat studiodefault ".pkd\"")) "\"T:\"")))
  581.     (if (> exerr 0)
  582.     (
  583.         (abort (#abortunpack (tackon "StudioPresets" (cat studiodefault ".pkd"))))
  584.     ))
  585.     (copyfiles (source (cat "T:" studiodefault ".prefs"))
  586.         (dest "STUDIOPARENT:")
  587.         (newname "DefaultSettings")
  588.         (nogauge)
  589.     )
  590.     (set addm    10)
  591.     (Meter)
  592.     (if (exists "STUDIOPARENT:Studio.prefs")
  593.     (
  594.         (if (askbool (prompt (#sdelenv))
  595.             (choices "Yes, delete" "No, don't delete")
  596.             (help (#sdelenvhelp))
  597.             (default 1))
  598.         (
  599.             (delete "STUDIOPARENT:Studio.prefs")
  600.         ))
  601.     ))
  602.     (working #waitmsg)
  603.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Output"))
  604.     (set exerr (run (cat "RAM:lx x \"" soutput ".pkd\" \"STUDIOPARENT:\"")))
  605.     (if (> exerr 0)
  606.     (
  607.         (abort (#abortunpack (cat soutput ".pkd")))
  608.     ))
  609.     (set addm 5)
  610.     (Meter)
  611.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Profiles"))
  612.     (set exerr (run (cat "RAM:lx x \"" sprofile ".pkd\" \"STUDIOPARENT:\"")))
  613.     (if (> exerr 0)
  614.     (
  615.         (abort (#abortunpack (cat sprofile ".pkd")))
  616.     ))
  617. ))
  618. (run "RAM:lx n")
  619. (delete "RAM:lx")
  620. (makeassign "STUDIOPARENT")
  621. (complete 100)
  622.