(PROCEDURE SetUp ;Define Variables and set defaults
(
(set CPU (database "cpu")) ;discover what the CPU type is
(set User_Dest "None") ;Set a flag for size check
(set @default-dest "SYS:") ;Make the system the default destination
(set NET_Size 13123) ;Space required by the ParNET Files
(set Amiga_Size 17223) ;Space required by the Amiga-Amiga scripts
(set CDTV_Size 16282) ;Space required by the Amiga-CDTV Scripts
(set DOCS_Size 83778) ;Space required by the ParBENCH docs
(set Guide_Size 105789) ;Space required by the AmigaGuide Files
(set Sys_Needed 83150) ;Space required by the SYS files
(transcript "ParBENCH installation on "@default-dest)
))
(PROCEDURE Options ;Ask all the questions
(
(set Install ;Ask user Install or Uninstall
(AskChoice (Prompt "Do you want to INSTALL or UNINSTALL packages on your system?\n (For Addtional Information hit HELP!)")
(help "\nOne of my Pet Peaves is when a software author provides a way to install the myraid of files into all the little cubbyholes on your system but then does NOT provide a simple way to remove those well hidden files from the deep dark bowels of your computer. The UNINSTALL choice will allow you to remove any one or ALL of the files that were installed by ParBENCH from your system. Install will, of course place the needed files onto your system. ")
(choices "INSTALL" "UNINSTALL")
(default 0 )
)
)
(If (= install 0) ;Set "The_Word_x"s
(;then
(Set The_Word_1 ("install"))
(Set The_Word_2 ("to"))
)
(;else
(Set The_Word_1 ("remove"))
(Set The_Word_2 ("from"))
)
)
(set Package ;Ask user what package(s) to work with
(AskOptions (Prompt ("Choose the packages to %s:" The_Word_1))
(help "\n Amiga<->CDTV is just the files for connecting an Amiga to a CDTV. This allows reading CDROM's like the Hypermedia Concepts Fred Fish collection. This choice deals only with files used by ParNET to communicate with a CDTV.\n\n Amiga<->Amiga is the needed files to communicate between two Amiga Computers. \n\n ")
(IF (= install 0) ;Ask if the user wants 680x0 device
(IF (or (in package 0) (in package 1))
(
(set Turbo
(askchoice (Prompt ("Do you want to %s the 680x0 parnet.device? (Hit HELP for details!)" The_Word_1))
(help "\nThe Tulsa Amiga Users Group provided this file and claims it is a 68040/030/020 optimized version of the parnet.device.\n\n Some users claim it greatly enhances the speed of the NET: handling when installed on a machine with the correct processor.\n\nPlease note that this is an EXPERIMENTAL file and has not been tested, nor approved for use, by the Software Distillery or the authors of ParNET. (Yet!) :) It is provided here as a 'Power User' option.")
(prompt ("Select the location to %s the ParNET Drawer %s."The_Word_1 The_Word_2))
(help "\n ParBENCH relies on there being a Drawer called 'ParNET' in order for it to install properly. This drawer must exist in order for the remainder of this script to function.")
("\nThere is only %ld bytes available disk space on your SYS: partition.\n\n" SYS_Avail)
("You need an addtional %ld bytes of space to install all needed files.\n\n" (- SYS_Needed SYS_Avail))
("Attempt to install anyway?")
(help "The install script has determined that you do not have enough space on your SYS: partition for the ParNET packages you chose to be installed. You must clear some space on the SYS: partition before proceeding.")
("There is only %ld bytes available disk space on your chosen partition.\n\n" User_Dest_Avail)
("You need an addtional %ld bytes of space to install all needed files.\n\n" (- User_Dest_Needed User_Dest_Avail))
("Attempt to install anyway?")
(help "The install script has determined that you do not have enough space on your SYS: partition for the ParNET packages you chose to be installed. You must clear some space on the SYS: partition before proceeding.")
(default 0)
))))
(if (= Install_Anyway 0)
(Abort "Not enough room on destination drive!")
))
))
))
(PROCEDURE Install_ExitMsg ;Closing message after install
(PROCEDURE Install_CDTV ;Install scripts needed for CDTV
(
(copyfiles (Prompt "For Addtional Information on this file hit HELP.")
(help "\n These scripts are used to make it easier to connect with CDTV via ParNET. It is the same as Boot.HOST except that it has additional code to sense the Hypermedia Concepts Fred Fish Collection CDROM V1.5+ and add PNET.Keys capabilities as well as assigning logical CD0: to NET:CD0, allowing the CD_SAMPLER to operate.")
(source "ParBENCH:ParNET")
(dest @default-dest)
(files)
(infos)
(noposition)
(pattern "CDTV.#?")
(confirm)
)
))
(PROCEDURE Install_Amiga ;Install scripts for Amiga
(
(copyfiles(Prompt "For Addtional Information on these files hit HELP.")
(help "\n These scripts are used to launch the network between two Amigas. You really only need one of each type on each machine IE: Boot.HOST on machine 1, Boot.CLIENT on machine 2. If you want maximum versatility you may install both, as that is the default condition.")
(copyfiles (Prompt "ParBENCH.Guide (For Addtional Information on this file hit HELP.)")
(help "\n The ParBENCH.Guide is an 80k text file for use with Commodore's AmigaGuide hypertext system. It is reccomended that it be kept in the ParNET drawer for quick and easy reference but if you are short on space you could omit it and just refere to it on disk.")
(source "ParBENCH:Utilities")
(dest @default-dest)
(files)
(infos)
(noposition)
(pattern "ParBENCH.GUIDE")
(confirm)
)
))
(PROCEDURE Install_Guide ;Install the CBM AmigaGuide
(
(CopyLib (Prompt "Copying amigaguide.library to your SYS:Libs directory")
(help "\n ")
(source "ParBENCH:LIBS/amigaguide.library")
(dest "Libs:")
(confirm)
)
(CopyLib (Prompt "Copying WDisplay to your SYS:Utilities directory")
(help "\n ")
(source "ParBENCH:Utilities/WDisplay")
(dest "SYS:Utilities")
(confirm)
(infos)
(noposition)
)
(CopyLib (Prompt "Copying AmigaGUIDE to your SYS:Utilities directory")
(help "\n ")
(source "ParBENCH:Utilities/AmigaGuide")
(dest "SYS:Utilities")
(confirm)
(infos)
(noposition)
)
(CopyLib (Prompt "Copying HELP.GUIDE to your SYS:S directory")
(help "\n ")
(source "ParBENCH:S/HELP.GUIDE")
(dest "SYS:S")
(confirm)
(infos)
(noposition)
)
))
(PROCEDURE Install_NET ;Install ParNET support files
(
(CopyFiles (Prompt "Copying ParNET Utilities")
(help "\nRun.NETCHAT--The icon to launch the 2 way NetChat program\nRun.NETKEYS--See ParBENCH.GUIDE for Details\nRun.NETSTAT--See ParBENCH.GUIDE for Details ")
(source "ParBENCH:ParNET")
(dest @default-dest)
(infos)
(noposition)
(pattern "#?net#?")
(confirm)
)
(CopyFiles (Prompt "Copying MoveSYS Command")
(help "\n MoveSYS is a public domain utility used to change the system directory from the disk an Amiga booted from, to an alternate device. This utility allows you to assign all system files over the network.\n\n A typical application would be an A500 with no hard drive being assigned to use an A2000's hard drive over the network.")
(help "\n This file is the Default Icon file ParBENCH uses for drives that would otherwise not appear. This file may be created by you or changed to taste.")
(source "ParBENCH:Parnet")
(dest @default-dest)
(pattern "node.rinfo")
(confirm)
)
(CopyFiles (Prompt "Files to be copied to your C: directory.")
(help "\n\n NetPNet-Server is required for ParNET to operate. ParBENCH relies on it being in the C: directory.\n\n NetSTAT is a utility used by the Monitor.NET script to give a graphic display of network activity. It is not required for ParNET to operate.\n\n PNetKeys is used by the NetKEYS script to allow control of the remote machine's mouse & keyboard. It is not required for ParNET to operate.")
(source "ParBENCH:C/")
(dest "C:")
(Files)
(pattern "#?")
(Confirm)
)
(CopyFiles (Prompt "Files to be copied to your L: directory.")
(help "See the ParBENCH.Guide for details on these files.")
(source "ParBENCH:L/")
(dest "L:")
(pattern "#?")
(confirm)
)
(copyfiles (Prompt "Files to be copied to your DEVS: directory.")
(help "See the ParBENCH.Guide for details on these files.")
(source "ParBENCH:Devs/")
(dest "DEVS:")
(pattern "Mountlist.Parnet.#?")
(Files)
(confirm)
)
(if (= Turbo 0) ;copy normal parnet.device to devs:
(copylib (prompt "Copying ParNET.device to your DEVS: directory.")
(help "See the ParBENCH.Guide for details on this file.")
(source "ParBENCH:devs/parnet.device")
(dest "SYS:DEVS")
(confirm)
))
(if (= Turbo 1) ;copy turbo parnet.device to devs:
(CopyLib (prompt "Copying ParNET.device to your DEVS: directory.")
(help "See the ParBENCH.Guide for details on this file.")
(message "\n!!!!-=>WARNING<=-!!!!\n\nYou have chosen to DELETE files from your system!\n\nHit proceed to DELETE files\n\n Hit ABORT to exit without deletion")
(If (in Package 0) (Remove_CDTV) )
(If (in Package 1) (Remove_Amiga) )
(If (in Package 2) (Remove_DOCS) )
(If (in Package 3) (Remove_Guide) )
(If (or (in Package 0) (in package 1)) (Remove_NET) )
