define printqstring set $i=0 set $length=60 # hold up to 80 characters at a time set $out="\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" set $a = &$arg0.d->unicode[0].cl set $stop = $arg0.d->len # find a multiple of $length to print set $whole = $arg0.d->len/$length set $whole *= $length set $cur = 0 set $incur = 0 # take care of multiples of $length while $incur < $whole set $cur = 0 while $cur < $length set $out[$cur++] = $a[$incur++ <<1] end output $out end set $out="\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" set $cur = 0 while $incur < $stop set $out[$cur++] = $a[$incur++ <<1] end if $out[0] printf "\n" output $out end printf "\n" end