home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sources / hp48 / 256 < prev    next >
Encoding:
Text File  |  1992-09-13  |  3.2 KB  |  106 lines
  1. Newsgroups: comp.sources.hp48
  2. Path: sparky!uunet!seq!spell
  3. From: DANIEL COHEN-LAROQUE <COHEN_LA@eldi.epfl.ch>
  4. Subject:  v07i005:  eex - Converting decimal numbers v1.0, Part01/01
  5. Message-ID: <1992Sep14.011451.15424@seq.uncwil.edu>
  6. Followup-To: comp.sys.hp48
  7. Sender: spell@seq.uncwil.edu (Chris Spell)
  8. Organization: Univ. of North Carolina @ Wilmington
  9. Date: Mon, 14 Sep 1992 01:14:51 GMT
  10. Approved: spell@seq.uncwil.edu
  11. Lines: 97
  12.  
  13. Checksum: 2338640757 (verify with brik -cv)
  14. Submitted-by: DANIEL COHEN-LAROQUE <COHEN_LA@eldi.epfl.ch>
  15. Posting-number: Volume 7, Issue 5
  16. Archive-name: eex/part01
  17.  
  18. BEGIN_DOC eex.doc
  19.  
  20.    Hi all !
  21. Here is an old program I hold since the very first days of my calc!
  22. It performs a very simple task but usefull enough to post it.
  23.  
  24. All students (from engeneering school and others) have surely noticed that
  25. neither the ENG mode nor the SCI mode is convenient enough for
  26. converting decimal numbers like 1223.564E-12 to 122.3654E-11. 
  27. Of course, you 're going to say it's an obvious operation but give
  28. it a try a day you're submerged by this kind of silly tasks and you 'll
  29. appreciate it!
  30.  
  31. Just put a real number in level one and find how it works...
  32. One more tip: Assign it to the eex key
  33.  
  34. Any suggestions, comments or thanks to:
  35.  
  36. Daniel  COHEN-LAROQUE
  37. Swiss Federal Institute of Technology
  38. e-mail: cohen_la@eldi.epfl.ch
  39.  
  40. P.S. This program is provided without any warranty but if you
  41.       manage to get a memory lost by executing it,
  42.       I pay you a drink !
  43.  
  44. END_DOC 
  45.  
  46. BEGIN_SRC eex.src
  47. %%HP: T(3)A(R)F(.);
  48. \<< STD DUP SIGN OVER
  49. MANT * \->STR "E" +
  50. OVER XPON + SWAP {
  51. { "\Ga.E-"
  52.   \<< OVER 1 OVER "E"
  53. POS 1 - SUB OBJ\-> 10
  54. * \->STR "E" + ROT
  55. DUP "E" POS 1 +
  56. OVER SIZE SUB OBJ\->
  57. 1 - + SWAP
  58.   \>> } { "\Ga.E+"
  59.   \<< OVER 1 OVER "E"
  60. POS 1 - SUB OBJ\-> 10
  61. / 11 RND \->STR "E" +
  62. ROT DUP "E" POS 1 +
  63. OVER SIZE SUB OBJ\->
  64. 1 + + SWAP
  65.   \>> } { } { Exit
  66.   \<< SWAP DROP 2
  67. MENU
  68.   \>> } } TMENU
  69. \>>
  70. END_SRC
  71.  
  72.  
  73. BEGIN_ASC eex.asc
  74. %%HP: T(1)A(R)F(.); @ tasc v2.52 file
  75. "D9D20E1632684C178BF1A23B192CF1C9EB1EEDA1B0BC1C2A20700005476BA192
  76. CF154CB176BA1DBBF147A2047A20C2A20D0000C8E254D2D9D20E163292CF19C2
  77. A292CF1C2A2070000544BAC19C2A290DA1C58C1B7FC133920100000000000001
  78. 0EEDA1B0BC1C2A20700005476BA1E0CF178BF1C2A2070000544BAC19C2A276BA
  79. 192CF18B9C1C58C1B7FC19C2A290DA176BA1DBBF193632B2130B213047A20C2A
  80. 20D0000C8E254B2D9D20E163292CF19C2A292CF1C2A2070000544BAC19C2A290
  81. DA1C58C1B7FC133920100000000000001050FA133920100000000000011055DB
  82. 1B0BC1C2A20700005476BA1E0CF178BF1C2A2070000544BAC19C2A276BA192CF
  83. 18B9C1C58C1B7FC19C2A276BA176BA1DBBF193632B2130B213047A20B213047A
  84. 2084E204054879647D9D20E1632DBBF18DBF1ED2A26911293632B2130B2130B2
  85. 130D511293632B2130B066"
  86. @ BYTES: #660Bh 329
  87. END_ASC
  88.  
  89. BYTES: #660Bh 329
  90.  
  91. BEGIN_UU eex.uue
  92. begin 644 eex
  93. M2%!(4#0X+46=+>!A(X;$<;@?*K.1PA^<ON'>&@O+P:("!P!0=+8:*?Q1Q!MG
  94. MJ]&['W0J0*<"+"K0``",+D4MG2W@82,I_)$L*BG\P:("!P!01*L<R:*2T!I<
  95. MR+'W'#,I$````````!#@WAH+R\&B`@<`4'2V&@[\<;@?+"IP``!%M,J1+"IG
  96. MJY'"'[C)P84<>\^1+"H)K7&V&KW[D6,C*S&P$@-T*L"B`@T`P.A2M-+9`AXV
  97. MDL(?R:*2PA\L*G```$6TRI$L*@FMP84<>\\QDP(!`````````06O,9,"`0``
  98. M````$`%5O;&P'"PJ<```16>KX<`?A_O!H@('`%!$JQS)HG*V&BG\@9L<7,BQ
  99. M]QS)HG*V&F>KT;L?.3:R$@,K,4"G`BLQ0*<"2"Y`4(271M?9`AXVTKL?V/OA
  100. 6+2J6$9)C(RLQL!(#*S'0%2$Y-K(2`[(2
  101. `
  102. end
  103. sum -r/size 56201/488 section (from "begin" to "end")
  104. sum -r/size 51434/337 entire input file
  105. END_UU
  106.