🚀 go-pugleaf

Checksum: 2338640757 (verify with brik -cv)
Submitted-by: DANIEL COHEN-LAROQUE <COHEN_LA@eldi.epfl.ch>
Posting-number: Volume 7, Issue 5
Archive-name: eex/part01

BEGIN_DOC eex.doc

   Hi all !
Here is an old program I hold since the very first days of my calc!
It performs a very simple task but usefull enough to post it.

All students (from engeneering school and others) have surely noticed that
neither the ENG mode nor the SCI mode is convenient enough for
converting decimal numbers like 1223.564E-12 to 122.3654E-11. 
Of course, you 're going to say it's an obvious operation but give
it a try a day you're submerged by this kind of silly tasks and you 'll
appreciate it!

Just put a real number in level one and find how it works...
One more tip: Assign it to the eex key

Any suggestions, comments or thanks to:

Daniel  COHEN-LAROQUE
Swiss Federal Institute of Technology
e-mail: cohen_la@eldi.epfl.ch

P.S. This program is provided without any warranty but if you
      manage to get a memory lost by executing it,
      I pay you a drink !

END_DOC 

BEGIN_SRC eex.src
%%HP: T(3)A(R)F(.);
\<< STD DUP SIGN OVER
MANT * \->STR "E" +
OVER XPON + SWAP {
{ "\Ga.E-"
  \<< OVER 1 OVER "E"
POS 1 - SUB OBJ\-> 10
* \->STR "E" + ROT
DUP "E" POS 1 +
OVER SIZE SUB OBJ\->
1 - + SWAP
  \>> } { "\Ga.E+"
  \<< OVER 1 OVER "E"
POS 1 - SUB OBJ\-> 10
/ 11 RND \->STR "E" +
ROT DUP "E" POS 1 +
OVER SIZE SUB OBJ\->
1 + + SWAP
  \>> } { } { Exit
  \<< SWAP DROP 2
MENU
  \>> } } TMENU
\>>
END_SRC


BEGIN_ASC eex.asc
%%HP: T(1)A(R)F(.); @ tasc v2.52 file
"D9D20E1632684C178BF1A23B192CF1C9EB1EEDA1B0BC1C2A20700005476BA192
CF154CB176BA1DBBF147A2047A20C2A20D0000C8E254D2D9D20E163292CF19C2
A292CF1C2A2070000544BAC19C2A290DA1C58C1B7FC133920100000000000001
0EEDA1B0BC1C2A20700005476BA1E0CF178BF1C2A2070000544BAC19C2A276BA
192CF18B9C1C58C1B7FC19C2A290DA176BA1DBBF193632B2130B213047A20C2A
20D0000C8E254B2D9D20E163292CF19C2A292CF1C2A2070000544BAC19C2A290
DA1C58C1B7FC133920100000000000001050FA133920100000000000011055DB
1B0BC1C2A20700005476BA1E0CF178BF1C2A2070000544BAC19C2A276BA192CF
18B9C1C58C1B7FC19C2A276BA176BA1DBBF193632B2130B213047A20B213047A
2084E204054879647D9D20E1632DBBF18DBF1ED2A26911293632B2130B2130B2
130D511293632B2130B066"
@ BYTES: #660Bh 329
END_ASC

BYTES: #660Bh 329

BEGIN_UU eex.uue
begin 644 eex
M2%!(4#0X+46=+>!A(X;$<;@?*K.1PA^<ON'>&@O+P:("!P!0=+8:*?Q1Q!MG
MJ]&['W0J0*<"+"K0``",+D4MG2W@82,I_)$L*BG\P:("!P!01*L<R:*2T!I<
MR+'W'#,I$````````!#@WAH+R\&B`@<`4'2V&@[\<;@?+"IP``!%M,J1+"IG
MJY'"'[C)P84<>\^1+"H)K7&V&KW[D6,C*S&P$@-T*L"B`@T`P.A2M-+9`AXV
MDL(?R:*2PA\L*G```$6TRI$L*@FMP84<>\\QDP(!`````````06O,9,"`0``
M````$`%5O;&P'"PJ<```16>KX<`?A_O!H@('`%!$JQS)HG*V&BG\@9L<7,BQ
M]QS)HG*V&F>KT;L?.3:R$@,K,4"G`BLQ0*<"2"Y`4(271M?9`AXVTKL?V/OA
6+2J6$9)C(RLQL!(#*S'0%2$Y-K(2`[(2
`
end
sum -r/size 56201/488 section (from "begin" to "end")
sum -r/size 51434/337 entire input file
END_UU