home *** CD-ROM | disk | FTP | other *** search
- /* FACTS ARexx install script: quits running FACTS, and loads new one
- ** $VER: FACTS_Install.rexx 1.0 (22.11.98)
- */
-
- /* ARG filename */
- OPTIONS RESULTS
-
- if show(ports,FACTS) then ADDRESS FACTS 'QUIT'
-
- ADDRESS COMMAND 'WBRun FACTS'
-
- ADDRESS COMMAND 'WaitForPort FACTS'
-
- ADDRESS FACTS 'GETTIME'
-
- open(0,'T:TIME','W')
- writeln(0,RESULT)
- close(0)
-
- ADDRESS FACTS 'SHOW'
-
-