;
;********************************************************
;*                                                      *
;*     © Kev Kitching 1996 - ALL RIGHTS RESERVED        *
;*                                                      *
;*        FirstNet Installer for Amiga Format           *
;*                                                      *
;********************************************************

;********************************************************
;  WELCOME - EVERYBODY'S GONE SURFIN', SURFIN' USA...
;********************************************************


REQUESTCHOICE >ENV:GO "FirstNet Install" "*NInstallation process written for Amiga Format*Nby Kev Kitching ©1996*N*Ne-mail kevk@firstnet.co.uk*N*NSupport 10:00 - 17:00 (0113 294 4224)*N" "Proceed|Abort"
if not $go eq 0

REQUESTCHOICE >ENV:GO "FirstNet Install" "*NThis installation takes approx 2 minutes*N*Non a 68030 Amiga with Kickstart 3.1*N*NPlease be patient...*N " "Proceed|Abort"
if not $go eq 0

COPY FROM AFCD2:Comms/FirstNet/C TO RAM: ALL QUIET    ; ENSURE ALL COMMANDS CAN BE USED !



;********************************************************
;  SET-UP THE BOOT PARTITION SO THAT THIS MOTHER WORKS...
;********************************************************



REQUESTCHOICE >ENV:GO "FirstNet Install" "*NThis installation requires*N*N5 MB free space on your hard-disk *n*NDo you wish to proceed ?*N " "Proceed|Quit"

if not $go eq 0
RAM:lha -q e AFCD2:Comms/FirstNet/Part00.lha sys:     ; SET-UP INTERNET CUSTOM SUBSYSTEM
RAM:lha -q e AFCD2:Comms/FirstNet/Part01.lha sys:     ; SET-UP INTERNET COMMON SUBSYSTEM
c:rename sys:s/User-Startup sys:s/User-Startup.old

REQUESTCHOICE >env:go "FirstNet Install" "*NPlease indicate the Device Name of your Boot Partition...*N " "WB_2.x:|WB_3.x:|DH0:"

IF $GO EQ 1
COPY AFCD2:Comms/FirstNet/S/USER-STARTUP.CBM SYS:S/USER-STARTUP.NEW ;SET-UP INTERNET SUBSYSTEM                                                                       ;(COMMODORE CONTROLLER - WB2)
ENDIF

IF $GO EQ 2
COPY AFCD2:Comms/FirstNet/S/USER-STARTUP.CBM SYS:S/USER-STARTUP.NEW ;SET-UP INTERNET SUBSYSTEM                                                                       ;(COMMODORE CONTROLLER - WB3)
ENDIF

IF $GO EQ 0
COPY AFCD2:Comms/FirstNet/S/USER-STARTUP.STD SYS:S/USER-STARTUP.NEW ;SET-UP INTERNET SUBSYSTEM                                                                       ;(STANDARD CONTROLLER)
ENDIF

JOIN SYS:S/USER-STARTUP.OLD SYS:S/USER-STARTUP.NEW AS SYS:S/USER-STARTUP
DELETE SYS:S/USER-STARTUP.NEW quiet



;********************************************************
;  SET-UP THE BIG COMPLICATED BIT! (fingers crossed now...)
;********************************************************


REQUESTCHOICE >env:go "FirstNet Install" "*NPlease indicate the Device Name of your main partition...*N " "Work:|DH1:"

IF $GO EQ 1
MAKEDIR WORK:InterNet
copy ram:drawer.info Work:InterNet.info
MAKEDIR WORK:InterNet/Downloads
Assign InterNet: Work:InterNet
ENDIF

IF $GO EQ 0
MAKEDIR DH1:InterNet
copy ram:drawer.info DH1:InterNet.info
MAKEDIR DH1:InterNet/Downloads 
Assign InterNet: DH1:InterNet
ENDIF


;********************************************************
;	Drop the Correct bits in the CORRECT drawer !
;********************************************************


RAM:lha -q e AFCD2:Comms/FirstNet/Part02.lha InterNet:
RAM:lha -q e AFCD2:Comms/FirstNet/Part03.lha InterNet:
RAM:lha -q e AFCD2:Comms/FirstNet/Part04.lha InterNet:
RAM:lha -q e AFCD2:Comms/FirstNet/Part05.lha InterNet:
RAM:lha -q e AFCD2:Comms/FirstNet/Part06.lha InterNet:
RAM:lha -q e AFCD2:Comms/FirstNet/Part07.lha InterNet:
RAM:lha -q e AFCD2:Comms/FirstNet/Part09.lha InterNet:
copy AFCD2:Comms/FirstNet/Part08.lha ram:


;********************************************************
;	Set the Modem Prefs correctly
;********************************************************


REQUESTCHOICE >ENV:GO "FirstNet Install" "*NPlease select the speed of your Modem...*N " "14400|28800"

IF $GO EQ 1
RENAME SYS:PREFS/ENV-ARCHIVE/SANA2/PPP0.CONFIG.14400 TO SYS:PREFS/ENV-ARCHIVE/SANA2/PPP0.CONFIG
ENDIF

IF $GO EQ 0
RENAME SYS:PREFS/ENV-ARCHIVE/SANA2/PPP0.CONFIG.28800 TO SYS:PREFS/ENV-ARCHIVE/SANA2/PPP0.CONFIG
ENDIF


;********************************************************
;	Set up IRC section (Not essential)
;********************************************************


REQUESTCHOICE >ENV:GO "FirstNet Install" "*NDECISION TIME...*N*NDo you wish to install the Internet Relay Chat (IRC) ?*N*NThese bits are NOT essential...*N " "Install|Skip"

IF $GO EQ 1
RAM:lha -q e RAM:Part08.lha InterNet:			; Loaded during main install
DELETE RAM:Part08.lha quiet				; Bin it - no longer needed !
endif


;********************************************************
;	Set up A-Mosaic 1.4 for Kickstart 2 Machines
;********************************************************


REQUESTCHOICE >ENV:GO "FirstNet Install" "*NIf you are using Kickstart 2*Nyou will need to install*Nan earlier version of AMosaic*N*NKickstart 3.x users don't need it...*N " "Install|Skip"

IF $GO NOT EQ 0
delete InterNet:AMOS#? quiet
delete InterNet:manuals/amos#? all quiet
RAM:lha -q e AFCD2:Comms/FirstNet/Part10.lha InterNet:
endif

;********************************************************
;	So it's goodbye from me....
;********************************************************



;********************************************************
;	Something to read perhaps ?
;********************************************************

VERSION >NIL: 39
IF WARN
   AMIGAGUIDE AFCD2:Comms/FirstNet/Net.GUIDE
ELSE
   MULTIVIEW AFCD2:Comms/FirstNet/Net.GUIDE
ENDIF


REQUESTCHOICE >ENV:GO "FirstNet Install" "*NAll Finished then...*n*nREMEMBER TO READ THE Net.GUIDE*N*NYou will also need to set-up 3 files*Nthat are in the 'Customise' drawer*N*NPress O.K. to Re-Boot...*N " "O.K."
IF $GO EQ 0
REBOOT
endif
 

;********************************************************
;	And it's goodbye from him....
;********************************************************


IF $GO EQ 0
REBOOT
ENDIF
ENDIF
ENDIF
ENDIF

;************************************************************
;	Phew, all done & dusted - Now I can go walk the Dog !
;************************************************************