home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sys / hp48 / 4017 < prev    next >
Encoding:
Text File  |  1992-07-25  |  2.7 KB  |  67 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sdd.hp.com!ux1.cso.uiuc.edu!news.cs.indiana.edu!uceng.uc.edu!rabagley
  3. From: rabagley@uceng.UC.EDU (Ross A Bagley)
  4. Subject: Fast User RPN mkstr (IR Remote)
  5. Message-ID: <1992Jul24.194053.19308@uceng.UC.EDU>
  6. Organization: College of Engineering, University of Cincinnati
  7. Date: Fri, 24 Jul 1992 19:40:53 GMT
  8. Lines: 57
  9.  
  10. As the subject: line says, it's a fast user RPN makestring program that is
  11. useful for those of us who like to screw around with the hp48 as an IR remote.
  12.  
  13. Times are comparable to the times quoted for the string builder in the tools
  14. library ($50).  My times are:  1500 char string, .8255 seconds (the size 
  15. recommended for the IR remote); 10000 character string, 1.3483 seconds (the 
  16. ML version in the tools lib. quotes "less than a second"); 32750 character
  17. string, 2.9450 seconds (about the largest string I could convince it to make).
  18.  
  19. I don't know all of the syntax needed in order to make it downloadable (I 
  20. don't know what the header is supposed to look like) and using the PC link
  21. would delay this until Tuesday at the earliest.  If someone in the know would
  22. please edit the header, correct any other syntax errors I make typing this
  23. in and repost it (making sure to keep the copyright notice intact :-)  I 
  24. would greatly appreciate it.
  25.  
  26. BYTES gives us:
  27. # 53005d
  28. 200
  29.  
  30. Here goes...
  31. ----PROGRAM (cut here)------------
  32. \>>
  33.     SWAP 2 / DUP IP DUP
  34.     3 ROLL - NEG
  35.     IF 2 *
  36.     THEN " " "  "
  37.     ELSE "" "  "
  38.     END 3 ROLL DUP
  39.     WHILE
  40.     REPEAT 2 / DUP IP DUP
  41.         3 ROLL - NEG
  42.         IF 2 * 
  43.         THEN 2 ROLL DUP 4 ROLL +
  44.         ELSE 2 ROLL 3 ROLL
  45.         END
  46.         2 ROLL DUP + 3
  47.         ROLL DUP
  48.     END
  49.     DROP DROP
  50. \>>
  51. ---END OF PROGRAM (cut here)------------
  52. ---COPYRIGHT NOTICE-----------
  53. COPYRIGHT (C) Ross Bagley 7/24/92
  54. (I officially declare this program freeware.  It may be distributed, copied,
  55. modified, etc... I only ask that this notice remain with the program.  If you
  56. feel obligated to send money, contact me at rabagley@uceng.uc.edu to get an 
  57. address.  Thanks)
  58. ---END OF COPYRIGHT-----------
  59. --                                  ______________________________________
  60.       _______                       |                                    |
  61.      /\______\                      |       rabagley@uceng.uc.edu        |
  62.     / / ___  /_____ ______ ______   |                                    |
  63.    / / /_\/ /______\\_____\\_____\  |  Sex appeal is 50% what you've got |
  64.   / / _  __// ___  //  ___//  ___/  |  and 50% what people think you've  |
  65.  / / / \ \ / /_\/ //___  //___  /   |  got.              -Murphy         |
  66.  \/_/   \_\\_____//_____//_____/    |____________________________________|
  67.