.key ""
echo "*e[33mCDTV Connect Script V1.0 by Vernon Graner	*e[31m"
echo " "

echo "Checking for Drive List in the S: directory..	*e[32m"Noline
if exists S:ParNET-DriveList
  echo "OK*e[31m"
  echo "Copying Drive List for Remote reference...	*e[32m"Noline
  copy S:ParNET-DriveList to RAM:
  echo "OK*e[31m"
else
  echo "NOT FOUND!*e[31m"
endif

Echo "Starting NetPNET-Server...			*e[32m"NoLine
NETPNET-SERVER UNIT 1
Echo "OK*e[31m"

Echo "Mounting NET: Device...				*e[32m"NoLine
MOUNT NET: FROM DEVS:MountList.ParNET.Host
echo "OK*e[31m"

echo "Waiting for Network Connection...		*e[32m"Noline
CD NET:RAM
echo "OK*e[31m"

Echo "Activating Net Icons...				*e[32m"NoLine
If Exists NET:RAM/ParNET-DriveList
  Execute NET:RAM/ParNET-DriveList
  echo "OK*e[31m"
Else
  echo "OK "
  echo "FFV1.5 Setting Up"NoLINE
  COPY SYS:Parnet/Node.rinfo to NET:RAM/node.rinfo 
  echo "."NoLINE
  cd NET:CD0
  echo "."NoLINE

;  ****** The following makes PNETKeys work with FFCD V1.5 from Hypermedia *****
  CD NET:RAM 
   echo "."NoLINE
  IF NOT exists NET:RAM/DEVS
    MakeDIR DEVS 
  EndIF
   echo "."NoLINE
  If NOT exists NET:RAM/L
  MakeDIR L
  EndIF
   echo "."NoLINE
  copy devs:mountlist.ParNET.mouse to devs
   echo "."NoLINE
  copy l:mouse-handler to l
   echo "."NoLINE
  copy l:netpnet-handler to l
   echo "."NoLINE
  copy sys:ParNET/CDTV.NetKeys to net:ram/CDTV.NetKeys
   echo "."NoLINE
  copy sys:ParNET/CDTV.NetKeys.inf to net:ram/CDTV.NetKeys.info
   echo "."NoLINE
  Assign CD0: NET:CD0
   echo ".                    OK *e[31m"
; ******************************* End of Section *******************************


EndIF

Echo "Mounting MOUSE: device for PNetKeys...		*e[32m"NoLine
mount MOUSE: from Devs:Mountlist.ParNET.Host
echo "OK*e[31m"

echo ""
echo "Done."
wait 3