home *** CD-ROM | disk | FTP | other *** search
- .key ""
- echo "*e[33mCDTV Host Connect Script V3.0 by Vernon Graner *e[31m"
- echo " "
-
- echo "Checking for Local ParNET-Drivelist... *e[32m"Noline
- if exists s:parnet-drivelist
- echo "OK*e[31m"
- echo "Copying DriveList 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 "Checking for Remote ParNET-Drivelist... *e[32m"NoLine
- If Exists NET:RAM/ParNET-DriveList
- echo "OK*e[31m"
- Echo "Activating Network Icons... *e[32m"NoLine
- Copy SYS:Parnet/node.rinfo to RAM:
- Execute NET:RAM/ParNET-DriveList
- Delete NET:RAM/ParNET-Drivelist
- echo "OK*e[31m"
- Else
- echo "NOT FOUND!*e[31m"
- echo "Setting up CDTV"NoLine
- COPY SYS:Parnet/Node.rinfo to NET:RAM/node.rinfo
- echo "."NoLINE
- Copy SYS:Parnet/node.rinfo to RAM:
- 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
- copy devs:mountlist.ParNET.mouse to devs
- EndIF
- echo "."NoLINE
- If NOT exists NET:RAM/L
- MakeDIR L
- copy l:mouse-handler to l
- EndIF
- echo "."NoLINE
- If NOT exists NET:RAM/C
- MakeDIR C
- copy C:Inform NET:RAM/c
- echo "."NoLine
- copy C:NetPatch NET:RAM/c
- echo :."NoLine
- copy C:ReBoot NET:RAM/c
- echo "."noLine
- copy C:Receive NET:RAM/c
- echo "."noLine
- copy C:Send NET:RAM/c
- echo "."noLine
- EndIF
- 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 "."
- 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 "Starting INFORM command for NetUTILS... *e[32m"NoLine
- run >nil: inform
- echo "OK*e[31m"
-
- Echo "Applying NetPATCH... *e[32m"NoLine
- netpatch net:
- echo "*e[31m"
-
- echo ""
- echo "Done."
- wait 3
-