sub change_text
 {
 use bytes;
 my $s= 'x'x256;
$getTextF->Call ($handle, $s, 128);
# substr ($s,46,2, "\x22\x21");
#substr ($s,40,2, "\x22\x21");
$setTextF->Call ($handle, $s);
$s =~ tr/\0 /.-/;
print $s;
 }