Code:
srnd(@msec)
$Pick = 4 ; how many do you want
$Counter = 0
Open(1,"c:\file.txt)
$Line = Readline(1)
While @error = 0
  redim preserve $Array[$Counter]
  $Array[$Counter] = $Line
  $Counter = $Counter + 1
  $Line = Readline(1)
Loop

$Size = Ubound($Array)

For $Output = 0 to $Pick
 ? $Array[Rnd[$size]
Next
_________________________
Today is the tomorrow you worried about yesterday.