home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / ASIM34.DMS / in.adf / Install-AsimCDFS < prev    next >
Encoding:
Text File  |  1995-10-23  |  58.7 KB  |  1,830 lines
  1. ;$VER: AsimCDFS Install 3.1 (16.8.95) 
  2. ;Copyright ©1993-1995 Asimware Innovations Inc.
  3.  
  4. (onerror (makeassign "AsimCDFSInst") )
  5.  
  6. (set #autoMount 1)
  7. (set #CDDefault_NC "CD0" )
  8. (set #isPioneer 0)
  9. (set #isNakamichi 0)
  10. (set #PioneerSeparate 0)
  11. (set #supportLUN 1)
  12.  
  13. (set #wbversion (getversion "libs:version.library"))
  14. (set #wbversion (/ #wbversion 65536) )
  15.  
  16. (set #SCSIDevice "scsi.device")
  17. (set #SCSIUnit 4)
  18.  
  19. (set @default-dest "SYS:AsimCDFS")
  20. (set #echotxt "echo \"Mounting AsimCDFS...\"\n" )
  21.  
  22. (complete 0)
  23.  
  24.  
  25. ;  **********************************************************************
  26. ;  Need WB 2.0 or higher.
  27. ;  **********************************************************************
  28. (if (< #wbversion 37)
  29.     (abort "\n\nAmigaDOS 2.0 or higher is required for AsimCDFS 2.0. "
  30.              "\n\nAn upgrade will be needed for your Amiga."
  31.              "\n\nYou are currently running version " #wbversion ".")
  32. )
  33.  
  34.  
  35. ;  **********************************************************************
  36. ;  Need lots of space on sys volume for devs and l
  37. ;  **********************************************************************
  38. (if (< (getdiskspace "SYS:") 150000)
  39.     (abort "\n\nApproximately 150K of disk space is needed on your SYS: volume."
  40.              "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  41.              "Delete or transfer some files from the SYS: volume and try again." )
  42. )
  43.  
  44.  
  45. ;  **********************************************************************
  46. ;  Lock our install disk
  47. ;  **********************************************************************
  48. (askdisk
  49.     (prompt "Please insert the disk labeled \"AsimCDFS_v3_Install\".")
  50.     (help    "AsimCDFS FileSystem and other utilities will be copied "
  51.             "from this disk into your system.")
  52.     (dest  "AsimCDFS_v3_Install")
  53.     (newname "AsimCDFSInst")
  54. )
  55.  
  56.  
  57. (set #theirlevel @user-level )
  58. (user 2)
  59.  
  60. (complete 3)
  61. ;  **********************************************************************
  62. ;  Ask if CDTV (1) , CD³² (2) or Amiga (0)
  63. ;  **********************************************************************
  64. (set #IsAmiga
  65.     (askchoice
  66.         (prompt "\nAsimCDFS v3.4 Install\n--------------------\n\nAre you installing AsimCDFS on a CDTV/A570, a CD³² or an Amiga?" )
  67.         (default 0 )
  68.         (choices "Amiga" "CDTV/A570" "CD³²")
  69.         (help "\n\nIf AsimCDFS is being used in conjunction with a CDTV/A570 unit "
  70.                 "then note this with the CDTV/A570 selection.\n\n"
  71.                 "If AsimCDFS is being used with a CD³² unit, then note this with the CD³² selection.\n\n"
  72.                 "Otherwise, you will be installing AsimCDFS on an Amiga equipped "
  73.                 "with a SCSI or IDE controller and SCSI or ATAPI CD-ROM drive." )
  74.     )
  75. )
  76.  
  77.  
  78. (complete 6)
  79. ;  **********************************************************************
  80. ;  Is CDTV
  81. ;  **********************************************************************
  82. (if (= #IsAmiga 1) 
  83.     ((set #CDDefault_NC "CD1" )
  84.     (set #SCSIDevice "cdtv.device")
  85.     (set #SCSIUnit 0)
  86.     )
  87. )
  88.  
  89. ;  **********************************************************************
  90. ;  Is CD³²
  91. ;  **********************************************************************
  92. (if (= #IsAmiga 2) 
  93.     ((set #CDDefault_NC "CD1" )
  94.     (set #SCSIDevice "cd.device")
  95.     (set #SCSIUnit 0)
  96.     )
  97. )
  98.  
  99.  
  100.  
  101. ;  **********************************************************************
  102. ;  If amiga, ask if using Pioneer or other
  103. ;  **********************************************************************
  104. (if (= #IsAmiga 0)
  105.     (set #isPioneer 
  106.         (askbool
  107.             (prompt "\n\n\nIs your CD-ROM drive a Pioneer DRM-60x?" )
  108.             (default 0)
  109.             (choices "Pioneer DRM-60x" "Other CD-ROM")
  110.             (help "\n\nIf you are using AsimCDFS with a Pioneer DRM-60x, indicate this "
  111.                     "in your choice.  This drive is a high-performance 6-disc minichanger and "
  112.                     "is not common."
  113.                     "\n\nOtherwise select Other CD-ROM." )
  114.         )
  115.     )
  116. )
  117.  
  118.  
  119. ;  **********************************************************************
  120. ;  If ispioneer==0, ask if using Nakamich or other
  121. ;  **********************************************************************
  122. (if (and (= #isPioneer 0) (= #IsAmiga 0))
  123.     (set #isNakamichi 
  124.         (askbool
  125.             (prompt "\n\n\nIs your CD-ROM drive a Nakamichi MBR-7\nor a NEC 2xc 7-disc CD-ROM changer?" )
  126.             (default 0)
  127.             (choices "MBR-7 / NEC 2xc" "Other CD-ROM")
  128.             (help "\n\nIf you are using AsimCDFS with a Nakamichi MBR-7 or a NEC 2xc 7-disc CD-ROM changer, indicate this "
  129.                     "in your choice.  This drive is a high-performance 7-disc minichanger and "
  130.                     "is not common."
  131.                     "\n\nOtherwise select Other CD-ROM." )
  132.         )
  133.     )
  134. )
  135.  
  136.  
  137. (complete 9)
  138. (if (or #isPioneer #isNakamichi)
  139.     (
  140.     ;  **********************************************************************
  141.     ;  ask if Pioneer/Nakamichi is separate or pooled
  142.     ;  **********************************************************************
  143.     (set #PioneerSeparate
  144.             (askbool
  145.                 (prompt "\n\nDo you wish to have separate devices mounted, or would you like all discs pooled into 1 device?\n\n" )
  146.                 (default 0 )
  147.                 (choices "Separate" "Pooled")
  148.                 (help "\n\nIf you wish to have access to all discs simultaneously, then "
  149.                         "select Separate, otherwise select Pooled  --  in the latter case, "
  150.                         "you can switch between the discs with DiscChanger." )
  151.             )
  152.         )
  153.  
  154.  
  155.  
  156.     ;  **********************************************************************
  157.     ;  If pioneer separate, ask for base name
  158.     ;  **********************************************************************
  159.     (if #PioneerSeparate
  160.         ((if #isPioneer
  161.             (set #ourhelp (cat "\n\nThis is the base name under which AmigaDOS will reference the "
  162.                                 "CD-ROM as.  As you are installing AsimCDFS for a Pioneer 6-disc changer "
  163.                                 ", 6 such devices named <basename>0 through <basename>5 will be mounted (ie.  CD0, CD1, ..., CD5) "
  164.                                 "\n\nThe trailing : (colon) or the 0 through 5 MUST NOT be present.") )
  165.         )
  166.     
  167.         (if #isNakamichi
  168.             (set #ourhelp (cat "\n\nThis is the base name under which AmigaDOS will reference the "
  169.                                 "CD-ROM as.  As you are installing AsimCDFS for a Nakamichi 7-disc changer "
  170.                                 ", 7 such devices named <basename>0 through <basename>6 will be mounted (ie.  CD0, CD1, ..., CD6) "
  171.                                 "\n\nThe trailing : (colon) or the 0 through 6 MUST NOT be present.") )
  172.         )
  173.     
  174.         (set #CDDevice_NC 
  175.                 (askstring
  176.                     (prompt "\n\nWhat is the base-name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present.  See manual for explanation.)" )
  177.                     (default "CD" )
  178.                     (help #ourhelp)
  179.                 )
  180.             )
  181.         (set #CDDevice (cat #CDDevice_NC "0:")))
  182.         )
  183.     )
  184. )
  185.  
  186.  
  187.  
  188.  
  189. ;  **********************************************************************
  190. ;  If pioneer pooled or other CD-ROM, ask for CD0 device alternate
  191. ;  **********************************************************************
  192. (if (not #PioneerSeparate)
  193.     ((set #CDDevice_NC 
  194.         (askstring
  195.             (prompt "\n\nWhat is the name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present)" )
  196.             (default #CDDefault_NC )
  197.             (help "\n\nThis is the name under which AmigaDOS will reference the "
  198.                     "CD-ROM as.  While usually "
  199.                     #CDDefault_NC
  200.                     ", it can be any name you choose. "
  201.                     "\n\nThe trailing : (colon) MUST NOT be present." )
  202.         )
  203.     )
  204.  
  205.     (set #CDDevice (cat #CDDevice_NC ":") ))
  206. )
  207.  
  208.  
  209.  
  210. ;  **********************************************************************
  211. ;  Ask to run SCSI Inquire
  212. ;  **********************************************************************
  213. (if (= #IsAmiga 0)
  214.     (set #useInquire
  215.         (askbool
  216.             (prompt "\n\nWould you like to use the SCSI Inquire utility to locate your CD-ROM drive?" )
  217.             (default 1 )
  218.             (help "\n\nThe SCSI Inquire utility will scan your system for suitable SCSI "
  219.                     "or ATAPI devices and display a listing of all units connected to the device.  "
  220.                     "Your CD-ROM drive must be powered-on and correctly connected "
  221.                     "for it to be acknowledged by this utility.  Consult the SCSI Inquire "
  222.                     "chapter for more information." )
  223.         )
  224.     )
  225. )
  226.  
  227.  
  228. ;  **********************************************************************
  229. ;  Run SCSI Inquire
  230. ;  **********************************************************************
  231. (if #useInquire
  232.     (
  233.     (run "AsimCDFS_v3_Install:SCSI_Inquire")    
  234.     
  235.     (if (exists "ENV:SCSI_Device")
  236.         ((set #SCSIDevice (getenv "SCSI_Device"))
  237.         (set #SCSIUnit (+ (getenv "SCSI_Unit")))
  238.         ))
  239.     )
  240. )
  241.  
  242.  
  243.  
  244. (complete 12)
  245. (if (= #IsAmiga 0)
  246.     ;  **********************************************************************
  247.     ;  Ask for device name
  248.     ;  **********************************************************************
  249.     ((set #SCSIDevice 
  250.         (askstring
  251.             (prompt "\n\nWhat is the name of your SCSI or ATAPI device?" )
  252.             (default #SCSIDevice )
  253.             (help "\n\nThis is the name of the device driver for your particular "
  254.                     "SCSI card.  For example, the Commodore 2091/590/Amiga3000 has "
  255.                     "a name of \"scsi.device\" while our ATAPI driver has a name of \"asim_ide.device\".\n\n"
  256.                     "If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number. "
  257.                     "Otherwise, consult either the AsimCDFS User's Guide or contact the controller card manufacturer." )
  258.         )
  259.     )
  260.     
  261.     (complete 15)
  262.     ;  **********************************************************************
  263.     ;  Ask for unit number
  264.     ;  **********************************************************************
  265.     (set #SCSIUnit 
  266.         (asknumber
  267.             (prompt "\n\nWhat is the unit number of your CD-ROM drive?" )
  268.             (default #SCSIUnit )
  269.             (help "\n\nThis is the unit # of the CD-ROM drive.  This is usually a "
  270.                     "numerical value between 0 and 6 for SCSI units and between 0 and 1 for ATAPI units.\n\n"
  271.                     "If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number.  "
  272.                     "Otherwise, consult the CD-ROM drive documentation for instructions on "
  273.                     "determining the unit #." )
  274.         )
  275.     ))
  276. )
  277.  
  278.  
  279. ;  **********************************************************************
  280. ;  Ask for automount?
  281. ;  **********************************************************************
  282. (complete 18)
  283. (set #autoMount
  284.     (askbool
  285.         (prompt "\n\nWould you like the CD-ROM drive automatically mounted upon bootup?" )
  286.         (help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount AsimCDFS.\n")
  287.         (default 1)
  288.     )
  289. )
  290.  
  291. (set #mountDirectory "sys:storage/DOSDrivers/")
  292.  
  293.  
  294.  
  295.  
  296.  
  297. ;  **********************************************************************
  298. ;  Ask for AsimCDFS:
  299. ;  **********************************************************************
  300. (set #tunesDir
  301.     (askdir
  302.         (prompt "Specify the directory in which the AsimCDFS support programs will be placed:" )
  303.         (help "AsimCDFS contains a number of support programs.  This directory will specifiy where the programs will be placed.  If you need, create a separate directory for the files.")
  304.         (default @default-dest)
  305.         (newpath)
  306.     )
  307. )
  308.  
  309. (if (not (exists #tunesDir (noreq)))
  310.     (makedir #tunesDir
  311.         (prompt "Creating the AsimCDFS: directory...")
  312.         (help "This will create the specified directory for the support programs.")
  313.         (infos)
  314.         )
  315. )
  316. (makeassign "AsimCDFS" #tunesDir)
  317.  
  318.  
  319.  
  320.  
  321. ;  **********************************************************************
  322. ;  Ask for AsimCDFS_Buffer:
  323. ;  **********************************************************************
  324. (set #bufferDir "Work:AsimCDFS_Buffer")
  325. (run "AsimCDFS_v3_Install:c/MostFree")    
  326.     
  327. (if (exists "ENV:MostFree")
  328.     (set #bufferDir (cat (getenv "MostFree") "AsimCDFS_Buffer"))
  329. )
  330.  
  331. (set #bufferDir
  332.     (askdir
  333.         (prompt "Specify the directory which can be used for buffering AsimCDFS files:" )
  334.         (help "AsimCDFS will require a directory in which it will buffer "
  335.                 "various files, including PhotoCD thumbnail icons, snapshot icon files "
  336.                 "and audio library files.  As the number of files in this directory "
  337.                 "may grow as your CD-ROM collection expands, it is "
  338.                 "advisable to put this directory on a large hard drive partition." )
  339.         (default #bufferDir )
  340.         (newpath)
  341.     )
  342. )
  343.  
  344. (if (not (exists #bufferDir (noreq)))
  345.     (makedir #bufferDir
  346.         (prompt "Creating the AsimCDFS_Buffer: directory...")
  347.         (help "This will create the specified directory for the buffered files.")
  348.         (infos)
  349.         )
  350. )
  351. (makeassign "AsimCDFS_Buffer" #bufferDir)
  352. (user #theirlevel)
  353.  
  354.  
  355. (set n 0)
  356. (while
  357.     (set #buffsubdir 
  358.         (select n "AsimCDFS_Buffer:PhotoCDIcon_Buffer"
  359.                      "AsimCDFS_Buffer:Audio"
  360.                      "AsimCDFS_Buffer:Raw"
  361.                      "AsimCDFS_Buffer:Marks"
  362.                      "AsimCDFS_Buffer:NonVolatile"
  363.                    ""
  364.             )
  365.         )
  366.     (
  367.     (if (not (exists #buffsubdir (noreq)))
  368.         (makedir #buffsubdir
  369.             (prompt "Creating the " #buffsubdir " directory...")
  370.             (help "This will create the specified directory for the buffered files.")
  371.             (infos)
  372.             )
  373.     )
  374.  
  375.     (set n (+ n 1))
  376.     )
  377. )
  378.  
  379.  
  380. (copyfiles
  381.     (prompt "\n\nCopying Corel_Directory index file to the "
  382.         "AsimCDFS_Buffer: directory.\n" )
  383.     (source "AsimCDFSInst:Corel_Directory")
  384.     (dest "AsimCDFS_Buffer:")
  385.     (confirm)
  386.     (help "\n\nThis will copy an index file containing proper disc "
  387.         "names for the Corel ProPhoto library (Volumes 1 and 2).")
  388. )
  389.  
  390.  
  391.  
  392. (if (not (exists "C:ViewTek" (noreq)))
  393.     ((copyfiles
  394.         (prompt "\n\nCopying the public domain program ViewTek by "
  395.             "Thomas Krehbiel to your C: directory.")
  396.         (source "AsimCDFSInst:ViewTek/VT")
  397.         (dest "C:")
  398.         (newname "ViewTek")
  399.         (help "\n\nThis will copy over the public domain viewing "
  400.             "program ViewTek to your C: directory where it will be "
  401.             "automatically used when you double-click on PhotoCD and "
  402.             "Corel ProPhoto thumbnail icons.")
  403.         (confirm)
  404.     ))
  405. )
  406.  
  407.  
  408.  
  409. ;  **********************************************************************
  410. ;  delete obsolete files
  411. ;  **********************************************************************
  412. ;  Delete old AsimPhoto, if present in AsimCDFS dir.
  413. ;  all other files are either the user's or will be over written
  414. (if (exists "AsimCDFS:AsimPhoto")
  415.     ((delete "AsimCDFS:AsimPhoto"
  416.         (prompt "\n\Deleting obsolete AsimPhoto.\n" )
  417.         (confirm)
  418.         (help "\n\nThis will delete the old AsimPhoto program, which is "
  419.             "no longer required for AsimCDFS v3.x\n" )
  420.         )
  421.     )
  422. )        
  423.  
  424.  
  425. (if (exists "AsimCDFS:AsimPhoto.info")
  426.     ((delete "AsimCDFS:AsimPhoto.info"
  427.         (prompt "\n\Deleting obsolete AsimPhoto.info.\n" )
  428.         (confirm)
  429.         (help "\n\nThis will delete the old AsimPhoto icon, which is "
  430.             "no longer required for AsimCDFS v3.x\n" )
  431.         )
  432.     )
  433. )        
  434.  
  435. (if (exists "ENVARC:AsimCDFS/Photo.info")
  436.     ((delete "ENVARC:AsimCDFS/Photo.info"
  437.         (prompt "\n\Deleting obsolete default Photo icon.\n" )
  438.         (confirm)
  439.         (help "\n\nThis will delete the old default Photo icon, which is "
  440.             "no longer required for AsimCDFS v3.x\n" )
  441.         )
  442.     )
  443. )        
  444.  
  445.  
  446.  
  447.  
  448. (if (exists "ENVARC:AsimCDFS/DiscChanger.prefs")
  449.     ((delete "ENVARC:AsimCDFS/DiscChanger.prefs"
  450.         (prompt "\n\Deleting obsolete DiscChanger preferences file.\n" )
  451.         (confirm)
  452.         (help "\n\nThis will delete the old DiscChanger preferences file, which is "
  453.             "no longer required for AsimCDFS v3.x\n" )
  454.         )
  455.     )
  456. )        
  457.  
  458. (if (exists "ENVARC:AsimCDFS/AsimTunes.prefs")
  459.     ((delete "ENVARC:AsimCDFS/AsimTunes.prefs"
  460.         (prompt "\n\Deleting obsolete AsimTunes preferences file.\n" )
  461.         (confirm)
  462.         (help "\n\nThis will delete the old AsimTunes preferences file, which is "
  463.             "no longer required for AsimCDFS v3.x\n" )
  464.         )
  465.     )
  466. )        
  467.  
  468.  
  469. (if (exists "ENVARC:AsimCDFS/AsimPhoto.prefs")
  470.     ((delete "ENVARC:AsimCDFS/AsimPhoto.prefs"
  471.         (prompt "\n\Deleting obsolete AsimPhoto preferences file.\n" )
  472.         (confirm)
  473.         (help "\n\nThis will delete the old AsimPhoto preferences file, which is "
  474.             "no longer required for AsimCDFS v3.x\n" )
  475.         )
  476.     )
  477. )        
  478.  
  479.  
  480.  
  481. ;  **********************************************************************
  482. ;  l:AsimCDFS
  483. ;  **********************************************************************
  484. (complete 21)
  485. (protect "l:AsimCDFS" "rwed" )
  486. (copyfiles
  487.     (prompt "\n\nCopying AsimCDFS FileSystem to the l: directory.\n" )
  488.     (source "AsimCDFSInst:l/AsimCDFS")
  489.     (dest "l:")
  490.     (confirm)
  491.     (help "\n\nThis will copy over the AsimCDFS FileSystem program to your "
  492.         "l: directory\n\nThis is an essential step in the installation "
  493.         "process.\n" )
  494. )
  495.  
  496.  
  497.  
  498. ;  **********************************************************************
  499. ;  devs:asimcdfs.device
  500. ;  **********************************************************************
  501. (complete 25)
  502. (protect "devs:asimcdfs.device" "rwed" )
  503. (copyfiles
  504.     (prompt "\n\nCopying asimcdfs.device to the devs: directory.\n" )
  505.     (source "AsimCDFSInst:devs/asimcdfs.device")
  506.     (dest "devs:")
  507.     (confirm)
  508.     (help "\n\nThis will copy over the asimcdfs.device program to your "
  509.         "devs: directory\n\nThis is an essential step in the installation "
  510.         "process.\n" )
  511. )
  512.  
  513.  
  514.  
  515.  
  516.  
  517. ;  **********************************************************************
  518. ;  Create mountlists and alter user-startup
  519. ;  **********************************************************************
  520. (if (= #wbversion 37) 
  521.     ((if #PioneerSeparate
  522.         ((set #startupCommand1 (cat "mount >NIL: " #CDDevice_NC "0: from devs:MountList." #CDDevice_NC "\n") )
  523.         (set #startupCommand2 (cat "mount >NIL: " #CDDevice_NC "1: from devs:MountList." #CDDevice_NC "\n") )
  524.         (set #startupCommand3 (cat "mount >NIL: " #CDDevice_NC "2: from devs:MountList." #CDDevice_NC "\n") )
  525.         (set #startupCommand4 (cat "mount >NIL: " #CDDevice_NC "3: from devs:MountList." #CDDevice_NC "\n") )
  526.         (set #startupCommand5 (cat "mount >NIL: " #CDDevice_NC "4: from devs:MountList." #CDDevice_NC "\n") )
  527.         (if #isPioneer
  528.             (set #startupCommand6 (cat "mount >NIL: " #CDDevice_NC "5: from devs:MountList." #CDDevice_NC "\n") )
  529.         )
  530.         (if #isNakamichi
  531.             (set #startupCommand6 (cat "mount >NIL: " #CDDevice_NC "5: from devs:MountList." #CDDevice_NC "\n" "mount >NIL: " #CDDevice_NC "6: from devs:MountList." #CDDevice_NC "\n") )
  532.         )
  533.             
  534.         
  535.         (if #autoMount
  536.             ((protect "S:User-Startup" "rwed" )
  537.             (protect "S:Startup-Sequence" "rwed" )
  538.             
  539.             (startup "AsimCDFS"
  540.                 (command #echotxt)
  541.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  542.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  543.                 (command #startupCommand1 )
  544.                 (command #startupCommand2 )
  545.                 (command #startupCommand3 )
  546.                 (command #startupCommand4 )
  547.                 (command #startupCommand5 )
  548.                 (command #startupCommand6 )
  549.                 (prompt "Inserting MOUNT commands into the startup-sequence")
  550.                 (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  551.                         "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  552.                         "automatically start AsimCDFS upon bootup." )
  553.             ))
  554.         ))
  555.     )
  556.  
  557.     (if (not #PioneerSeparate)
  558.         ((set #startupCommand (cat "mount >NIL: " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
  559.         (if #autoMount
  560.             ((protect "S:User-Startup" "rwed" )
  561.             (protect "S:Startup-Sequence" "rwed" )
  562.             
  563.             (startup "AsimCDFS"
  564.                 (command #echotxt)
  565.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  566.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  567.                 (command #startupCommand )
  568.                 (prompt "Inserting MOUNT command into the startup-sequence")
  569.                 (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  570.                         "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  571.                         "automatically start AsimCDFS upon bootup." )
  572.             ))
  573.         ))
  574.     )
  575.     
  576.     (if (not #autoMount)
  577.         ((protect "S:User-Startup" "rwed" )
  578.         (protect "S:Startup-Sequence" "rwed" )
  579.         
  580.         (startup "AsimCDFS"
  581.             (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  582.             (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  583.             (prompt "Inserting MOUNT command into the startup-sequence")
  584.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  585.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  586.                     "automatically start AsimCDFS upon bootup." )
  587.         ))
  588.     )
  589.  
  590.     (protect (cat "devs:MountList." #CDDevice_NC) "rwed" )
  591.  
  592.     (if #isPioneer 
  593.         (set #LastLine "\n")
  594.     )
  595.  
  596.     (if #isNakamichi 
  597.         (set #LastLine (cat #CDDevice_NC "6:\n"
  598.                             "    Device         = " #SCSIDevice "\n"
  599.                             "    Unit           = 6" #SCSIUnit "\n"
  600.                             "    Buffers        = 0\n"
  601.                             "    BufMemType     = 5\n"
  602.                             "    Mask           = 0xffffffe\n"
  603.                             "    Flags          = 0\n"
  604.                             "    FileSystem     = l:AsimCDFS\n"
  605.                             "    DosType        = 0x662dabac\n"
  606.                             "    GlobVec        = -1\n"
  607.                             "    Mount          = 1\n"
  608.                             "    Reserved       = 0\n"
  609.                             "    LowCyl         = 0\n"
  610.                             "    HighCyl        = 999\n"
  611.                             "    Surfaces       = 1\n"
  612.                             "    BlocksPerTrack = 32\n"
  613.                             "    Priority       = 10\n"
  614.                             "    StackSize      = 5000\n"
  615.                             "#\n\n")
  616.             )
  617.         )
  618.                             
  619.  
  620.  
  621.     (if #PioneerSeparate
  622.         (textfile
  623.             (dest (cat "devs:MountList." #CDDevice_NC) )
  624.             (append "/************************************************************************/\n"
  625.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  626.                       "/************************************************************************/\n")
  627.             (append #CDDevice_NC "0:\n")
  628.             (append "    Device         = " #SCSIDevice "\n" )
  629.             (append "    Unit           = 0" #SCSIUnit "\n" )
  630.             (append "    Buffers        = 0\n")
  631.             (append "    BufMemType     = 5\n" )
  632.             (append "    Mask           = 0xffffffe\n" )
  633.             (append "    Flags          = 0\n" )
  634.             (append "    FileSystem     = l:AsimCDFS\n")
  635.             (append "    DosType        = 0x662dabac\n")
  636.             (append "    GlobVec        = -1\n")
  637.             (append "    Mount          = 1\n")
  638.             (append "    Reserved       = 0\n")
  639.             (append "    LowCyl         = 0\n")
  640.             (append "    HighCyl        = 999\n")
  641.             (append "    Surfaces       = 1\n")
  642.             (append "    BlocksPerTrack = 32\n")
  643.             (append "    Priority       = 10\n")
  644.             (append "    StackSize      = 5000\n")
  645.             (append "#\n\n")
  646.             (append #CDDevice_NC "1:\n")
  647.             (append "    Device         = " #SCSIDevice "\n" )
  648.             (append "    Unit           = 1" #SCSIUnit "\n" )
  649.             (append "    Buffers        = 0\n")
  650.             (append "    BufMemType     = 5\n" )
  651.             (append "    Mask           = 0xffffffe\n" )
  652.             (append "    Flags          = 0\n" )
  653.             (append "    FileSystem     = l:AsimCDFS\n")
  654.             (append "    DosType        = 0x662dabac\n")
  655.             (append "    GlobVec        = -1\n")
  656.             (append "    Mount          = 1\n")
  657.             (append "    Reserved       = 0\n")
  658.             (append "    LowCyl         = 0\n")
  659.             (append "    HighCyl        = 999\n")
  660.             (append "    Surfaces       = 1\n")
  661.             (append "    BlocksPerTrack = 32\n")
  662.             (append "    Priority       = 10\n")
  663.             (append "    StackSize      = 5000\n")
  664.             (append "#\n\n")
  665.             (append #CDDevice_NC "2:\n")
  666.             (append "    Device         = " #SCSIDevice "\n" )
  667.             (append "    Unit           = 2" #SCSIUnit "\n" )
  668.             (append "    Buffers        = 0\n")
  669.             (append "    BufMemType     = 5\n" )
  670.             (append "    Mask           = 0xffffffe\n" )
  671.             (append "    Flags          = 0\n" )
  672.             (append "    FileSystem     = l:AsimCDFS\n")
  673.             (append "    DosType        = 0x662dabac\n")
  674.             (append "    GlobVec        = -1\n")
  675.             (append "    Mount          = 1\n")
  676.             (append "    Reserved       = 0\n")
  677.             (append "    LowCyl         = 0\n")
  678.             (append "    HighCyl        = 999\n")
  679.             (append "    Surfaces       = 1\n")
  680.             (append "    BlocksPerTrack = 32\n")
  681.             (append "    Priority       = 10\n")
  682.             (append "    StackSize      = 5000\n")
  683.             (append "#\n\n")
  684.             (append #CDDevice_NC "3:\n")
  685.             (append "    Device         = " #SCSIDevice "\n" )
  686.             (append "    Unit           = 3" #SCSIUnit "\n" )
  687.             (append "    Buffers        = 0\n")
  688.             (append "    BufMemType     = 5\n" )
  689.             (append "    Mask           = 0xffffffe\n" )
  690.             (append "    Flags          = 0\n" )
  691.             (append "    FileSystem     = l:AsimCDFS\n")
  692.             (append "    DosType        = 0x662dabac\n")
  693.             (append "    GlobVec        = -1\n")
  694.             (append "    Mount          = 1\n")
  695.             (append "    Reserved       = 0\n")
  696.             (append "    LowCyl         = 0\n")
  697.             (append "    HighCyl        = 999\n")
  698.             (append "    Surfaces       = 1\n")
  699.             (append "    BlocksPerTrack = 32\n")
  700.             (append "    Priority       = 10\n")
  701.             (append "    StackSize      = 5000\n")
  702.             (append "#\n\n")
  703.             (append #CDDevice_NC "4:\n")
  704.             (append "    Device         = " #SCSIDevice "\n" )
  705.             (append "    Unit           = 4" #SCSIUnit "\n" )
  706.             (append "    Buffers        = 0\n")
  707.             (append "    BufMemType     = 5\n" )
  708.             (append "    Mask           = 0xffffffe\n" )
  709.             (append "    Flags          = 0\n" )
  710.             (append "    FileSystem     = l:AsimCDFS\n")
  711.             (append "    DosType        = 0x662dabac\n")
  712.             (append "    GlobVec        = -1\n")
  713.             (append "    Mount          = 1\n")
  714.             (append "    Reserved       = 0\n")
  715.             (append "    LowCyl         = 0\n")
  716.             (append "    HighCyl        = 999\n")
  717.             (append "    Surfaces       = 1\n")
  718.             (append "    BlocksPerTrack = 32\n")
  719.             (append "    Priority       = 10\n")
  720.             (append "    StackSize      = 5000\n")
  721.             (append "#\n\n")
  722.             (append #CDDevice_NC "5:\n")
  723.             (append "    Device         = " #SCSIDevice "\n" )
  724.             (append "    Unit           = 5" #SCSIUnit "\n" )
  725.             (append "    Buffers        = 0\n")
  726.             (append "    BufMemType     = 5\n" )
  727.             (append "    Mask           = 0xffffffe\n" )
  728.             (append "    Flags          = 0\n" )
  729.             (append "    FileSystem     = l:AsimCDFS\n")
  730.             (append "    DosType        = 0x662dabac\n")
  731.             (append "    GlobVec        = -1\n")
  732.             (append "    Mount          = 1\n")
  733.             (append "    Reserved       = 0\n")
  734.             (append "    LowCyl         = 0\n")
  735.             (append "    HighCyl        = 999\n")
  736.             (append "    Surfaces       = 1\n")
  737.             (append "    BlocksPerTrack = 32\n")
  738.             (append "    Priority       = 10\n")
  739.             (append "    StackSize      = 5000\n")
  740.             (append "#\n\n")
  741.             (append #LastLine )
  742.         )
  743.     )
  744.  
  745.  
  746.  
  747.     (if (not #PioneerSeparate)
  748.         (textfile
  749.             (dest (cat "devs:MountList." #CDDevice_NC) )
  750.             (append "/************************************************************************/\n"
  751.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  752.                       "/************************************************************************/\n")
  753.             (append #CDDevice "\n")
  754.             (append "    Device         = " #SCSIDevice "\n" )
  755.             (append "    Unit           = " #SCSIUnit "\n" )
  756.             (append "    Buffers        = 0\n")
  757.             (append "    BufMemType     = 5\n" )
  758.             (append "    Mask           = 0xffffffe\n" )
  759.             (append "    Flags          = 0\n" )
  760.             (append "    FileSystem     = l:AsimCDFS\n")
  761.             (append "    DosType        = 0x662dabac\n")
  762.             (append "    GlobVec        = -1\n")
  763.             (append "    Mount          = " #autoMount "\n")
  764.             (append "    Reserved       = 0\n")
  765.             (append "    LowCyl         = 0\n")
  766.             (append "    HighCyl        = 999\n")
  767.             (append "    Surfaces       = 1\n")
  768.             (append "    BlocksPerTrack = 32\n")
  769.             (append "    Priority       = 10\n")
  770.             (append "    StackSize      = 5000\n")
  771.             (append "#\n")
  772.         )
  773.     ))
  774. )
  775.  
  776.  
  777.  
  778. (if (> #wbversion 37) 
  779.     ((if (not #PioneerSeparate)
  780.         ((textfile
  781.             (dest (cat #mountDirectory #CDDevice_NC) )
  782.             (append "/************************************************************************/\n"
  783.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  784.                       "/************************************************************************/\n")
  785.             (append "    Device         = " #SCSIDevice "\n" )
  786.             (append "    Unit           = " #SCSIUnit "\n" )
  787.             (append "    Buffers        = 0\n")
  788.             (append "    BufMemType     = 5\n" )
  789.             (append "    Mask           = 0xffffffe\n" )
  790.             (append "    Flags          = 0\n" )
  791.             (append "    FileSystem     = l:AsimCDFS\n")
  792.             (append "    DosType        = 0x662dabac\n")
  793.             (append "    GlobVec        = -1\n")
  794.             (append "    Reserved       = 0\n")
  795.             (append "    LowCyl         = 0\n")
  796.             (append "    HighCyl        = 999\n")
  797.             (append "    Mount          = 1\n")
  798.             (append "    Surfaces       = 1\n")
  799.             (append "    BlocksPerTrack = 32\n")
  800.             (append "    Priority       = 10\n")
  801.             (append "    StackSize      = 5000\n")
  802.         )
  803.  
  804.         (copyfiles
  805.                 (prompt "\n\nCopying Mountlist icon")
  806.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  807.                 (dest #mountDirectory)
  808.                 (newname (cat #CDDevice_NC ".info"))
  809.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  810.                 (confirm)
  811.             )        
  812.  
  813.     ))
  814.  
  815.  
  816.     (if #PioneerSeparate
  817.         ((textfile
  818.             (dest (cat #mountDirectory #CDDevice_NC "0") )
  819.             (append "/************************************************************************/\n"
  820.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  821.                       "/************************************************************************/\n")
  822.             (append "    Device         = " #SCSIDevice "\n" )
  823.             (append "    Unit           = 0" #SCSIUnit "\n" )
  824.             (append "    Buffers        = 0\n")
  825.             (append "    BufMemType     = 5\n" )
  826.             (append "    Mask           = 0xffffffe\n" )
  827.             (append "    Flags          = 0\n" )
  828.             (append "    FileSystem     = l:AsimCDFS\n")
  829.             (append "    DosType        = 0x662dabac\n")
  830.             (append "    GlobVec        = -1\n")
  831.             (append "    Reserved       = 0\n")
  832.             (append "    LowCyl         = 0\n")
  833.             (append "    HighCyl        = 999\n")
  834.             (append "    Mount          = 1\n")
  835.             (append "    Surfaces       = 1\n")
  836.             (append "    BlocksPerTrack = 32\n")
  837.             (append "    Priority       = 10\n")
  838.             (append "    StackSize      = 5000\n")
  839.         )
  840.  
  841.         (copyfiles
  842.                 (prompt "\n\nCopying Mountlist icon")
  843.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  844.                 (dest #mountDirectory)
  845.                 (newname (cat #CDDevice_NC "0.info"))
  846.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  847.                 (confirm)
  848.             )
  849.         
  850.         (textfile
  851.             (dest (cat #mountDirectory #CDDevice_NC "1") )
  852.             (append "/************************************************************************/\n"
  853.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  854.                       "/************************************************************************/\n")
  855.             (append "    Device         = " #SCSIDevice "\n" )
  856.             (append "    Unit           = 1" #SCSIUnit "\n" )
  857.             (append "    Buffers        = 0\n")
  858.             (append "    BufMemType     = 5\n" )
  859.             (append "    Mask           = 0xffffffe\n" )
  860.             (append "    Flags          = 0\n" )
  861.             (append "    FileSystem     = l:AsimCDFS\n")
  862.             (append "    DosType        = 0x662dabac\n")
  863.             (append "    GlobVec        = -1\n")
  864.             (append "    Reserved       = 0\n")
  865.             (append "    LowCyl         = 0\n")
  866.             (append "    HighCyl        = 999\n")
  867.             (append "    Mount          = 1\n")
  868.             (append "    Surfaces       = 1\n")
  869.             (append "    BlocksPerTrack = 32\n")
  870.             (append "    Priority       = 10\n")
  871.             (append "    StackSize      = 5000\n")
  872.         )
  873.  
  874.         (copyfiles
  875.                 (prompt "\n\nCopying Mountlist icon")
  876.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  877.                 (dest #mountDirectory)
  878.                 (newname (cat #CDDevice_NC "1.info"))
  879.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  880.                 (confirm)
  881.             )
  882.  
  883.         (textfile
  884.             (dest (cat #mountDirectory #CDDevice_NC "2") )
  885.             (append "/************************************************************************/\n"
  886.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  887.                       "/************************************************************************/\n")
  888.             (append "    Device         = " #SCSIDevice "\n" )
  889.             (append "    Unit           = 2" #SCSIUnit "\n" )
  890.             (append "    Buffers        = 0\n")
  891.             (append "    BufMemType     = 5\n" )
  892.             (append "    Mask           = 0xffffffe\n" )
  893.             (append "    Flags          = 0\n" )
  894.             (append "    FileSystem     = l:AsimCDFS\n")
  895.             (append "    DosType        = 0x662dabac\n")
  896.             (append "    GlobVec        = -1\n")
  897.             (append "    Reserved       = 0\n")
  898.             (append "    LowCyl         = 0\n")
  899.             (append "    HighCyl        = 999\n")
  900.             (append "    Mount          = 1\n")
  901.             (append "    Surfaces       = 1\n")
  902.             (append "    BlocksPerTrack = 32\n")
  903.             (append "    Priority       = 10\n")
  904.             (append "    StackSize      = 5000\n")
  905.         )
  906.         
  907.  
  908.         (copyfiles
  909.                 (prompt "\n\nCopying Mountlist icon")
  910.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  911.                 (dest #mountDirectory)
  912.                 (newname (cat #CDDevice_NC "2.info"))
  913.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  914.                 (confirm)
  915.             )
  916.  
  917.         (textfile
  918.             (dest (cat #mountDirectory #CDDevice_NC "3") )
  919.             (append "/************************************************************************/\n"
  920.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  921.                       "/************************************************************************/\n")
  922.             (append "    Device         = " #SCSIDevice "\n" )
  923.             (append "    Unit           = 3" #SCSIUnit "\n" )
  924.             (append "    Buffers        = 0\n")
  925.             (append "    BufMemType     = 5\n" )
  926.             (append "    Mask           = 0xffffffe\n" )
  927.             (append "    Flags          = 0\n" )
  928.             (append "    FileSystem     = l:AsimCDFS\n")
  929.             (append "    DosType        = 0x662dabac\n")
  930.             (append "    GlobVec        = -1\n")
  931.             (append "    Reserved       = 0\n")
  932.             (append "    LowCyl         = 0\n")
  933.             (append "    HighCyl        = 999\n")
  934.             (append "    Mount          = 1\n")
  935.             (append "    Surfaces       = 1\n")
  936.             (append "    BlocksPerTrack = 32\n")
  937.             (append "    Priority       = 10\n")
  938.             (append "    StackSize      = 5000\n")
  939.         )
  940.         
  941.         (copyfiles
  942.                 (prompt "\n\nCopying Mountlist icon")
  943.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  944.                 (dest #mountDirectory)
  945.                 (newname (cat #CDDevice_NC "3.info"))
  946.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  947.                 (confirm)
  948.             )
  949.  
  950.         (textfile
  951.             (dest (cat #mountDirectory #CDDevice_NC "4") )
  952.             (append "/************************************************************************/\n"
  953.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  954.                       "/************************************************************************/\n")
  955.             (append "    Device         = " #SCSIDevice "\n" )
  956.             (append "    Unit           = 4" #SCSIUnit "\n" )
  957.             (append "    Buffers        = 0\n")
  958.             (append "    BufMemType     = 5\n" )
  959.             (append "    Mask           = 0xffffffe\n" )
  960.             (append "    Flags          = 0\n" )
  961.             (append "    FileSystem     = l:AsimCDFS\n")
  962.             (append "    DosType        = 0x662dabac\n")
  963.             (append "    GlobVec        = -1\n")
  964.             (append "    Reserved       = 0\n")
  965.             (append "    LowCyl         = 0\n")
  966.             (append "    HighCyl        = 999\n")
  967.             (append "    Mount          = 1\n")
  968.             (append "    Surfaces       = 1\n")
  969.             (append "    BlocksPerTrack = 32\n")
  970.             (append "    Priority       = 10\n")
  971.             (append "    StackSize      = 5000\n")
  972.         )
  973.  
  974.         (copyfiles
  975.                 (prompt "\n\nCopying Mountlist icon")
  976.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  977.                 (dest #mountDirectory)
  978.                 (newname (cat #CDDevice_NC "4.info"))
  979.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  980.                 (confirm)
  981.             )
  982.  
  983.         (textfile
  984.             (dest (cat #mountDirectory #CDDevice_NC "5") )
  985.             (append "/************************************************************************/\n"
  986.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  987.                       "/************************************************************************/\n")
  988.             (append "    Device         = " #SCSIDevice "\n" )
  989.             (append "    Unit           = 5" #SCSIUnit "\n" )
  990.             (append "    Buffers        = 0\n")
  991.             (append "    BufMemType     = 5\n" )
  992.             (append "    Mask           = 0xffffffe\n" )
  993.             (append "    Flags          = 0\n" )
  994.             (append "    FileSystem     = l:AsimCDFS\n")
  995.             (append "    DosType        = 0x662dabac\n")
  996.             (append "    GlobVec        = -1\n")
  997.             (append "    Reserved       = 0\n")
  998.             (append "    LowCyl         = 0\n")
  999.             (append "    HighCyl        = 999\n")
  1000.             (append "    Mount          = 1\n")
  1001.             (append "    Surfaces       = 1\n")
  1002.             (append "    BlocksPerTrack = 32\n")
  1003.             (append "    Priority       = 10\n")
  1004.             (append "    StackSize      = 5000\n")
  1005.         )
  1006.         (copyfiles
  1007.                 (prompt "\n\nCopying Mountlist icon")
  1008.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1009.                 (dest #mountDirectory)
  1010.                 (newname (cat #CDDevice_NC "5.info"))
  1011.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1012.                 (confirm)
  1013.             )
  1014.  
  1015.         (if #isNakamichi
  1016.             ((textfile
  1017.                 (dest (cat #mountDirectory #CDDevice_NC "6") )
  1018.                 (append "/************************************************************************/\n"
  1019.                           "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1020.                           "/************************************************************************/\n")
  1021.                 (append "    Device         = " #SCSIDevice "\n" )
  1022.                 (append "    Unit           = 6" #SCSIUnit "\n" )
  1023.                 (append "    Buffers        = 0\n")
  1024.                 (append "    BufMemType     = 5\n" )
  1025.                 (append "    Mask           = 0xffffffe\n" )
  1026.                 (append "    Flags          = 0\n" )
  1027.                 (append "    FileSystem     = l:AsimCDFS\n")
  1028.                 (append "    DosType        = 0x662dabac\n")
  1029.                 (append "    GlobVec        = -1\n")
  1030.                 (append "    Reserved       = 0\n")
  1031.                 (append "    LowCyl         = 0\n")
  1032.                 (append "    HighCyl        = 999\n")
  1033.                 (append "    Mount          = 1\n")
  1034.                 (append "    Surfaces       = 1\n")
  1035.                 (append "    BlocksPerTrack = 32\n")
  1036.                 (append "    Priority       = 10\n")
  1037.                 (append "    StackSize      = 5000\n")
  1038.             )
  1039.             (copyfiles
  1040.                     (prompt "\n\nCopying Mountlist icon")
  1041.                     (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1042.                     (dest #mountDirectory)
  1043.                     (newname (cat #CDDevice_NC "6.info"))
  1044.                     (help "\n\nThis will copy over an icon for the mountlist file.")
  1045.                     (confirm)
  1046.             ))
  1047.         )
  1048.     ))
  1049.  
  1050.  
  1051.     (protect "S:User-Startup" "rwed" )
  1052.     (protect "S:Startup-Sequence" "rwed" )
  1053.  
  1054.     (if (not #autoMount)
  1055.         (startup "AsimCDFS"
  1056.             (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1057.             (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1058.             (prompt "Inserting Assign command into the startup-sequence")
  1059.             (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1060.             )
  1061.         )
  1062.  
  1063.  
  1064.  
  1065.     (if #autoMount
  1066.         ((if #isPioneer
  1067.             (set #mountCommand6 (cat "mount >NIL: " #CDDevice_NC "5:\n") )
  1068.             )
  1069.         (if #isNakamichi
  1070.             (set #mountCommand6 (cat "mount >NIL: " #CDDevice_NC "5:\n" "mount >NIL: " #CDDevice_NC "6:\n") )
  1071.             )
  1072.  
  1073.  
  1074.         (if #PioneerSeparate
  1075.             (startup "AsimCDFS"
  1076.                 (command #echotxt)
  1077.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1078.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1079.                 (command (cat "mount >NIL: " #CDDevice_NC "0:\n") )
  1080.                 (command (cat "mount >NIL: " #CDDevice_NC "1:\n") )
  1081.                 (command (cat "mount >NIL: " #CDDevice_NC "2:\n") )
  1082.                 (command (cat "mount >NIL: " #CDDevice_NC "3:\n") )
  1083.                 (command (cat "mount >NIL: " #CDDevice_NC "4:\n") )
  1084.                 (command #mountCommand6 )
  1085.                 (prompt "Inserting Assign command into the startup-sequence")
  1086.                 (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1087.                 )
  1088.             )
  1089.             
  1090.         (if (not #PioneerSeparate)
  1091.             (startup "AsimCDFS"
  1092.                 (command #echotxt)
  1093.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1094.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1095.                 (command (cat "mount >NIL: " #CDDevice "\n") )
  1096.                 (prompt "Inserting Assign command into the startup-sequence")
  1097.                 (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1098.                 )
  1099.             )            
  1100.         )
  1101.     )
  1102. ))
  1103.  
  1104.  
  1105. ;  **********************************************************************
  1106. ;  Delete old mountlists is DEVS:DosDrivers/
  1107. ;  **********************************************************************
  1108. (if (> #wbversion 37) 
  1109.     ((if (not #PioneerSeparate)
  1110.         ((if (exists (cat "DEVS:DosDrivers/" #CDDevice_NC))
  1111.             ((delete (cat "DEVS:DosDrivers/" #CDDevice_NC)
  1112.             (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1113.             (confirm)
  1114.             (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1115.                     "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1116.                 )
  1117.  
  1118.             (delete (cat "DEVS:DosDrivers/" #CDDevice_NC ".info")
  1119.             (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1120.             (confirm)
  1121.             (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1122.                     "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1123.                 )
  1124.             )
  1125.         ))
  1126.     ))
  1127.  
  1128.     (if #PioneerSeparate
  1129.         ((set n 0)
  1130.         (while
  1131.             (set #oldml
  1132.                 (select n (cat "DEVS:DosDrivers/" #CDDevice_NC "0")
  1133.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "1")
  1134.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "2")
  1135.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "3")
  1136.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "4")
  1137.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "5")
  1138.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "6")
  1139.                            ""
  1140.                     )
  1141.                 )
  1142.                 
  1143.             (if (exists #oldml)
  1144.                 ((delete #oldml
  1145.                 (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1146.                 (confirm)
  1147.                 (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1148.                         "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1149.                     )
  1150.  
  1151.  
  1152.                 (delete (cat #oldml ".info")
  1153.                 (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1154.                 (confirm)
  1155.                 (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1156.                         "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1157.                     )
  1158.                 )
  1159.             )        
  1160.             )
  1161.         )
  1162. ))
  1163.  
  1164. ;  **********************************************************************
  1165. ;  Default prefs files
  1166. ;  **********************************************************************
  1167. (if (= #IsAmiga 0)
  1168.     ((if (or #isNakamichi #isPioneer)
  1169.         ;  **********************************************************************
  1170.         ;  Default prefs file for a Pioneer drive, separate
  1171.         ;  **********************************************************************
  1172.         ((if #PioneerSeparate
  1173.             ((copyfiles
  1174.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1175.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1176.                 (dest "ENVArc:AsimCDFS")
  1177.                 (newname (cat #CDDevice_NC "0"))
  1178.                 (help "\n\nThis will copy over a default preferences file.")
  1179.                 (confirm)
  1180.             )
  1181.     
  1182.             (copyfiles
  1183.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1184.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1185.                 (dest "ENVArc:AsimCDFS")
  1186.                 (newname (cat #CDDevice_NC "1"))
  1187.                 (help "\n\nThis will copy over a default preferences file.")
  1188.                 (confirm)
  1189.             )
  1190.     
  1191.             (copyfiles
  1192.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1193.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1194.                 (dest "ENVArc:AsimCDFS")
  1195.                 (newname (cat #CDDevice_NC "2"))
  1196.                 (help "\n\nThis will copy over a default preferences file.")
  1197.                 (confirm)
  1198.             )
  1199.     
  1200.             (copyfiles
  1201.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1202.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1203.                 (dest "ENVArc:AsimCDFS")
  1204.                 (newname (cat #CDDevice_NC "3"))
  1205.                 (help "\n\nThis will copy over a default preferences file.")
  1206.                 (confirm)
  1207.             )
  1208.     
  1209.             (copyfiles
  1210.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1211.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1212.                 (dest "ENVArc:AsimCDFS")
  1213.                 (newname (cat #CDDevice_NC "4"))
  1214.                 (help "\n\nThis will copy over a default preferences file.")
  1215.                 (confirm)
  1216.             )
  1217.     
  1218.             (copyfiles
  1219.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1220.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1221.                 (dest "ENVArc:AsimCDFS")
  1222.                 (newname (cat #CDDevice_NC "5"))
  1223.                 (help "\n\nThis will copy over a default preferences file.")
  1224.                 (confirm)
  1225.             )
  1226.  
  1227.             (if #isNakamichi
  1228.                 (copyfiles
  1229.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1230.                     (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1231.                     (dest "ENVArc:AsimCDFS")
  1232.                     (newname (cat #CDDevice_NC "6"))
  1233.                     (help "\n\nThis will copy over a default preferences file.")
  1234.                     (confirm)
  1235.                 ))
  1236.             )
  1237.         )
  1238.             
  1239.         ;  **********************************************************************
  1240.         ;  Default prefs file for a Pioneer drive, pooled
  1241.         ;  **********************************************************************
  1242.         (if (not #PioneerSeparate)
  1243.             (
  1244.             (if #isPioneer
  1245.                 (copyfiles
  1246.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1247.                     (source "AsimCDFSInst:Default_Prefs/Pioneer_Pool")
  1248.                     (dest "ENVArc:AsimCDFS")
  1249.                     (newname #CDDevice_NC)
  1250.                     (help "\n\nThis will copy over a default preferences file.")
  1251.                     (confirm)
  1252.                 ))
  1253.                 
  1254.             (if #IsNakamichi
  1255.                 (copyfiles
  1256.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1257.                     (source "AsimCDFSInst:Default_Prefs/Nakamich_Pool")
  1258.                     (dest "ENVArc:AsimCDFS")
  1259.                     (newname #CDDevice_NC)
  1260.                     (help "\n\nThis will copy over a default preferences file.")
  1261.                     (confirm)
  1262.                 ))
  1263.             )
  1264.         )        
  1265.     ))
  1266.     
  1267.     
  1268.     ;  **********************************************************************
  1269.     ;  Default prefs file for a SCSI or ATAPI CD-ROM drive
  1270.     ;  **********************************************************************
  1271.     (if (and (not #isNakamichi) (not #isPioneer))
  1272.         (copyfiles
  1273.             (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1274.             (source "AsimCDFSInst:Default_Prefs/Default")
  1275.             (dest "ENVArc:AsimCDFS")
  1276.             (newname #CDDevice_NC)
  1277.             (help "\n\nThis will copy over a default preferences file.")
  1278.             (confirm)
  1279.         )
  1280.     ))
  1281. )
  1282.  
  1283.  
  1284.  
  1285.  
  1286. ;  **********************************************************************
  1287. ;  Default prefs file for a CDTV
  1288. ;  **********************************************************************
  1289. (if (= #IsAmiga 1)
  1290.     (copyfiles
  1291.         (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1292.         (source "AsimCDFSInst:Default_Prefs/CDTV")
  1293.         (dest "ENVArc:AsimCDFS")
  1294.         (newname #CDDevice_NC)
  1295.         (help "\n\nThis will copy over a default preferences file.")
  1296.         (confirm)
  1297.     )
  1298. )
  1299.  
  1300.  
  1301. ;  **********************************************************************
  1302. ;  Default prefs file for a CD³²
  1303. ;  **********************************************************************
  1304. (if (= #IsAmiga 2)
  1305.     (copyfiles
  1306.         (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1307.         (source "AsimCDFSInst:Default_Prefs/CD³²")
  1308.         (dest "ENVArc:AsimCDFS")
  1309.         (newname #CDDevice_NC)
  1310.         (help "\n\nThis will copy over a default preferences file.")
  1311.         (confirm)
  1312.     )
  1313. )
  1314.  
  1315. (complete 28)
  1316.  
  1317.  
  1318.  
  1319.  
  1320.  
  1321.  
  1322.  
  1323. ;  **********************************************************************
  1324. ;  AsimTunes
  1325. ;  **********************************************************************
  1326. (set #instTunes
  1327.     (askbool
  1328.         (prompt "\n\nShould the AsimTunes utility be installed?")
  1329.         (help "\n\nThis will copy over the AsimTunes utility "
  1330.                 "to your AsimCDFS: directory\n\nIf you do not "
  1331.                 "wish the AsimTunes program to be transferred to your system, "
  1332.                 "skip this step.\n" )
  1333.         (default 1)
  1334.     )
  1335. )
  1336.  
  1337. (if #instTunes 
  1338.     ((protect "AsimCDFS:AsimTunes" "rwed" )
  1339.     (protect "AsimCDFS:AsimTunes.info" "rwed" )
  1340.     (copyfiles
  1341.         (prompt "\n\nCopying AsimTunes audio CD controller program to the "
  1342.                   "AsimCDFS: directory.\n" )
  1343.         (source "AsimCDFSInst:AsimTunes")
  1344.         (dest "AsimCDFS:")
  1345.         (infos)
  1346.         (noposition)
  1347.         (help "\n\nThis will copy over the AsimTunes audio CD controller "
  1348.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1349.                 "wish the AsimTunes program to be transferred to your system, "
  1350.                 "skip this step.\n" )
  1351.         (confirm)
  1352.     )
  1353.     
  1354.     (tooltype
  1355.         (dest "AsimCDFS:AsimTunes" )
  1356.         (settooltype "CDROM" #CDDevice )
  1357.         (noposition)
  1358.     )
  1359.         
  1360.         
  1361.     (complete 31)
  1362.     (protect "fonts:AsimTunes2" "rwed" )
  1363.     (protect "fonts:AsimTunes2.font" "rwed" )
  1364.     (protect "fonts:AsimTunes2/11" "rwed" )
  1365.     (protect "fonts:AsimTunes2/20" "rwed" )
  1366.     (copyfiles
  1367.         (prompt "\n\nCopying AsimTunes fonts to the FONTS: directory\n" )
  1368.         (source "AsimCDFSInst:fonts")
  1369.         (dest "fonts:" )
  1370.         (all)
  1371.         (help "\n\nThis will copy over the fonts needed for AsimTunes.\n\n"
  1372.                 "They will be placed into your fonts: directory.\n\n" )
  1373.         (confirm) )
  1374. ))
  1375.  
  1376.  
  1377.  
  1378.  
  1379.  
  1380. ;  **********************************************************************
  1381. ;  DiscChanger
  1382. ;  **********************************************************************
  1383. (complete 34)
  1384.  
  1385. (set #instChanger
  1386.     (askbool
  1387.         (prompt "\n\nShould the DiscChanger utility be installed?")
  1388.         (help "\n\nThis will copy over the DiscChanger utility "
  1389.                 "to your AsimCDFS: directory\n\nIf you do not "
  1390.                 "wish the DiscChanger program to be transferred to your system, "
  1391.                 "skip this step.\n" )
  1392.         (default 1)
  1393.     )
  1394. )
  1395.  
  1396. (complete 37)
  1397. (if #instChanger
  1398.     ((protect "AsimCDFS:DiscChanger" "rwed" )
  1399.     (copyfiles
  1400.         (prompt "\n\nCopying the DiscChanger utility to the AsimCDFS: "
  1401.                   "directory.\n" )
  1402.         (source "AsimCDFSInst:DiscChanger")
  1403.         (dest "AsimCDFS:")
  1404.         (infos)
  1405.         (noposition)
  1406.         (help "\n\nThis will copy over the DiscChanger utility "
  1407.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1408.                 "wish the DiscChanger program to be transferred to your system, "
  1409.                 "skip this step.\n" )
  1410.         (confirm)
  1411.     )
  1412.     
  1413.     (tooltype
  1414.         (dest "AsimCDFS:DiscChanger" )
  1415.         (settooltype "CDROM" #CDDevice )
  1416.         (noposition)
  1417.     )
  1418. ))
  1419.  
  1420.  
  1421.  
  1422.  
  1423.  
  1424. ;  **********************************************************************
  1425. ;  AsimCDFS_Prefs
  1426. ;  **********************************************************************
  1427. (complete 40)
  1428. (set #instPrefs
  1429.     (askbool
  1430.         (prompt "\n\nShould the AsimCDFS_Prefs utility be installed?")
  1431.         (help "\n\nThis will copy over the AsimCDFS_Prefs utility "
  1432.                 "to your AsimCDFS: directory\n\nIf you do not "
  1433.                 "wish the AsimCDFS_Prefs program to be transferred to your system, "
  1434.                 "skip this step.\n" )
  1435.         (default 1)
  1436.     )
  1437. )
  1438.  
  1439. (complete 43)
  1440. (if #instPrefs
  1441.     ((protect "AsimCDFS:AsimCDFS_Prefs" "rwed" )
  1442.     (copyfiles
  1443.         (prompt "\n\nCopying the AsimCDFS_Prefs utility to the AsimCDFS: "
  1444.                   "directory.\n" )
  1445.         (source "AsimCDFSInst:AsimCDFS_Prefs")
  1446.         (dest "AsimCDFS:")
  1447.         (infos)
  1448.         (noposition)
  1449.         (help "\n\nThis will copy over the AsimCDFS_Prefs utility "
  1450.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1451.                 "wish the AsimCDFS_Prefs program to be transferred to your system, "
  1452.                 "skip this step.\n" )
  1453.         (confirm)
  1454.     )
  1455. ))
  1456.  
  1457.  
  1458.  
  1459.  
  1460. ;  **********************************************************************
  1461. ;  SimBoot
  1462. ;  **********************************************************************
  1463. (complete 46)
  1464. (set #instSimBoot
  1465.     (askbool
  1466.         (prompt "\n\nShould the SimBoot utility be installed?")
  1467.         (help "\n\nThis will copy over the SimBoot utility "
  1468.                 "to your AsimCDFS: directory\n\nIf you do not "
  1469.                 "wish the SimBoot program to be transferred to your system, "
  1470.                 "skip this step.\n" )
  1471.         (default 1)
  1472.     )
  1473. )
  1474.  
  1475. (complete 50)
  1476. (if #instSimBoot
  1477.     ((protect "AsimCDFS:SimBoot" "rwed" )
  1478.     (copyfiles
  1479.         (prompt "\n\nCopying the SimBoot utility to the AsimCDFS: "
  1480.                   "directory.\n" )
  1481.         (source "AsimCDFSInst:SimBoot")
  1482.         (dest "AsimCDFS:")
  1483.         (infos)
  1484.         (noposition)
  1485.         (help "\n\nThis will copy over the SimBoot utility "
  1486.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1487.                 "wish the SimBoot program to be transferred to your system, "
  1488.                 "skip this step.\n" )
  1489.         (confirm)
  1490.     )
  1491.  
  1492. ))
  1493.  
  1494.  
  1495.  
  1496. ;  **********************************************************************
  1497. ;  CD³²_Prefs
  1498. ;  **********************************************************************
  1499. (complete 53)
  1500. (set #instCD32Prefs
  1501.     (askbool
  1502.         (prompt "\n\nShould the CD³²_Prefs utility be installed?")
  1503.         (help "\n\nThis will copy over the CD³²_Prefs utility "
  1504.                 "to your AsimCDFS: directory\n\nIf you do not "
  1505.                 "wish the CD³²_Prefs program to be transferred to your system, "
  1506.                 "skip this step.\n" )
  1507.         (default 1)
  1508.     )
  1509. )
  1510.  
  1511. (complete 56)
  1512. (if #instCD32Prefs
  1513.     ((protect "AsimCDFS:CD³²_Prefs" "rwed" )
  1514.     (copyfiles
  1515.         (prompt "\n\nCopying the CD³²_Prefs utility to the AsimCDFS: "
  1516.                   "directory.\n" )
  1517.         (source "AsimCDFSInst:CD³²_Prefs")
  1518.         (dest "AsimCDFS:")
  1519.         (infos)
  1520.         (noposition)
  1521.         (help "\n\nThis will copy over the CD³²_Prefs utility "
  1522.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1523.                 "wish the CD³²_Prefs program to be transferred to your system, "
  1524.                 "skip this step.\n" )
  1525.         (confirm)
  1526.     )
  1527.  
  1528. ))
  1529.  
  1530.  
  1531.  
  1532.  
  1533. ;  **********************************************************************
  1534. ;  CDTV Prefs
  1535. ;  **********************************************************************
  1536. (complete 59)
  1537. (set #instCDTVPrefs
  1538.     (askbool
  1539.         (prompt "\n\nShould the CDTV_Prefs utility be installed?")
  1540.         (help "\n\nThis will copy over the CDTV_Prefs utility "
  1541.                 "to your AsimCDFS: directory\n\nIf you do not "
  1542.                 "wish the CDTV_Prefs program to be transferred to your system, "
  1543.                 "skip this step.\n" )
  1544.         (default 1)
  1545.     )
  1546. )
  1547.  
  1548. (complete 62)
  1549. (if #instCDTVPrefs
  1550.     ((protect "AsimCDFS:CDTV_Prefs" "rwed" )
  1551.     (copyfiles
  1552.         (prompt "\n\nCopying the CDTV_Prefs utility to the AsimCDFS: "
  1553.                   "directory.\n" )
  1554.         (source "AsimCDFSInst:CDTV_Prefs")
  1555.         (dest "AsimCDFS:")
  1556.         (infos)
  1557.         (noposition)
  1558.         (help "\n\nThis will copy over the CDTV_Prefs utility "
  1559.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1560.                 "wish the CDTV_Prefs program to be transferred to your system, "
  1561.                 "skip this step.\n" )
  1562.         (confirm)
  1563.     )
  1564.  
  1565. ))
  1566.  
  1567.  
  1568.  
  1569.  
  1570.  
  1571.  
  1572.  
  1573. (complete 65)
  1574. (set #instCDTVEmul
  1575.     (askbool
  1576.         (prompt "\n\nShould the CDTV emulation option be installed?")
  1577.         (help "\n\nThis will copy over the required files for the "
  1578.                 "CDTV emulation:\n   devs:cdtv.device\n   devs:bookmark.device\n   devs:cardmark.device\n   libs:playerprefs.library\n\nIf you do not "
  1579.                 "wish the CDTV emulation option to be transferred to your system, "
  1580.                 "skip this step.\n" )
  1581.         (default 1)
  1582.     )
  1583. )
  1584.  
  1585. (complete 68)
  1586. (if #instCDTVEmul
  1587.     ((complete 71)
  1588.     ;  **********************************************************************
  1589.     ;  devs:cdtv.device
  1590.     ;  **********************************************************************
  1591.     (protect "devs:cdtv.device" "rwed" )
  1592.     (copyfiles
  1593.         (prompt "\n\nCopying cdtv.device to the devs: directory.\n" )
  1594.         (source "AsimCDFSInst:devs/cdtv.device")
  1595.         (dest "devs:")
  1596.         (confirm)
  1597.         (help "\n\nThis will copy over the cdtv.device program to your "
  1598.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1599.     )
  1600.     
  1601.     
  1602.     
  1603.     ;  **********************************************************************
  1604.     ;  devs:bookmark.device
  1605.     ;  **********************************************************************
  1606.     (complete 75)
  1607.     (protect "devs:bookmark.device" "rwed" )
  1608.     (copyfiles
  1609.         (prompt "\n\nCopying bookmark.device to the devs: directory.\n" )
  1610.         (source "AsimCDFSInst:devs/bookmark.device")
  1611.         (dest "devs:")
  1612.         (confirm)
  1613.         (help "\n\nThis will copy over the bookmark.device program to your "
  1614.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1615.     )
  1616.     
  1617.     
  1618.     ;  **********************************************************************
  1619.     ;  devs:cardmark.device
  1620.     ;  **********************************************************************
  1621.     (complete 78)
  1622.     (protect "devs:cardmark.device" "rwed" )
  1623.     (copyfiles
  1624.         (prompt "\n\nCopying cardmark.device to the devs: directory.\n" )
  1625.         (source "AsimCDFSInst:devs/cardmark.device")
  1626.         (dest "devs:")
  1627.         (confirm)
  1628.         (help "\n\nThis will copy over the cardmark.device program to your "
  1629.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1630.     )
  1631.     
  1632.     
  1633.     ;  **********************************************************************
  1634.     ;  libs:playerprefs.library
  1635.     ;  **********************************************************************
  1636.     (complete 81)
  1637.     (protect "devs:playerprefs.library" "rwed" )
  1638.     (copyfiles
  1639.         (prompt "\n\nCopying playerprefs.library to the libs: directory.\n" )
  1640.         (source "AsimCDFSInst:libs/playerprefs.library")
  1641.         (dest "libs:")
  1642.         (confirm)
  1643.         (help "\n\nThis will copy over the playerprefs.library program to your "
  1644.             "libs: directory\n\nThis is part of the CDTV emulation\n" )
  1645.     )
  1646. ))    
  1647.  
  1648.  
  1649.  
  1650. (set #instCD32Emul
  1651.     (askbool
  1652.         (prompt "\n\nShould the CD³² emulation option be installed?")
  1653.         (help "\n\nThis will copy over the required files for the "
  1654.                 "CD³² emulation:\n   devs:cd.device\n   libs:nonvolatile.library\n   libs:lowlevel.library\n\nIf you do not "
  1655.                 "wish the CD³² emulation option to be transferred to your system, "
  1656.                 "skip this step.\n" )
  1657.         (default 1)
  1658.     )
  1659. )
  1660.  
  1661. (complete 84)
  1662. (if #instCD32Emul
  1663.     ((complete 87)
  1664.     ;  **********************************************************************
  1665.     ;  devs:cd.device
  1666.     ;  **********************************************************************
  1667.     
  1668.     (protect "devs:cd.device" "rwed" )
  1669.     (copyfiles
  1670.         (prompt "\n\nCopying cd.device to the devs: directory.\n" )
  1671.         (source "AsimCDFSInst:devs/cd.device")
  1672.         (dest "devs:")
  1673.         (confirm)
  1674.         (help "\n\nThis will copy over the cd.device program to your "
  1675.             "devs: directory\n\nThis is part of the CD³² emulation\n" )
  1676.     )
  1677.     
  1678.     
  1679.     ;  **********************************************************************
  1680.     ;  libs:nonvolatile.library
  1681.     ;  **********************************************************************
  1682.     (complete 90)
  1683.     (protect "devs:nonvolatile.library" "rwed" )
  1684.     (copyfiles
  1685.         (prompt "\n\nCopying nonvolatile.library to the libs: directory.\n" )
  1686.         (source "AsimCDFSInst:libs/nonvolatile.library")
  1687.         (dest "libs:")
  1688.         (confirm)
  1689.         (help "\n\nThis will copy over the nonvolatile.library program to your "
  1690.             "libs: directory\n\nThis is part of the CD³² emulation\n" )
  1691.     )
  1692.     
  1693.     
  1694.     ;  **********************************************************************
  1695.     ;  libs:lowlevel.library
  1696.     ;  **********************************************************************
  1697.     (complete 93)
  1698.     (protect "devs:lowlevel.library" "rwed" )
  1699.     (copyfiles
  1700.         (prompt "\n\nCopying lowlevel.library to the libs: directory.\n" )
  1701.         (source "AsimCDFSInst:libs/lowlevel.library")
  1702.         (dest "libs:")
  1703.         (confirm)
  1704.         (help "\n\nThis will copy over the lowlevel.library program to your "
  1705.             "libs: directory\n\nThis is part of the CD³² emulation\n" )
  1706.     )
  1707. ))
  1708.  
  1709.  
  1710.  
  1711. ;  **********************************************************************
  1712. ;  default icons in ENV
  1713. ;  **********************************************************************
  1714.  
  1715. (makedir "ENVARC:AsimCDFS"
  1716.     (prompt "Making the ENVARC:AsimCDFS directory, in which various default files will be placed.")
  1717.     (help "This will create a directory in your ENVARC: directory")
  1718.     )
  1719.  
  1720. (makedir "ENV:AsimCDFS"
  1721.     (prompt "Making the ENV:AsimCDFS directory, in which various default files will be placed.")
  1722.     (help "This will create a directory in your ENV: directory")
  1723.     )
  1724.  
  1725. (copyfiles
  1726.     (prompt "\n\nCopying default icons to the ENVARC:AsimCDFS "
  1727.               "directory.\n" )
  1728.     (source "AsimCDFSInst:ENVArc/AsimCDFS")
  1729.     (dest "ENVArc:AsimCDFS")
  1730.     (infos)
  1731.     (all)
  1732.     (help "\n\nThis will copy over default icon files to the ENVArc:AsimCDFS directory.")
  1733.     (confirm)
  1734. )
  1735.  
  1736. (copyfiles
  1737.     (prompt "\n\nCopying default icons to the ENV:AsimCDFS "
  1738.               "directory.\n" )
  1739.     (source "AsimCDFSInst:ENVArc/AsimCDFS")
  1740.     (dest "ENV:AsimCDFS")
  1741.     (infos)
  1742.     (all)
  1743.     (help "\n\nThis will copy over default icon files to the ENV:AsimCDFS directory.")
  1744.     (confirm)
  1745. )
  1746.  
  1747.  
  1748.  
  1749.  
  1750.  
  1751.  
  1752. ;  **********************************************************************
  1753. ;  ask which languages to be added
  1754. ;  **********************************************************************
  1755. ;(if (exists "LOCALE:")
  1756. ;    ((user 2)
  1757. ;    (set #language
  1758. ;        (askoptions
  1759. ;            (prompt "Which alternate language catalogs would you like installed?")
  1760. ;            (help "The various programs have been configured to the following "
  1761. ;                    "alternate languages:\n    Français\n\nSelect which"
  1762. ;                    "languages you would like to use with our software.  English "
  1763. ;                    "language support is automatically provided as standard within the software." )
  1764. ;            (choices "Français")
  1765. ;            (default 1)
  1766. ;        )
  1767. ;    )
  1768. ;    (user #theirlevel)
  1769. ;    
  1770. ;    
  1771. ;    (set n 0)
  1772. ;    (while
  1773. ;        (set #langdir
  1774. ;            (select n "français"
  1775. ;                       ""
  1776. ;                )
  1777. ;            )
  1778. ;        (
  1779. ;        
  1780. ;        (if (IN #language n)
  1781. ;            ((set #langdest (tackon "LOCALE:catalogs/" #langdir))
  1782. ;            (set #langsrc (tackon "AsimCDFSInst:catalogs/" #langdir))
  1783. ;            
  1784. ;            (copyfiles
  1785. ;                (prompt "\n\nCopying locale " #langdir " language catalogs.\n" )
  1786. ;                (source #langsrc)
  1787. ;                (dest #langdest)
  1788. ;                (infos)
  1789. ;                (all)
  1790. ;                (help "\n\nThis will copy over the desired langauge file.")
  1791. ;                (confirm))
  1792. ;            )
  1793. ;        )
  1794. ;    
  1795. ;        (set n (+ n 1))
  1796. ;        )
  1797. ;    )
  1798. ;))    
  1799.     
  1800.  
  1801.  
  1802.  
  1803.  
  1804. ;  **********************************************************************
  1805. ;  Create a 'SYS/NV_Location' environment variable
  1806. ;  **********************************************************************
  1807. (run "setenv SYS/NV_Location AsimCDFS_Buffer:NonVolatile/")
  1808.  
  1809.  
  1810. ;  **********************************************************************
  1811. ;  Create a CD³² Preferences file
  1812. ;  **********************************************************************
  1813. (run "AsimCDFS:CD³²_Prefs SAVE DEFAULT")    
  1814.  
  1815.  
  1816. ;  **********************************************************************
  1817. ;  Create a CDTV Preferences file
  1818. ;  **********************************************************************
  1819. (run "AsimCDFS:CDTV_Prefs SAVE DEFAULT")    
  1820.  
  1821.  
  1822.  
  1823. ;  **********************************************************************
  1824. ;  remove assign to AsimCDFSInst
  1825. ;  **********************************************************************
  1826. (makeassign "AsimCDFSInst")
  1827.  
  1828.  
  1829. (complete 100)
  1830.