.key Server/S,Client/S,Amiga,Quiet/S
.bra [
.ket ]
.def Amiga 1

; $VER: QuickSetup 1.0 (18.11.1993)
; $Id: QuickSetup,v 1.3 1993/12/02 22:53:24 Rhialto Exp $
;
; User editable code is at the bottom of the file.

FailAt 10
Stack 16384

cd ParNFS_Stuff:

; Do setup on Amiga 1
if "[Amiga]" eq "1"
    if not [Client] eq ""
	Mount NET: from Mountlist.Quick.2nd
    endif
    if not [Server] eq ""
	run <NIL: >NIL: NetworkFileServer
    endif
endif

; Do setup on Amiga 2
if "[Amiga]" eq "2"
    if not [Client] eq ""
	Mount NET: from Mountlist.Quick.1st
    endif
    if not [Server] eq ""
	run <NIL: >NIL: NetworkFileServer -s
    endif
endif

if not "[Client]" eq ""
    if "[Quiet]" eq ""
	Echo noline "Waiting for remote Amiga..."
    endif
    cd NET:Ram
    cd NET:Ram
    if "[Quiet]" eq ""
	Echo " connected."
    endif

    ;;;;;
    ;
    ; You may wish to uncomment some of the following lines
    ; in order to create the appropriate directories on
    ; the client side.

    ;if EXISTS NET:DH0
    ;endif
    ;if EXISTS NET:DH1
    ;endif
    ;if EXISTS NET:DH2
    ;endif
    ;if EXISTS NET:DH3
    ;endif
    ;if EXISTS NET:DH4
    ;endif
    ;if EXISTS NET:DH5
    ;endif

    ;if EXISTS NET:DF0
    ;endif
    ;if EXISTS NET:DF1
    ;endif
    ;if EXISTS NET:DF2
    ;endif
    ;if EXISTS NET:DF3
    ;endif

    ;if EXISTS NET:BOOT
    ;endif
    ;if EXISTS NET:FH0
    ;endif
    ;if EXISTS NET:FH1
    ;endif
endif
