; InstallTCP
; ©1995 Magne & Kjell
; ALL(!) Rights Reserved.

avail flush >nil:
set TP `getenv THOR/THORPATH`
set CD `cd`
cd "$TP"
echo "Installing new files"
Copy >NIL: "$CD/bin/#?tcp#?" bin/
Copy >NIL: "$CD/s/cfgtcp" s/
Copy >NIL: "$CD/libs/utgui.library" libs/
Copy >NIL: "$CD/bin/ConnectThor(%|.info)" ""
Protect s/cfgtcp +s
Execute s/cfgtcp
cd "$CD"
echo Done
quit