;************************************************************
;*                                                          *
;*		Internet Un-Install v2.02                   *
;*		© Kev Kitching 1996                         *
;*                                                          *
;************************************************************          

;************************************************************
;		Initial warning of removal
;************************************************************

copy AFCD2:Comms/FirstNet/c ram: all quiet

REQUESTCHOICE >ENV:GO "FirstNet Removal" "*NThis utility will remove ALL Internet components !*N " "Continue|Oops!"
IF $GO EQ 0
   ELSE
   
;************************************************************
;		Give secondary warning
;************************************************************

   REQUESTCHOICE >ENV:GO "FirstNet Removal" "*NThis is definitely your LAST CHANCE....*N " "Continue|Abort"
      IF NOT $GO EQ 0
      IF EXISTS SYS:S/USER-STARTUP.OLD
      DELETE SYS:S/USER-STARTUP QUIET  
      RENAME SYS:S/USER-STARTUP.OLD TO SYS:S/USER-STARTUP QUIET
      ENDIF
        DELETE SYS:C/loadlib QUIET
        DELETE SYS:C/UUPack QUIET
        DELETE SYS:C/UUSplit QUIET
        DELETE SYS:C/UUxT QUIET
        DELETE SYS:L/apipe-handler QUIET
        DELETE SYS:L/inet-handler QUIET
        DELETE SYS:LIBS/bgui.library QUIET
        DELETE SYS:LIBS/socket.library QUIET
        DELETE SYS:PREFS/env-archive/mosaic ALL QUIET
        DELETE SYS:PREFS/env-archive/SANA2 ALL QUIET
        DELETE SYS:PREFS/ENV-ARCHIVE/MUI ALL QUIET
        DELETE SYS:PREFS/ENV-ARCHIVE/THOR ALL QUIET
        DELETE SYS:PREFS/env-archive/DOMAINNAME QUIET
        DELETE SYS:PREFS/env-archive/LAUNCHTCP.CFG QUIET
        DELETE SYS:PREFS/env-archive/SOCKETCONFIG QUIET
        DELETE SYS:PREFS/env-archive/USER QUIET
	DELETE SYS:PREFS/JFI#? QUIET
	DELETE SYS:DEVS/DATATYPES/JFI#? QUIET
	DELETE SYS:DEVS/DATATYPES/JFI#? QUIET
	DELETE SYS:DEVS/NETWORKS ALL QUIET
	DELETE SYS:DEVS/APIPE-MOUNTLIST QUIET
	DELETE SYS:DEVS/INET-MOUNTLIST QUIET
	DELETE SYS:CLASSES/DATATYPES/JFI#? QUIET
	DELETE SYS:UTILITIES/AMIGAGUIDE QUIET
	DELETE SYS:S/mosaic-global-history QUIET
        DELETE SYS:S/playmod.rexx QUIET
        DELETE SYS:S/ProcessFile.rexx QUIET
        DELETE SYS:S/soxaudio.rexx QUIET
	ASSIGN BIN: remove
	ASSIGN MUI: remove
	ASSIGN LIBS: remove
	DELETE AMITCP:MUI ALL QUIET
	DELETE AMITCP:A#? ALL QUIET
	DELETE AMITCP:C#? ALL QUIET
	DELETE AMITCP:Data ALL QUIET
	DELETE AMITCP:DB ALL QUIET
	DELETE AMITCP:Devs ALL QUIET
	DELETE AMITCP:G#? ALL QUIET
	DELETE AMITCP:S#? ALL QUIET
	DELETE AMITCP:T#? ALL QUIET

REQUESTCHOICE >ENV:GO "FirstNet Removal" "*NYour system is now restored....*NAfter re-booting, Simply delete the FirstNet drawer*N " "RE-BOOT"

IF $GO EQ 0
REBOOT
ENDIF
endif
endif 
endif

;************************************************************
;		All done - break out the kleenex
;************************************************************