Hmm. I hate it when this happens. You are printing the number in its *decimal* representation, not the octal. To see the mode in octal, you need printf:

printf "Mode(%04o) $username(%s) $grpname(%s)\t%d bytes  %d blocks\n",
+ $mode, $uid, $gid, $size, $blocks;
[download]

should show you what you are expecting.

mikfire