.bra {
.ket }

; Print menu for networking usage
	
	textHeader
	textEcho "Network Setup" BOLD CENTER
	textLine 3
	
	textEcho "1 - Mount PC2Amiga using Serial Cable" NORMAL 15
	textEcho "2 - Mount PC2Amiga using Parallel 4-wire Laplink Cable" NORMAL 15
	textEcho "3 - Mount PC2Amiga using Parallel 8-wire Custom Cable" NORMAL 15
	textEcho "4 - Do not mount PC2Amiga - dump to HD (via RAM)" NORMAL 15
	textLine
	textEcho "H - Help" NORMAL 15
	
	textLine 6
	
	echo "Choice: " NOLINE
	setenv >nil: choice ?
	
	if $choice EQ 1                ; Serial

		mount PCS:
		setenv PC2AMIGA "true"
		setenv DUMPDEST `requestfile PCS: TITLE="Select PC path:" DRAWERSONLY`
		setenv COPYDEST "$DUMPDEST"
		menuTest
		
	else

		if $choice EQ 2            ; 4-wire Parallel

			mount PCP:
			setenv PC2AMIGA "true"
			setenv DUMPDEST `requestfile PCP: TITLE="Select PC path:" DRAWERSONLY`
			setenv COPYDEST "$DUMPDEST"
			menuTest
			
		else

			if $choice EQ 3        ; 8-wire Parallel

				mount PCC:
				setenv PC2AMIGA "true"
				setenv DUMPDEST `requestfile PCC: TITLE="Select PC path:" DRAWERSONLY`
				setenv COPYDEST "$DUMPDEST"
				menuTest
	
			else

				if $choice EQ 4        ; Check 4Mb RAM available

					doCheckRAM
					
					if `getenv MEMOKAY` EQ "true"
						setenv PC2AMIGA "false"
						setenv DUMPDEST "T:"
						setenv COPYDEST `requestfile . TITLE="Select device or path:" DRAWERSONLY`
						menuTest
					else
						menuNetwork
					endif
					
				else

					if $choice EQ "h"  ; Help
						help menuNetwork
					else
						; Other
						menuNetwork	
					endif

				endif
			endif
		endif
	endif
	
	; @todo Test PC2Amiga is working properly for: PCS: PCC: devices