home *** CD-ROM | disk | FTP | other *** search
- .key fil,source,dest
- .def source /tools/
- .def dest C:
- .bra {
- .ket }
-
- echo "{fil}"
- echo " "
- echo "Version to install: " noline
- /tools/getver {source}{fil} words
-
- echo "Version currently installed: " noline
- /tools/getver {dest}{fil} words
- echo "Destination: {dest}"
-
-
- unsetenv ropa
- list >env:ropa /tools/docs/{fil}#? lformat %n
-
- if "$ropa" EQ ""
- echo " "
- {source}{fil} ?
- else
- run >nil: execute readdoc $ropa
- endif
-
-