Forums Scripts & Popups Copying random lines from txt file w/o duplicates

alias select6 {
  var %lines = ""
  var %num = ""
  var %i = 1
  var %fileL = $lines(overthehill.txt)
  :start
  var %num = $r(1,%fileL)
  if (%num isin %lines) { goto start }
  var %lines = %lines %num
  inc %i
  if (%i > 6) { goto next }
  else goto start
  :next
  var %i = 1
  while (%i <= 6) {
    echo -a $read(overthehill.txt,$gettok(%lines,%i,32))
    inc %i
  }
}

alias example {
  var %list
  var %i = 6
  while (%i) {
    var %text = $read(firstfile.txt,nt) | while ($istok(%list,$readn,32)) { var %text = $read(firstfile.txt,nt) }
    var %list = %list $readn
    write secondfile.txt %text
    dec %i
  }
}