robert@longs.LANCE.ColoState.Edu (Robert Thompson) (03/20/90)
Here is a program I wrote so that I could put special characters in code/strings/ etc. I later rewrote the program using all the sysevals I could to make it faster. It is now about 3 times faster than before. This shows the use of the sysevals to those who are just getting into it. The sysevals were taken from the list posted here several weeks ago (the infamous syseval list). Hope someone else can use this too. Robert Thompson Center for Computer Assisted Engineering Colorado State University usage: 3. replacement character 2. character to replace 1. program/string/whatever to change result: string on level 1 with characters changed This is probably meaningless but here are some stats: string length time in seconds ------------- --------------- 548 (LCD->) 91.7 You will probably NEVER do this :) [Replace every chr(0) with the letter "V"] 62 0.9 [Replace 4 E's with sigmas] 10 (10 Z's) 1.6 [Replace all the Z's with U's] SED [3804] << ->STR 'p' #A252h SYSEVAL -> I R ; STO_globalname << WHILE p R #2283Ah SYSEVAL DUP 0 <> ; POS_string REPEAT p 1 #3D7F8h SYSEVAL 1 - ; PICK3_1any2any3any #785Ah SYSEVAL I p ; SUB_1real2real3string #3D6C5h SYSEVAL 1 + p ; ROLL4_1any2any3any4any #792Ah SYSEVAL ; SIZE_string #785Ah SYSEVAL + + 'p' #A252h SYSEVAL END >> DROP 'p' #BFFD SYSEVAL SWAP PURGE ; DUP&RCL_name >>
glp@unisoft.UUCP (Greg Pease) (03/22/90)
From article <5394@ccncsu.ColoState.EDU>, by robert@longs.LANCE.ColoState.Edu (Robert Thompson): ... > sysevals were taken from the list posted here several weeks ago (the > infamous syseval list). Hope someone else can use this too. ^^^^^^^^^^^^^^^^^^^^^ > > Robert Thompson > Center for Computer Assisted Engineering > Colorado State University Hi: Could someone send me this infamous list? I am a fairly new subscriber to this group, and must have missed it the first time around. Also, any information as to Titles, prices and availability of any of the internals books for the HP28S would be appreciated. Cheers, Gregory Pease ucbvax!unisoft!glp