var %x = $sock($sockname).rcvd while ($true) { sockread &bvar inc %x $sockbr if ($sockbr == 0 || %x >= %THEFILESIZE) break }