Select Code to Download

 78: sub TextFmt {
 79:     my ( $oThis, $sTxt, $sCode ) = @_;
 80:     return $sTxt if ( ( !defined($sCode) ) || ( $sCode eq '_nativ
+e_' ) );
 81:     return pack( 'U*', unpack( 'n*', $sTxt ) );
 82: }