Revision 82

This is my regression reference for older stuff in revision and new stuff in experimentation aligned to upload version number. As I work on new features and correct problems with old ones, I collect my test cases here. They become part of my regression testing as well as notes of documentation I must complete.

Commentary Code Result
Commentary #nil =>n;
'<1>:'(_123.65 n 456 876543< %* 5)$;
'<2>:'(_123.65 n 456 876543< %* _5)$;
'<3>:'(_123.65 n 456 876543< %* (_5 5 4 8))$;		  
<1>: -124  Nil  456*6543
<2>:-124 Nil  456  8765*
<3>:-124   Nil 456  876543
Commentary #nil =>n;
'<1>:'(_123.65 n 456 876543< %* 7.1)$;
'<2>:'(_123.65 n 456 876543< %* _7.1)$;
'<3>:'(_123.65 n 456 876543< %* (_5.1 5 _7.2 3))$;		  
<1>: -123.7    Nil  456.0*6543.0
<2>:-123.7 Nil    456.0  876543*
<3>:-123*  Nil456.00 *43
Commentary #nil =>n;
'<1>:'(_123.65 n 456 876543< %* .1)$;
'<2>:'(_123.65 n 456 876543< %* _.1)$;
'<3>:'(_123.65 n 456 876543< %* (_.1 .3 _.2 .3))$;		  
<1>:-123.7  Nil456.0876543.0
<2>:-123.7Nil  456.0876543.0
<3>:-123.7    Nil456.00876543.000
Commentary '0123456789'=>s;
'<1>:'(s %* 3 %**) $;
'<2>:'(s %* 13 %**) $;
'<3>:'(s %* _3 %**) $;
'<4>:'(s %* _13 %**)$;
'<5>:'(s %* 0 %**)  $;		  
<1>:String[R1C3:C]012
<2>:String[R1C13:C]0123456789   
<3>:String[R1C3:C]789
<4>:String[R1C13:C]   0123456789
<5>:String[R1C0:C]
Commentary 'abc:' 123 %* (_8 6.2)$;
'abc:' 123 %* (_8 6.2)%**$;		     abc:123.00
Seq[R1C2:K]
[1]String[R1C8:C]    abc:
[2]String[R1C6:C]123.00