#!/usr/bin/perl

# Copyright 2011 - David Westbrook - KJ4IZW
# Freeware for non-commerical use

=pod

Translate string to send:
* Insert FIGS shift at any Letter-to-Figure boundry
* Insert LTRS shift at any Figure-to-Letter boundry
* if USOS: insert FIGS shift for space-to-Figure
* if USOS: remove shift for any space-LTRS instances
* Flag any illegal characters
  
Count characters:
* remove illegal chars
* replace LTRS and FIGS as single temp chars
* take string length

Calculate time:
* time_sec = 
	char_count
	* (5 + 1 + STOPBITS)		bits/char: 5 data, 1 start, N stop
	/ 45.5		bits per second


~~~~~~~~~~~~~~
References:
Chapter 16 of the 2010 and 2011 ARRL Handbook.
http://en.wikipedia.org/wiki/Baudot_code
http://en.wikipedia.org/wiki/Asynchronous_serial_communication
http://en.wikipedia.org/wiki/Serial_port#Stop_bits

=cut

use strict;
use warnings;
#use lib qw{
#  /kunden/homepages/12/d93966548/htdocs/local/lib/perl/5.8.8
#  /kunden/homepages/12/d93966548/htdocs/local/lib/perl/5.8.8/i486-linux-gnu-thread-multi
#};
use lib qw{
	/kunden/homepages/12/d93966548/htdocs/local/lib/perl/5.10.1
	/kunden/homepages/12/d93966548/htdocs/local/share/perl/5.10.1
	/kunden/homepages/12/d93966548/htdocs/local/lib/perl5
};
use Template;
use CGI::Simple;

my $q = CGI::Simple->new;

if(  $q->param('src') ){
  print $q->header('text/plain');
  open FILE, '<', $0;
  while(<FILE>){ print };
  close FILE;
}

my %data = (
  msg  => $q->param('msg') || q+
599 0123 0123
599-0123-0123
TU 1D SC
 W7AY 599 599 KJ4IZW 
KJ4IZW
kj4izw
+,
  stop_bits  => $q->param('stop_bits') || 1,
  usos  => defined $q->param('usos') ? $q->param('usos') : 1,
  mode => $q->param('mode') || 'RTTY',
  showbitflips => $q->param('showbitflips') ? 1 : 0,
);

@{$data{lines}} = map {
		process_string( $_, $data{stop_bits}, $data{usos} )
	} grep {
		length $_
	} split /[\r\n]+/, $data{msg};
