home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / TANDEMUPDATE+INSTALL.DMS / in.adf / Install-TandemCD < prev    next >
Encoding:
Text File  |  1995-04-11  |  18.9 KB  |  655 lines
  1. ;$VER: TandemCD Install 42.1 (11.04.95)
  2. ;Copyright ©1993/1994 Elaborate Bytes, Oliver Kastl
  3.  
  4. (onerror
  5.     (makeassign "TandemCDInst" (safe))
  6.     (makeassign "TandemCD" (safe))
  7. )
  8.  
  9. (set #autoMount 1)
  10. (set #CDDevice_NC "CD0" )
  11.  
  12. (set #wbversion (getversion "libs:version.library"))
  13. (set #wbversion (/ #wbversion 65536) )
  14.  
  15. (set #instEjectCD 1)
  16. (set #ReplaceOld 1 )
  17.  
  18. ; (set #TandemUnit 0)
  19. ; (set #TandemDevice 0)
  20.  
  21. (complete 0)
  22.  
  23. (if (< #wbversion 37)
  24.     (abort "\n\nAmigaDOS 2.04 or higher is required for TandemCD! "
  25.              "\n\nAn upgrade will be needed for your Amiga." )
  26. )
  27.  
  28.  
  29. (if (< (getdiskspace "SYS:") 61440)
  30.     (abort "\n\nApproximately 60K of disk space is needed on your SYS: volume."
  31.              "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  32.              "Delete or transfer some files from the SYS: volume and try again." )
  33. )
  34.  
  35. (askdisk
  36.     (prompt "\n\nPlease insert the disk labeled \"TandemCDInstall\".")
  37.     (help    "\n\nTandemCD driver, FileSystem and other utilities will be copied "
  38.             "from this disk into your system.")
  39.     (dest  "TandemCDInstall")
  40.     (newname "TandemCDInst")
  41. )
  42.  
  43. (working "\n\nLaunching the FindCD program to find "
  44.          "the Device and Unit of your CD-Rom..."
  45.          "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  46.          "\n\nChoose the device and unit and click \"USE\"!")
  47.  
  48. (set #TandemProduct ( run "TandemCDInst:FindCD tandem#? TandemCDInst:devs " ( safe ) ) )
  49.  
  50. (if ( NOT (= #TandemProduct 0) )
  51.     (
  52.     (abort "\nCould not find your CDROM hardware!"
  53.              "\n\nYou must select device and unit within the FindCD program "
  54.              "and click the \"USE\" gadget!" 
  55.           "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  56.              "\n\nPlease check your hardware installation and try again! " )
  57.     )
  58. )
  59.  
  60.  
  61. ( set #TandemDevice (getenv "CDROM_Device" ))
  62. ( set #TandemUnit (+ (getenv "CDROM_Unit" )))
  63.  
  64. (set #theirlevel @user-level )
  65. (user 2)
  66.  
  67. (set #CDDevice_NC
  68.     (askstring
  69.         (prompt "\n\nWhat is the name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present)" )
  70.         (default #CDDevice_NC )
  71.         (help "\n\nThis is the name under which AmigaDOS will reference the "
  72.                 "CD-Rom as.  While usually "
  73.                 #CDDevice_NC
  74.                 ", it can be any name you choose. "
  75.                 "\n\nThe trailing : (colon) MUST NOT be present." )
  76.     )
  77. )
  78.  
  79.  
  80. (set #CDDevice (cat #CDDevice_NC ":") )
  81.  
  82.  
  83. (if (= #theirlevel 2 )
  84.     (
  85.     (set #TandemDevice
  86.         (askstring
  87.             (prompt "\n\nWhat is the name for the exec device driver? " )
  88.             (default #TandemDevice )
  89.             (help "\n\nThis is the name of the device driver to use. "
  90.                     "The name is different for different configurations. "
  91.                     "\n\nDon't alter this name, if you don't know why! " )
  92.         )
  93.     )
  94.  
  95.     (set #TandemUnit
  96.         (asknumber
  97.             (prompt "\n\nWhat is the Unit number of your CD-Rom drive?" )
  98.             (default #TandemUnit )
  99.             (help "\n\nThis is the unit # of the CD-Rom drive.  This is usually a "
  100.                     "numerical value between 0 and 8.\n\n"
  101.                     "If you have only one TandemCD, you have no choice: set this to 0." )
  102.         )
  103.     )
  104.     )
  105. )
  106.  
  107. (set #autoMount
  108.     (askbool
  109.         (prompt "\n\nWould you like the CD-Rom drive automatically mounted upon bootup?" )
  110.         (help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount TandemCD.\n")
  111.         (default 1)
  112.     )
  113. )
  114.  
  115.  
  116. (if #autoMount
  117.     (set #mountDirectory "DEVS:DOSDrivers")
  118. )
  119.  
  120. (if (not #autoMount)
  121.     (set #mountDirectory "SYS:Storage/DOSDrivers")
  122. )
  123.  
  124.  
  125. (set #tandemDir
  126.     (askdir
  127.         (prompt "\n\nSpecify the directory in which the TandemCD support programs will be placed:" )
  128.         (help "\n\nTandemCD 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.")
  129.         (default @default-dest)
  130.         (newpath)
  131.     )
  132. )
  133.  
  134. (set @default-dest #tandemDir)
  135.  
  136. (makeassign "TandemCD" #tandemDir (safe))
  137.  
  138. (user #theirlevel)
  139.  
  140. (protect "l:TandemCacheCDFS" "rwed" )
  141. (copylib
  142.     (prompt "\n\nCopying CDROM FileSystem to the l: directory.\n" )
  143.     (source "TandemCDInst:l/TandemCacheCDFS")
  144.     (dest "l:")
  145.     (confirm)
  146.     (help "\n\nThis will copy over the CDROM FileSystem program to your "
  147.         "l: directory\n\nThis is an essential step in the installation "
  148.         "process.\n" )
  149. )
  150.  
  151.  
  152.  
  153. (complete 10 )
  154.  
  155. (protect (cat "devs:" #TandemDevice ) "rwed" )
  156. (copylib
  157.     (prompt "\n\nCopying tandem.device to the devs: directory.\n" )
  158.     (source (cat  "TandemCDInst:devs/" #TandemDevice ))
  159.     (dest "devs:")
  160.     (confirm)
  161.     (help "\n\nThis will copy over the tandemcd.device program to your "
  162.         "devs: directory\n\nThis is an essential step in the installation "
  163.         "process.\n" )
  164. )
  165.  
  166.  
  167. (copylib
  168.     (prompt "\n\nCopying SetAtapiSpeed to the C: directory.\n" )
  169.     (source "TandemCDInst:C/SetAtapiSpeed")
  170.     (dest "C:")
  171.     (confirm)
  172.     (help "\n\nThis will copy over the SetAtapiSpeed program to your "
  173.         "C: directory\n\nThis is an essential step in the installation "
  174.         "process.\n" )
  175. )
  176.  
  177.  
  178.  
  179. (complete 20 )
  180.  
  181.     (copylib
  182.             (source "TandemCDInst:C/Mount")
  183.             (dest "C:")
  184.     )
  185.  
  186.  
  187. (if (< #wbversion 38)
  188.     ((set #startupCommand (cat "mount " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
  189.     (if #autoMount
  190.         ((protect "S:User-Sequence" "srwed" )
  191.  
  192.         (startup "TandemCD"
  193.             (command #startupCommand )
  194.             (prompt "\n\nInserting MOUNT command into the startup-sequence")
  195.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  196.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  197.                     "automatically start TandemCD upon bootup." )
  198.         ))
  199.     )
  200.     (if (not #autoMount)
  201.         ((protect "S:User-Sequence" "srwed" )
  202.  
  203.         (startup "TandemCD"
  204.             (prompt "\n\nRemoving MOUNT command from the startup-sequence")
  205.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" will be removed from your "
  206.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file because you didn't "
  207.                     "want to automatically start TandemCD upon bootup." )
  208.         ))
  209.     )
  210.  
  211.     (if (exists (cat "devs:MountList." #CDDevice_NC ) )
  212.         ((set #ReplaceOld
  213.             (askbool
  214.             (prompt "\n\nDEVS:MountList." #CDDevice_NC" already exists!\n\n"
  215.                     "Do you want to replace it?" )
  216.             (help "\n\nClick \"YES\" if DEVS:MountList."#CDDevice_NC" should be "
  217.                   "replaced and \"NO\" if not!")
  218.             (default 1)
  219.             )
  220.         ))
  221.     )
  222.  
  223.     (if #ReplaceOld
  224.  
  225.     ((protect (cat "devs:MountList." #CDDevice_NC) "rwed" )
  226.  
  227.     (textfile
  228.         (dest (cat "devs:MountList." #CDDevice_NC) )
  229.         (append "/***************************************************************/\n"
  230.                   "/*  TandemCD mountlist entry © 1993 Elaborate Bytes, O. Kastl  */\n"
  231.                   "/***************************************************************/\n")
  232.         (append #CDDevice "\n")
  233.         (append "    FileSystem     = L:TandemCacheCDFS /* The name of the game */\n" )
  234.         (append "    Device         = \""#TandemDevice"\" /* Name of exec device driver */\n" )
  235.         (append "    Unit           = "#TandemUnit" /* exec device unit */\n" )
  236.         (append "    Flags          = 0 /* OpenDevice flags */\n")
  237.         (append "    BlocksPerTrack = 351000 /* Unused */\n")
  238.         (append "    BlockSize      = 2048 /* True, but unused */\n")
  239.         (append "    Mask           = 0x7ffffffe /* Memory mask for direct read */\n")
  240.         (append "    MaxTransfer    = 0x100000 /* Maximum amount of bytes for direct read */\n")
  241.         (append "    Reserved       = 0 /* Unused */\n")
  242.         (append "    Interleave     = 0 /* Unused */\n")
  243.         (append "    LowCyl         = 0 /* Unused */\n")
  244.         (append "    HighCyl        = 0 /* Unused */\n")
  245.         (append "    Surfaces       = 1 /* Unused */\n")
  246.         (append "    Buffers        = 50 /* Number of cache lines */\n")
  247.         (append "    BufMemType     = 1 /* MEMF_PUBLIC, use whatever you require */\n")
  248.         (append "    GlobVec        = -1 /* Do not change! */\n")
  249.         (append "    Mount          = 1 /* Mount it immediately */\n")
  250.         (append "    Priority       = 10 /* Priority of FileSystem task */\n")
  251.         (append "    DosType        = 0x43443031 /* Currently unused */\n")
  252.         (append "    StackSize      = 3000 /* Minimum stack required is 3000! */\n")
  253.         (append "    Control        = \"MD=0 LC=1 DC=8 L LV AL LFC=1\"\n")
  254.         (append "   /* The Control field is for special adjustments */\n")
  255.         (append "   /* L/S convert all file names to lowercase */\n")
  256.         (append "   /* LV/S convert volume names to lowercase */\n")
  257.         (append "   /* LFC/N start converting at this character */\n")
  258.         (append "   /* AL/S Auto-Lower converts only non-Amiga CDs */\n")
  259.         (append "   /* LC/N/A number of blocks per cache line */\n")
  260.         (append "   /* DC/N/A number of cache lines for the data cache */\n")
  261.         (append "   /* MD/N/A number of blocks, when starting direct read, not using */\n")
  262.         (append "   /* the cache. 0 will be a reasonable default (LC*DC+1) */\n")
  263.         (append "   /* S/S Do SCSI direct commands, no Trackdisk like commands! */\n")
  264.         (append "   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */\n")
  265.         (append "   /* M/S Issue a TD_MOTOR (OFF) command after read */\n")
  266.         (append "#\n")
  267.     ))
  268. ))
  269. )
  270.  
  271.  
  272. (if (> #wbversion 37)
  273.  
  274.     (
  275.     
  276.     (copylib
  277.             (source "TandemCDInst:C/SetPatch")
  278.             (dest "C:")
  279.     )
  280.  
  281.     (if (exists (tackon #mountDirectory #CDDevice_NC ) )
  282.         ((set #ReplaceOld
  283.             (askbool
  284.             (prompt "\n\n" (tackon #mountDirectory #CDDevice_NC) " already exists!\n\n"
  285.                     "Do you want to replace it?" )
  286.             (help "\n\nClick \"YES\" if " (tackon #mountDirectory #CDDevice_NC) " should be "
  287.                   "replaced and \"NO\" if not!")
  288.             (default 1)
  289.             )
  290.         ))
  291.     )
  292.  
  293.     (if #ReplaceOld
  294.  
  295.     ((protect (tackon #mountDirectory #CDDevice_NC) "rwed" )
  296.  
  297.     (textfile
  298.         (dest (tackon #mountDirectory #CDDevice_NC) )
  299.         (append "/***************************************************************/\n"
  300.                   "/*  TandemCD mountlist entry © 1993 Elaborate Bytes, O. Kastl  */\n"
  301.                   "/***************************************************************/\n")
  302.         (append "    FileSystem     = L:TandemCacheCDFS /* The name of the game */\n" )
  303.         (append "    Device         = \""#TandemDevice"\" /* Name of exec device driver */\n" )
  304.         (append "    Unit           = "#TandemUnit" /* exec device unit */\n" )
  305.         (append "    Flags          = 0 /* OpenDevice flags */\n")
  306.         (append "    BlocksPerTrack = 351000 /* Unused */\n")
  307.         (append "    BlockSize      = 2048 /* True, but unused */\n")
  308.         (append "    Mask           = 0x7ffffffe /* Memory mask for direct read */\n")
  309.         (append "    MaxTransfer    = 0x100000 /* Maximum amount of bytes for direct read */\n")
  310.         (append "    Reserved       = 0 /* Unused */\n")
  311.         (append "    Interleave     = 0 /* Unused */\n")
  312.         (append "    LowCyl         = 0 /* Unused */\n")
  313.         (append "    HighCyl        = 0 /* Unused */\n")
  314.         (append "    Surfaces       = 1 /* Unused */\n")
  315.         (append "    Buffers        = 50 /* Number of cache lines */\n")
  316.         (append "    BufMemType     = 1 /* MEMF_PUBLIC, use whatever you require */\n")
  317.         (append "    GlobVec        = -1 /* Do not change! */\n")
  318.         (append "    Mount          = 1 /* Mount it immediately */\n")
  319.         (append "    Priority       = 10 /* Priority of FileSystem task */\n")
  320.         (append "    DosType        = 0x43443031 /* Currently unused */\n")
  321.         (append "    StackSize      = 3000 /* Minimum stack required is 3000! */\n")
  322.         (append "    Control        = \"MD=0 LC=1 DC=8 L LV AL LFC=1\"\n")
  323.         (append "   /* The Control field is for special adjustments */\n")
  324.         (append "   /* L/S convert all file/volume names to lowercase */\n")
  325.         (append "   /* LV/S convert volume names to lowercase */\n")
  326.         (append "   /* LFC/N start converting at this character */\n")
  327.         (append "   /* LC/N/A number of blocks per cache line */\n")
  328.         (append "   /* AL/S Auto-Lower converts only non-Amiga CDs */\n")
  329.         (append "   /* DC/N/A number of cache lines for the data cache */\n")
  330.         (append "   /* MD/N/A number of blocks, when starting direct read, not using */\n")
  331.         (append "   /* the cache. 0 will be a reasonable default (LC*DC+1) */\n")
  332.         (append "   /* S/S Do SCSI direct commands, no Trackdisk like commands! */\n")
  333.         (append "   /* NC/S Do NOT use TD_ADDCHANGEINT, poll for DiskChange! */\n")
  334.         (append "   /* M/S Issue a TD_MOTOR (OFF) command after read */\n")
  335.     )
  336.  
  337.     (copyfiles
  338.             (prompt "\n\nCopying Mountlist icon")
  339.             (source "TandemCDInst:Devs/DOSDrivers/CD0.info")
  340.             (dest #mountDirectory)
  341.             (newname (cat #CDDevice_NC ".info"))
  342.             (help "\n\nThis will copy over an icon for the mountlist file.")
  343.             (confirm)
  344.  
  345.     )
  346.  
  347.     (protect "S:User-Sequence" "srwed" )
  348.     (startup "TandemCD"
  349.         (prompt "\n\nRemoving MOUNT command from the startup-sequence")
  350.         (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" will be removed from your "
  351.                 "\"S:Startup-Sequence\" or \"S:User-Startup\" file if it is present from "
  352.                 "an earlier installation." )
  353.         )
  354.  
  355.     (if ( exists ( cat "devs:MountList." #CDDevice_NC ) )
  356.  
  357.         ((protect (cat "devs:MountList." #CDDevice_NC) "rwed " )
  358.         (delete (cat "devs:MountList." #CDDevice_NC)
  359.             (prompt "\n\nDeleting file \"DEVS:MOUNTLIST." #CDDevice_NC "\"" )
  360.             (help "\n\nThe file \"DEVS:MOUNTLIST." #CDDevice_NC "\" will be deleted "
  361.                     "if it is present from an earlier installation." )
  362.             (confirm)
  363.             )
  364.         ))
  365.     )
  366. ))
  367. )
  368.  
  369.  
  370. (complete 40 )
  371.  
  372. (set #instCDFSprefs
  373.     (askbool
  374.         (prompt "\n\nShould the CDFSprefs utility be installed?")
  375.         (help "\n\nThis will copy over the CDFSprefs utility "
  376.                 "to your SYS:Prefs directory\n\nIf you do not "
  377.                 "wish the CDFSprefs program to be transferred to your system, "
  378.                 "skip this step.\n" )
  379.         (default 1)
  380.     )
  381. )
  382.  
  383. (if #instCDFSprefs
  384.     ((protect "SYS:Prefs/CDFSprefs" "rwed" )
  385.     (protect "SYS:Prefs/CDFSprefs.info" "rwed" )
  386.     (copylib
  387.         (prompt "\n\nCopying the CDFSprefs program to the "
  388.                   "SYS:Prefs directory.\n" )
  389.         (source "TandemCDInst:CDFSprefs")
  390.         (dest "SYS:Prefs")
  391.         (infos)
  392.         (help "\n\nThis will copy over the CDFSprefs "
  393.                 "program to your SYS:Prefs directory\n\nIf you do not "
  394.                 "wish the CDFSprefs program to be transferred to your system, "
  395.                 "skip this step.\n" )
  396.         (confirm)
  397.     )
  398.  
  399.     (tooltype
  400.         (dest "SYS:Prefs/CDFSprefs" )
  401.         (noposition)
  402.     )
  403. ))
  404.  
  405. (complete 50 )
  406.  
  407. (set #instKillDev
  408.     (askbool
  409.         (prompt "\n\nShould the KillDev utility be installed?")
  410.         (help "\n\nThis will copy over the KillDev utility "
  411.                 "to your TandemCD directory\n\nIf you do not "
  412.                 "wish the KillDev program to be transferred to your system, "
  413.                 "skip this step.\n" )
  414.         (default 1)
  415.     )
  416. )
  417.  
  418. (if #instKillDev
  419.     ((protect "TandemCD:KillDev" "rwed" )
  420.     (protect "TandemCD:KillDev.info" "rwed" )
  421.     (copylib
  422.         (prompt "\n\nCopying the KillDev program to the "
  423.                   "TandemCD: directory.\n" )
  424.         (source "TandemCDInst:KillDev")
  425.         (dest "TandemCD:")
  426.         (infos)
  427.         (help "\n\nThis will copy over the KillDev "
  428.                 "program to your TandemCD: directory\n\nIf you do not "
  429.                 "wish the KillDev program to be transferred to your system, "
  430.                 "skip this step.\n" )
  431.         (confirm)
  432.     )
  433.  
  434.     (tooltype
  435.         (dest "TandemCD:KillDev" )
  436.         (settooltype "DOSDEV" #CDDevice )
  437.         (noposition)
  438.     )
  439. ))
  440.  
  441. (complete 60 )
  442.  
  443. (set #instFindCD
  444.     (askbool
  445.         (prompt "\n\nShould the FindCD utility be installed?")
  446.         (help "\n\nThis will copy over the FindCD utility "
  447.                 "to your TandemCD directory\n\nIf you do not "
  448.                 "wish the FindCD program to be transferred to your system, "
  449.                 "skip this step." )
  450.         (default 1)
  451.     )
  452. )
  453.  
  454. (if #instFindCD
  455.     ((protect "TandemCD:FindCD" "rwed" )
  456.     (protect "TandemCD:FindCD.info" "rwed" )
  457.     (copylib
  458.         (prompt "\n\nCopying the FindCD program to the "
  459.                   "TandemCD: directory.\n" )
  460.         (source "TandemCDInst:FindCD")
  461.         (dest "TandemCD:")
  462.         (infos)
  463.         (help "\n\nThis will copy over the FindCD "
  464.                 "program to your TandemCD directory\n\nIf you do not "
  465.                 "wish the FindCD program to be transferred to your system, "
  466.                 "skip this step." )
  467.         (confirm)
  468.     )
  469.  
  470.     (tooltype
  471.         (dest "TandemCD:FindCD" )
  472.         (noposition)
  473.     )
  474.  
  475. ))
  476.  
  477.  
  478. (set #instPlayCD
  479.     (askbool
  480.         (prompt "\n\nShould the PlayCD Audio Player be installed?")
  481.         (help "\n\nThis will copy over the PlayCD drawer "
  482.                 "to your TandemCD directory\n\nIf you do not "
  483.                 "wish the PlayCD drawer to be transferred to your system, "
  484.                 "skip this step." )
  485.         (default 1)
  486.     )
  487. )
  488.  
  489. (if #instPlayCD
  490.     (
  491.  
  492.     (working "\n\nDecrunching PlayCD...."
  493.              "\n\nPlease Wait!")
  494.  
  495.     ( if ( run "TandemCDInst:c/lhex -afFqw=TandemCD: e TandemCDInst:PlayCD.lha" )
  496.         (
  497.         (abort "\n\nUnable to decrunch PlayCD!")
  498.         )
  499.     )
  500.  
  501.  
  502.     (tooltype
  503.         (dest "TandemCD:PlayCD/PlayCD" )
  504.         (settooltype "DEVICE" #TandemDevice )
  505.         (settooltype "UNIT" ("%ld" #TandemUnit ))
  506.         (settooltype "BUFMEMTYPE" "1")
  507.     )
  508.     )
  509. )
  510.  
  511.  
  512. (complete 70 )
  513.  
  514.  
  515. (if #instEjectCD
  516.     (
  517.     (set #instEjectCD
  518.     (askbool
  519.         (prompt "\n\nShould the EjectCD utility be installed?")
  520.         (help "\n\nThis will copy over the EjectCD utility "
  521.                 "to your TandemCD directory\n\nIf you do not "
  522.                 "wish the EjectCD program to be transferred to your system, "
  523.                 "skip this step.\n" )
  524.         (default 1)
  525.     )
  526.     ))
  527. )
  528.  
  529. (if #instEjectCD
  530.     ((protect "TandemCD:EjectCD" "rwed" )
  531.     (protect "TandemCD:EjectCD.info" "rwed" )
  532.     (copylib
  533.         (prompt "\n\nCopying EjectCD program to the "
  534.                   "TandemCD: directory.\n" )
  535.         (source "TandemCDInst:EjectCD")
  536.         (dest "TandemCD:")
  537.         (help "\n\nThis will copy over the EjectCD utility "
  538.                 "to your TandemCD directory\n\nIf you do not "
  539.                 "wish the EjectCD program to be transferred to your system, "
  540.                 "skip this step.\n" )
  541.         (infos)
  542.         (confirm)
  543.     )
  544.  
  545.     (tooltype
  546.         (dest "TandemCD:EjectCD" )
  547.         (settooltype "DEVICE" #TandemDevice )
  548.         (settooltype "UNIT" ("%ld" #TandemUnit ))
  549.         (noposition)
  550.     )
  551. ))
  552.  
  553. (complete 90 )
  554.  
  555. (if (AND (> #wbversion 38) (exists "TandemCDInst:TandemCD32.lha"))
  556.  
  557.     ((set #instCD32
  558.         (askbool
  559.             (prompt "\n\nShould the CD32-Emulator be installed?"
  560.                     "\n\nNote that the CD32-Emulator is completely useless "
  561.                     "if you don't have an Amiga with AA/AGA chipset and "
  562.                     "at least Kickstart version 3.0!")
  563.             (help "\n\nThis will copy over the CD32 drawer "
  564.                     "to your TandemCD directory\n\nIf you do not "
  565.                     "wish the CD32 drawer to be transferred to your system, "
  566.                     "skip this step.")
  567.             (default 1)
  568.         )
  569.     )
  570.  
  571.     (if #instCD32
  572.         (
  573.         (working "\n\nDecrunching CD32...."
  574.                  "\n\nPlease Wait!")
  575.  
  576.         ( if ( run "TandemCDInst:c/lhex -afFqw=TandemCD: e TandemCDInst:TandemCD32.lha" )
  577.             (
  578.             (abort "\n\nUnable to decrunch CD32!")
  579.             )
  580.         )
  581.  
  582.         (tooltype
  583.             (dest "TandemCD:CD32/TandemCD32" )
  584.             (settooltype "DOSDEV" #CDDevice_NC)
  585.             (settooltype "BLOCKS" "4")
  586.             )
  587.  
  588.         (set #instInst
  589.             (askbool
  590.             (prompt "\n\nShould the Installer utility be installed?"
  591.                     "\n\nNote that you only need to install the Installer "
  592.                     "utility if you don't have it already installed on "
  593.                     "your harddisk in your actual path!")
  594.             (help "\n\nThis will copy over the Installer utility "
  595.                     "to your CD32 directory\n\nIf you do not "
  596.                     "wish the Installer utility to be transferred to your system, "
  597.                     "skip this step." )
  598.             (default 1)
  599.             )
  600.         )
  601.  
  602.         (if #instInst
  603.             (
  604.             (copyfiles
  605.             (source "TandemCDInst:Installer")
  606.             (dest "TandemCD:CD32")
  607.             )
  608.         )
  609.         )
  610.     ))
  611. ))
  612.  
  613. (complete 100 )
  614.  
  615. (set #doMount
  616.     (askbool
  617.     (prompt "\n\nMount " #CDDevice " now ?")
  618.     (help "Select, if " #CDDevice " should be mounted now, or not.")
  619.     (default 1)
  620.     )
  621. )
  622.  
  623. (set #MountError 0)
  624.  
  625. (if #doMount
  626.     (
  627.     (run (cat "TandemCDInst:KillDev " #CDDevice " Quiet"))
  628.     (if (< #wbversion 38)
  629.         (
  630.         (set #MountError
  631.             (run (cat "C:Mount " #CDDevice " from devs:MountList." #CDDevice_NC ))
  632.         )
  633.         )
  634.     )
  635.  
  636.     (if (> #wbversion 37)
  637.         (
  638.         (set #MountError
  639.             (run (cat "C:Mount " #CDDevice  ))
  640.         )
  641.         )
  642.     )
  643.     )
  644. )
  645.  
  646. (if #MountError
  647.     (
  648.     (message "\n\nMounting " #CDDevice " failed!")
  649.     )
  650. )
  651.  
  652. (makeassign "TandemCDInst" (safe))
  653. (makeassign "TandemCD" (safe))
  654.  
  655.