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