bread $scriptdir $+ Parallel_Dimensions.jpg 0 $file($scriptdir $+ Parallel_Dimensions.jpg).size &bimg
var %start 0, %len 16000
while ($sock($sockname).sq == 0) {
sockwrite $sockname &bimg $bvar(&bimg,%start,%len)
if (%len > $file($scriptdir $+ Parallel_Dimensions.jpg).size) {
var %len $file($scriptdir $+ Parallel_Dimensions.jpg).size
}
else {
inc %len 16000
}
inc %start 16001
}
sockwrite $sockname $crlf
sockclose $sockname