/* $VER: CyberClock reinstall script 1.0
   Copyright © 2000 by Nikola Smolenski */

if open(f,"S:CyberClock.reinstall",r) then do
  address command
  'C:Copy CyberClock "'readln(f)'"'
  'C:Copy CyberClock.guide "'readln(f)'"'
  call close(f)
  say "CyberClock reinstalled"
end