if( $data{mode} eq 'PSK31' && $q->param('showbitflips') ){
  my %char2varicode = varicode_mapping();
  my %varicode2char;
  @varicode2char{ values %char2varicode } = keys %char2varicode;
  @{$data{lines}} = map {
      my $line = $_;
      my $psk = $line->{psk_sent};
      my @alt_msgs;
      foreach my $i ( 0 .. length($psk)-1 ){
	my $s = [ split '', $psk ];
	$s->[$i] = $s->[$i] ? 0 : 1;
	$s = join '', map { exists $varicode2char{$_} ? $varicode2char{$_} : chr(164) } split /00+/, join('',@$s);
	push @alt_msgs, $s;
      }
      ( $line, map { process_string( $_, $data{stop_bits}, $data{usos} ) } @alt_msgs )
    } @{$data{lines}};  
}
$_->{msg_html} = color_code($q, $_->{msg}) for @{$data{lines}};
$_->{sent_html} = color_code($q, $_->{sent}) for @{$data{lines}};
$_->{psk_html}  = do { my $s = $_->{psk_sent}; $s =~ s#00#<span class="space">$&</span>#g; $s } for @{$data{lines}};
$_->{cw_html}  = do {
	my $s = $_->{cw_sent};
	$s =~ s#[^-. _:]+#<span class="bad">$&</span>#g;
	$s =~ s#:#<span class="space"> </span>#g;
	$s =~ s#_#<span class="char_gap"> </span>#g;
	$s =~ s#(?<=[-.])[-.]#<span class="intrachar_gap">$&</span>#g;
	$s
} for @{$data{lines}};

print $q->header;
my $template = Template->new;
$template->process( \*DATA, \%data ) or print $template->error;

exit;
##################################################################

sub color_code {
  my ($q, $s) = @_;
  $s = $q->escapeHTML($s);
  $s =~ s#&lt;FIGS&gt;#<span class="figs">%</span>#g;
  $s =~ s#&lt;LTRS&gt;#<span class="ltrs">@</span>#g;
  $s =~ s#&lt;space&gt;#<span class="space"> </span>#g;
  $s =~ s#&lt;BAD:(.{1,8})&gt;#<span class="bad">$1</span>#g;
  $s =~ s#\xA4#<span class="bad">$&</span>#g;  # chr(164)
  return $s;
}

sub process_string {
  my ($msg, $stop_bits, $usos) = @_;

  ########################################################################
  my $sent = uc $msg;
  # Bad chars: * % @ [ ] { } \+ = \\ | ` ~ < >
  my $reL = q{AQWERTYUIOPSDFGHJKLZXCVBNM} . "\r\n"; # . ($usos?'':' ');
  my $reF = q{-1234567890'$!&#'()"/:;?,.} . "\r\n"; # . ($usos?'':' ');
  my $charset = $reF . $reL . ' ';
  # note: make sure that any "-" is first in the charsets, otherwise becomes a range.

  $sent =~ s/((?:[$reL]|^) *)([$reF])/${1}<FIGS>${2}/sg;
  $sent =~ s/((?:[$reF]|^) *)([$reL])/${1}<LTRS>${2}/sg;
# functional; but not worrying about newlines at the moment.
## Remove excess shifts, e.g. LTRS-newline-FIGS (or LTRS-space-FIGS if USOS off)
#  $sent =~ s/<LTRS>([\r\n])<FIGS>/$1/sg;
## Remove any shifts at very end
#  $sent =~ s/(<LTRS>|<FIGS>)(?:[\r\n]+)$//s;
  if( $usos ){
    # since LTRS after space is implicit.
    $sent =~ s/( )([$reF])/$1<FIGS>$2/sg;
    $sent =~ s/ <LTRS>/ /g;
  }
  $sent =~ s/(?<!<(?:FIGS|LTRS))([^$charset])(?!(?:FIGS|LTRS)>)/<BAD:$1>/sg;
  $sent =~ s/ /<space>/g;
  my $sent_length = length do { local $_=$sent; s/<(LTRS|FIGS|space)>/+/g; s/<BAD:.>//sg; $_ };
  my $sent_time = sprintf '%.2f',  # ==> time in seconds.
	$sent_length # char
	* (5 + 1 + $stop_bits) 	# bits/char: data + start + stop
	/ 45.5 # bits/sec
  ;
  ########################################################################

  ########################################################################
  # http://en.wikipedia.org/wiki/PSK31#Technical_information
  my %refV = varicode_mapping();
  my @L =
	map { $refV{$_} }
	split //, $msg
  ;
  my $psk_bits = 2 * ( scalar(@L) - 1 );   # two 0's between each letter.
  $psk_bits += length $_ for @L;
  my $psk_time = sprintf '%.2f', 0.032 * $psk_bits;  # 32ms per bit;  time in seconds
  ########################################################################

  ########################################################################
  # http://en.wikipedia.org/wiki/Morse_code
  #	dot		1 unit
  #	dash		3 units
  #	parts spacing	1 unit
  #	letter spacing	3 units
  #	word spacing	7 units
  ###
  my %refCW = cw_mapping();
  my @WORDSCW = split /( +)/, $msg;
  my $cw_units = 0;
  $cw_units += 7 * length($_) for grep { / / } @WORDSCW;  # each space is 7 units
  $cw_units += 3 * (length($_)-1) for grep { /[^ ]/ } @WORDSCW; # for N-letter word, N-1 spacings between letters, at 3 units each.
  my @LETTERSCW =
	map { $refCW{uc $_} || $_ }
	split //, $msg
  ;
  my @LCW = map { split //, $_ } @LETTERSCW;
  $cw_units += 1 * scalar grep { $_ eq '.' } @LCW; # 1 unit  per dot
  $cw_units += 3 * scalar grep { $_ eq '-' } @LCW; # 3 units per dash
  $cw_units += 1 * (length($_)-1) for grep { /[^ ]/ } @LETTERSCW; # for N-signal letter, N-1 spacings between signals, at 1 unit each.
  my $cw_sent = join '_', @LETTERSCW;
  $cw_sent =~ s/(_ )/ /g;
  $cw_sent =~ s/( _)/ /g;
  $cw_sent =~ s/ /:/g;
  my $cw_signal_ct = scalar grep { /[-.]/ } @LCW;
  my $cw_time = sprintf '%.2f', 0.060 * $cw_units;  # 60ms per unit for 20WPM;  time in seconds
  ########################################################################
#use Data::Dumper;do{print "Content-type: text/plain\n\n"; print Dumper [ $msg, $cw_signal_ct, $cw_time, $cw_units, $cw_sent, \@WORDSCW ]; exit} if $msg =~ /n8cl/;# $q->param('mode') eq 'CW';

  return {
	msg => $msg,
	sent => $sent,
	msg_length => length($msg),
	sent_length => $sent_length,
	sent_time => $sent_time,
	psk_length => $psk_bits,
	psk_time => $psk_time,
	psk_sent => join('00', @L),  # two 0's between each letter
	cw_length => $cw_units,
	cw_time => $cw_time,
	cw_sent => $cw_sent,
	cw_ct => $cw_signal_ct,
  }
}

sub varicode_mapping {
  return (
	# Glyph => Varicode
	# http://en.wikipedia.org/wiki/Varicode#Printable_characters
	' ' => '1',
	'!' => '111111111',
	'"' => '101011111',
	'#' => '111110101',
	'$' => '111011011',
	'%' => '1011010101',
	'&' => '1010111011',
	"'" => '101111111',
	'(' => '11111011',
	')' => '11110111',
	'*' => '101101111',
	'+' => '111011111',
	',' => '1110101',
	'-' => '110101',
	'.' => '1010111',
	'/' => '110101111',
	'0' => '10110111',
	'1' => '10111101',
	'2' => '11101101',
	'3' => '11111111',
	'4' => '101110111',
	'5' => '101011011',
	'6' => '101101011',
	'7' => '110101101',
	'8' => '110101011',
	'9' => '110110111',
	':' => '11110101',
	';' => '110111101',
	'<' => '111101101',
	'=' => '1010101',
	'>' => '111010111',
	'?' => '1010101111',
	'@' => '1010111101',
	'A' => '1111101',
	'B' => '11101011',
	'C' => '10101101',
	'D' => '10110101',
	'E' => '1110111',
	'F' => '11011011',
	'G' => '11111101',
	'H' => '101010101',
	'I' => '1111111',
	'J' => '111111101',
	'K' => '101111101',
	'L' => '11010111',
	'M' => '10111011',
	'N' => '11011101',
	'O' => '10101011',
	'P' => '11010101',
	'Q' => '111011101',
	'R' => '10101111',
	'S' => '1101111',
	'T' => '1101101',
	'U' => '101010111',
	'V' => '110110101',
	'W' => '101011101',
	'X' => '101110101',
	'Y' => '101111011',
	'Z' => '1010101101',
	'[' => '111110111',
	'\\' => '111101111',
	']' => '111111011',
	'^' => '1010111111',
	'_' => '101101101',
	'`' => '1011011111',
	'a' => '1011',
	'b' => '1011111',
	'c' => '101111',
	'd' => '101101',
	'e' => '11',
	'f' => '111101',
	'g' => '1011011',
	'h' => '101011',
	'i' => '1101',
	'j' => '111101011',
	'k' => '10111111',
	'l' => '11011',
	'm' => '111011',
	'n' => '1111',
	'o' => '111',
	'p' => '111111',
	'q' => '110111111',
	'r' => '10101',
	's' => '10111',
	't' => '101',
	'u' => '110111',
	'v' => '1111011',
	'w' => '1101011',
	'x' => '11011111',
	'y' => '1011101',
	'z' => '111010101',
	'{' => '1010110111',
	'|' => '110111011',
	'}' => '1010110101',
	'~' => '1011010111',
  );
}

sub cw_mapping {
  return (
	' ' => ' ',
	'A' => '.-',
	'B' => '-...',
	'C' => '-.-.',
	'D' => '-..',
	'E' => '.',
	'F' => '..-.',
	'G' => '--.',
	'H' => '....',
	'I' => '..',
	'J' => '.---',
	'K' => '-.-',
	'L' => '.-..',
	'M' => '--',
	'N' => '-.',
	'O' => '---',
	'P' => '.--.',
	'Q' => '--.-',
	'R' => '.-.',
	'S' => '...',
	'T' => '-',
	'U' => '..-',
	'V' => '...-',
	'W' => '.--',
	'X' => '-..-',
	'Y' => '-.--',
	'Z' => '--..',
	'0' => '-----',
	'1' => '.----',
	'2' => '..---',
	'3' => '...--',
	'4' => '....-',
	'5' => '.....',
	'6' => '-....',
	'7' => '--...',
	'8' => '---..',
	'9' => '----.',
	'.' => '.-.-.-',
	',' => '--..--',
	'?' => '..--..',
	"'" => '.----.',
	'!' => '-.-.--',
	'/' => '-..-.',
	'(' => '-.--.',
	')' => '-.--.-',
	'&' => '.-...',
	':' => '---...',
	';' => '-.-.-.',
	'=' => '-...-',
	'+' => '.-.-.',
	'-' => '-....-',
	'_' => '..--.-',
	'"' => '.-..-.',
	'$' => '...-..-',
	'@' => '.--.-.',
  );
}

__DATA__
<html>
<head>
<title>RTTY Message Length Calculator</title>
<style type="text/css">
  .current {
    background-color: yellow;
  }
  .desired {
    background-color: lightgreen;
  }
  body, table, tr, td, th, div, font, span, p {
    font-family: Arial;
    font-size: 10pt;
  }
  .results table {
	border: 1px solid black;
  }
  .results table th {
	vertical-align: bottom;
  }
  .results table td, .results table th {
    padding-right: 10px;
  }
  .results .len {
  }
  .results .time {
  }
  .results .msg_in, .results .msg_out, .baudot {
//    padding-left: 20px;
	font-family: monospace;
	white-space: nowrap;
  }
  .figs, .ltrs, .space, .bad {
	font-family: monospace;
	font-weight: bold;
	white-space: pre;
  }
  .figs {
	background-color: lightblue;
  }
  .ltrs {
	background-color: lightgreen;
  }
  .space {
	background-color: gray;
  }
  .char_gap {
	background-color: lightgrey;
  }
  .intrachar_gap {
	border-left: 2px solid lightgrey;
  }
  .bad {
	background-color: red;
  }
</style>
</head>
<body>
<h2>[% mode %] Message Length Calculator</h2>
<h3 style="margin-left:200px">Other modes:
		  <a href="?">RTTY</a>
		| <a href="?mode=PSK31">PSK31</a>
		| <a href="?mode=CW">CW</a>
	</h3>
<h3><i>David KJ4IZW</i></h3>

<div>
<form>
  Enter lines of exchanges to compare:<br>
  <textarea name="msg"  rows="5" cols="80">[% msg %]</textarea><br>

  <div style="float:left">
 [% IF mode == 'RTTY' %]
  Stop Bits:
  <select name="stop_bits">
    [% FOREACH x = [ 1, 1.4, 1.5, 2 ] %]
    <option value="[% x %]" [% 'SELECTED' IF stop_bits == x %]>[% x %]</option>
    [% END %]
  </select><br>

  Un-Shift-On-Space (USO):
  <select name="usos">
    <option value="1" [% 'SELECTED' IF usos == 1 %]>On</option>
    <option value="0" [% 'SELECTED' IF usos == 0 %]>Off</option>
  </select><br>
 [% END %]

 [% IF mode == 'PSK31' %]
  <input type="checkbox" value="1" [% 'CHECKED' IF showbitflips %] name="showbitflips"> Show all single-bit-flip variations.<br>
 [% END %]

  <input type="hidden" name="mode" value="[% mode %]">
  <input type="submit" value="Calculate">
  </div>

 [% IF mode == 'RTTY' %]
  <div style="float:left; margin-left: 50px">
	<a href="http://en.wikipedia.org/wiki/Baudot_code"
		>Baudot</a> Characters:<br>
	<table style="margin-left:25px">
	<tr><td>LTRS:</td><td class="baudot">QWERTYUIOPASDFGHJKLZXCVBNM</td></tr>
	<tr><td>FIGS:</td><td class="baudot">1234567890-'$!&#'()"/:;?,.</td></tr>
	</table>
  </div>
 [% END %]
  <br clear="all">

</form>
</div>


[% IF mode == 'RTTY' %]
<div class="results">
<h3>RTTY</h3>
<table>
<tr>
  <th>Text<br>Message</th>
  <th>Time<br>(sec)</th>
  <th>Text<br>Length</th>
  <th>Encoded<br>Length</th>
  <th>
	Encoded Message<br>
	&nbsp;&nbsp;
	<span class="ltrs">@=LTRS shift</span>
	&nbsp;&nbsp;
	<span class="figs">%=FIGS shift</span>
	&nbsp;&nbsp;
	<span class="space">space</span>
	&nbsp;&nbsp;
  </th>
</tr>
[% USE HTML %]
[% FOREACH line = lines %]
<tr class="line_row">
  <td class="msg_in">[%# HTML.escape(line.msg) _ '<br>' %]
	[% line.msg_html %]
	</td>
  <td class="time">[% line.sent_time %]</td>
  <td class="len">[% line.msg_length %]</td>
  <td class="len">[% line.sent_length %]</td>
  <td class="msg_out">[%# HTML.escape(line.sent) _ '<br>' %]
	[% line.sent_html %]
	</td>
</tr>
[% END %]
</table>

Stop Bits: [% stop_bits %]
  &nbsp;&nbsp;&nbsp;&nbsp;
  &nbsp;&nbsp;&nbsp;&nbsp;
  USOS: [% usos ? 'On' : 'Off' %]
  &nbsp;&nbsp;&nbsp;&nbsp;
  &nbsp;&nbsp;&nbsp;&nbsp;
  45.5 baud
  <br>
</div>
[%END %]

[% IF mode == 'PSK31' %]
<div class="results">
<h3><a href="http://en.wikipedia.org/wiki/PSK31#Technical_information">BPSK31</a></h3>
<table>
<tr>
  <th>Text<br>Message</th>
  <th>Text<br>Length</th>
  <th>Time<br>(sec)</th>
  <th>Varicode<br>Length</th>
  <th style="text-align: left"><a href="http://en.wikipedia.org/wiki/Varicode#Printable_characters">Varicode</a><br>Message</th>
</tr>
[% USE HTML %]
[% FOREACH line = lines %]
<tr class="line_row">
  <td class="msg_in">[%# HTML.escape(line.msg) _ '<br>' %]
	[% line.msg_html %]
	</td>
  <td class="len">[% line.msg_length %]</td>
  <td class="time">[% line.psk_time %]</td>
  <td class="len">[% line.psk_length %]</td>
  <td class="msg_out" style="font-size: 8pt">[% line.psk_html %]</td>
</tr>
[% END %]
</table>
</div>
[%END %]

[% IF mode == 'CW' %]
<div class="results">
<h3><a href="http://en.wikipedia.org/wiki/Morse_code">Morse code</a></h3>
<i>Times based on 60ms units (20WPM).</i>
<table>
<tr>
  <th>Text<br>Message</th>
  <th>Text<br>Length</th>
  <th>Time<br>(sec)</th>
  <th>CW<br>Units</th>
  <th>CW<br>Signals</th>
  <th style="text-align: left">CW<br>Message</th>
</tr>
[% USE HTML %]
[% FOREACH line = lines %]
<tr class="line_row">
  <td class="msg_in">[%# HTML.escape(line.msg) _ '<br>' %]
	[% line.msg_html %]
	</td>
  <td class="len">[% line.msg_length %]</td>
  <td class="time">[% line.cw_time %]</td>
  <td class="len">[% line.cw_length %]</td>
  <td class="len">[% line.cw_ct %]</td>
  <td class="msg_out" style="font-size: 8pt">[% line.cw_html %]</td>
</tr>
[% END %]
</table>
</div>
[%END %]

<br>

<br>

View <a href="?src=1">source code &amp; comments</a> (written in perl).<br>
<br>

[% IF mode == 'RTTY' %]
<i>Thanks to Kok Chen W7AY for the calculator idea on the RTTY reflector and technical assistance via email.</i><br>
[% END %]


<div style="margin-top: 30px; font-size: 8pt; font-style:italic;">
David Westbrook - KJ4IZW -
<a href="mailto:dwestbrook@gmail.com">dwestbrook@gmail.com</a>
</div>

</body>
</html>
Content-Type: text/html; charset=ISO-8859-1

<html>
<head>
<title>RTTY Message Length Calculator</title>
<style type="text/css">
  .current {
    background-color: yellow;
  }
  .desired {
    background-color: lightgreen;
  }
  body, table, tr, td, th, div, font, span, p {
    font-family: Arial;
    font-size: 10pt;
  }
  .results table {
	border: 1px solid black;
  }
  .results table th {
	vertical-align: bottom;
  }
  .results table td, .results table th {
    padding-right: 10px;
  }
  .results .len {
  }
  .results .time {
  }
  .results .msg_in, .results .msg_out, .baudot {
//    padding-left: 20px;
	font-family: monospace;
	white-space: nowrap;
  }
  .figs, .ltrs, .space, .bad {
	font-family: monospace;
	font-weight: bold;
	white-space: pre;
  }
  .figs {
	background-color: lightblue;
  }
  .ltrs {
	background-color: lightgreen;
  }
  .space {
	background-color: gray;
  }
  .char_gap {
	background-color: lightgrey;
  }
  .intrachar_gap {
	border-left: 2px solid lightgrey;
  }
  .bad {
	background-color: red;
  }
</style>
</head>
<body>
<h2>RTTY Message Length Calculator</h2>
<h3 style="margin-left:200px">Other modes:
		  <a href="?">RTTY</a>
		| <a href="?mode=PSK31">PSK31</a>
		| <a href="?mode=CW">CW</a>
	</h3>
<h3><i>David KJ4IZW</i></h3>

<div>
<form>
  Enter lines of exchanges to compare:<br>
  <textarea name="msg"  rows="5" cols="80">
599 0123 0123
599-0123-0123
TU 1D SC
 W7AY 599 599 KJ4IZW 
KJ4IZW
kj4izw
</textarea><br>

  <div style="float:left">
 
  Stop Bits:
  <select name="stop_bits">
    
    <option value="1" SELECTED>1</option>
    
    <option value="1.4" >1.4</option>
    
    <option value="1.5" >1.5</option>
    
    <option value="2" >2</option>
    
  </select><br>

  Un-Shift-On-Space (USO):
  <select name="usos">
    <option value="1" SELECTED>On</option>
    <option value="0" >Off</option>
  </select><br>
 

 

  <input type="hidden" name="mode" value="RTTY">
  <input type="submit" value="Calculate">
  </div>

 
  <div style="float:left; margin-left: 50px">
	<a href="http://en.wikipedia.org/wiki/Baudot_code"
		>Baudot</a> Characters:<br>
	<table style="margin-left:25px">
	<tr><td>LTRS:</td><td class="baudot">QWERTYUIOPASDFGHJKLZXCVBNM</td></tr>
	<tr><td>FIGS:</td><td class="baudot">1234567890-'$!&#'()"/:;?,.</td></tr>
	</table>
  </div>
 
  <br clear="all">

</form>
</div>



<div class="results">
<h3>RTTY</h3>
<table>
<tr>
  <th>Text<br>Message</th>
  <th>Time<br>(sec)</th>
  <th>Text<br>Length</th>
  <th>Encoded<br>Length</th>
  <th>
	Encoded Message<br>
	&nbsp;&nbsp;
	<span class="ltrs">@=LTRS shift</span>
	&nbsp;&nbsp;
	<span class="figs">%=FIGS shift</span>
	&nbsp;&nbsp;
	<span class="space">space</span>
	&nbsp;&nbsp;
  </th>
</tr>


<tr class="line_row">
  <td class="msg_in">
	599 0123 0123
	</td>
  <td class="time">2.46</td>
  <td class="len">13</td>
  <td class="len">16</td>
  <td class="msg_out">
	<span class="figs">%</span>599<span class="space"> </span><span class="figs">%</span>0123<span class="space"> </span><span class="figs">%</span>0123
	</td>
</tr>

<tr class="line_row">
  <td class="msg_in">
	599-0123-0123
	</td>
  <td class="time">2.15</td>
  <td class="len">13</td>
  <td class="len">14</td>
  <td class="msg_out">
	<span class="figs">%</span>599-0123-0123
	</td>
</tr>

<tr class="line_row">
  <td class="msg_in">
	TU 1D SC
	</td>
  <td class="time">1.69</td>
  <td class="len">8</td>
  <td class="len">11</td>
  <td class="msg_out">
	<span class="ltrs">@</span>TU<span class="space"> </span><span class="figs">%</span>1<span class="ltrs">@</span>D<span class="space"> </span>SC
	</td>
</tr>

<tr class="line_row">
  <td class="msg_in">
	 W7AY 599 599 KJ4IZW 
	</td>
  <td class="time">4.15</td>
  <td class="len">21</td>
  <td class="len">27</td>
  <td class="msg_out">
	<span class="space"> </span>W<span class="figs">%</span>7<span class="ltrs">@</span>AY<span class="space"> </span><span class="figs">%</span>599<span class="space"> </span><span class="figs">%</span>599<span class="space"> </span>KJ<span class="figs">%</span>4<span class="ltrs">@</span>IZW<span class="space"> </span>
	</td>
</tr>

<tr class="line_row">
  <td class="msg_in">
	KJ4IZW
	</td>
  <td class="time">1.38</td>
  <td class="len">6</td>
  <td class="len">9</td>
  <td class="msg_out">
	<span class="ltrs">@</span>KJ<span class="figs">%</span>4<span class="ltrs">@</span>IZW
	</td>
</tr>

<tr class="line_row">
  <td class="msg_in">
	kj4izw
	</td>
  <td class="time">1.38</td>
  <td class="len">6</td>
  <td class="len">9</td>
  <td class="msg_out">
	<span class="ltrs">@</span>KJ<span class="figs">%</span>4<span class="ltrs">@</span>IZW
	</td>
</tr>

</table>

Stop Bits: 1
  &nbsp;&nbsp;&nbsp;&nbsp;
  &nbsp;&nbsp;&nbsp;&nbsp;
  USOS: On
  &nbsp;&nbsp;&nbsp;&nbsp;
  &nbsp;&nbsp;&nbsp;&nbsp;
  45.5 baud
  <br>
</div>






<br>

<br>

View <a href="?src=1">source code &amp; comments</a> (written in perl).<br>
<br>


<i>Thanks to Kok Chen W7AY for the calculator idea on the RTTY reflector and technical assistance via email.</i><br>



<div style="margin-top: 30px; font-size: 8pt; font-style:italic;">
David Westbrook - KJ4IZW -
<a href="mailto:dwestbrook@gmail.com">dwestbrook@gmail.com</a>
</div>

</body>
</html>