alias testvnc {
  sockopen VNC %vncip 5900
  .timervnc 1 3 aliasclose
}
on 1:sockopen:VNC: { echo -s %vncip 
  sockclose VNC
  .timervnc off
  randomip
}
alias randomip {
  if (%on == $true) {
    :getip
    %vncip = $gettok($read(13-10-2006.txt),3,32)
    if (%vncip = $chr(40)) goto getip
    testvnc
  }
}

alias aliasclose {
  sockclose VNC
  randomip
}

alias start {
  %on = $true
  echo -s Starting testing
  randomip
}

alias stop {
  %on = $false
  echo -s Stopping testing
}