d-19 === Subject: Re: Full-screen CHOOSE (no library needed) 48/49 Here's the source for the 49G version of a small, stand-alone full-screen CHOOSE (binaries included in previous post), including the current bug work-around. Comments show differences for the 48G version. ( Full-screen CHOOSE, most everything is default ) :: CK3NOLASTWD CK&DISPATCH1 # 351 :: ' :: ( Message handler ) SIXTY #=casedrop :: TRUE TRUE ; ( Full Screen ) * Work-around for 49G minifont bug as of 2.05 EIGHTYONE #=casedrop ( ConvIntoLineGrob ) :: ROMPTR B3 3F ( get N-th element, 48GX or 49G[+] ) ROMPTR B3 61 ( Converter, ROMPTR B3 64 in 48G ) ROMPTR B3 5F ( $>grob or $>GROB, ROMPTR B3 5F in 49G ) DUPUNROT ONEONE GROB! TRUE ; DROPFALSE ( no other messages handled ) ; 4ROLL ( Title ) ' ROMPTR B3 61 ( Converter, ROMPTR B3 64 in 48G ) 5ROLL ( item list ) DUPLENCOMP 6ROLL ( initial highlight position ) COERCE #MIN ( Assures initial position is in range ) ROMPTR B3 0 ( ~Choose ) NOTcase %0 ( Above if canceled, else 2nd element of returned sublist ) :: DUPTYPELIST? NOT?SEMI DUPLENCOMP TWO #< ?SEMI ROMPTR B0 9B ( ROMPTR B0 99 in 48G ) ( or TWO NTHCOMPDROP in a pinch ) ; %1 ; ; Assuming that the above is stored in 'CHOOSF': @ Testing sublists as input/output << Testing Return Values @ Variable width, all caps on 48GX { {} 0 { 1 } { 2 22 } { 3 33 333 } } 1 CHOOSF >> 'P1' STO @ All-inclusive exerciser (vary font vs. title vs. list size) << @ This section for 49G only: -90 DUP IF FS? THEN CF ELSE SF END @ minifont vs. random font { FONT6 FONT7 FONT8 } RAND 3 * CEIL GET EVAL ->FONT RAND 0.5 > Choose IFTE @ random title on/off ----+----1----+----2----+----3----+ @ a long line 1 12 START RAND 100 * NEXT 13 ->LIST @ random-length list 1 13 RAND * CEIL SUB 1 CHOOSF { DROP } IFT >> 'P0' STO @ End === Subject: 48GX Won't Start After Paperclip Halt Well, after On-C didn't halt the calculator, I tried the paperclip method. The calculator screen went blank; since then pressing On does nothing. I tried changing the batteries. I tried removing and re-inserting one of previous to this problem.) No luck. All indications are that the calculator is not turning on anymore. Any suggestions? I guess I could give up and buy a 49g+ but I don't really -- vav === Subject: Re: 48GX Won't Start After Paperclip Halt >Well, after On-C didn't halt the calculator, I tried the paperclip method. >The calculator screen went blank; since then pressing On does nothing. >I tried changing the batteries. I tried removing and re-inserting one of >previous to this problem.) No luck. All indications are that the >calculator is not turning on anymore. >Any suggestions? Get TI-89 A.L. === Subject: Re: 48GX Won't Start After Paperclip Halt >>Well, after On-C didn't halt the calculator, I tried the paperclip method. >>The calculator screen went blank; since then pressing On does nothing. >>I tried changing the batteries. I tried removing and re-inserting one of >>previous to this problem.) No luck. All indications are that the >>calculator is not turning on anymore. >>Any suggestions? > Get TI-89 No RPN Extremely slow on numerical matrices No RPN keyboard tayloriong not possible, layout bad, no keyclick No RPN SD-card interface missing No RPN Assembler incompatibilities vs previous ROM => Titanic No RPN Units-system not as complete as it should be No RPN Build-in languages limited to only one: slow Basic No RPN Build-in Equation-Writer is missing No RPN Brother-Peter PS: did I remember to say: No RPN === Subject: Re: 48GX Won't Start After Paperclip Halt <8jfhu1dhhlj1ci87723itqnf9ri5b2is75@4ax.com> > PS: did I remember to say: No RPN Um. . . no you forgot. Before anyone jumps in to comment. . . yes there is an RPN program for the 89. No it is not completely functional and integrated into all aspects of the system. TW === Subject: Re: 48GX Won't Start After Paperclip Halt >> PS: did I remember to say: No RPN > Um. . . no you forgot. > Before anyone jumps in to comment. . . yes there is an RPN program for > the 89. No it is not completely functional and integrated into all > aspects of the system. And EQW program, but still no MASD + SysLanguage on-board not to mention about SD etc...features === Subject: Re: 48GX Won't Start After Paperclip Halt I don't belive it should be forbidden, I don't feel hurassed, BUT I do belive that it's not appropriate to bring up the TI subject in HP group, and i do belive we could set this TI vs HP issue asside and look in to the future. after all buy a TI is hardly a solution to this case (just thoughts) === Subject: Re: 48GX Won't Start After Paperclip Halt The instructions for paper clip reset do also suggest a straight down path; in the light of the recent directional drilling question, it might be prudent to advise against directionally drilling with the paper clip, because you wouldn't want to completely miss the pad and hit a buried cable :) Use the widest clip that fits in the hole, and try not to pierce thru the whole keyboard :) A bare metal clip is also much better than plastic or coated! You're going to find that difficult without your space helmet, Dave Don't worry, here's old Dave, back from Jupiter and born again: http://www.hpcalc.org/hp48/docs/faq/48faq-4.html#ss4.4 [r->] [OFF] === Subject: Re: 48GX Won't Start After Paperclip Halt <8jfhu1dhhlj1ci87723itqnf9ri5b2is75@4ax.com> > PS: did I remember to say: No RPN Um. . . no you forgot. =) Before anyone jumps in to comment. . . yes there is an RPN program for the 89. No it is not completely functional and integrated into all aspects of the system. TW === Subject: Re: 48GX Won't Start After Paperclip Halt > after On-C didn't halt the calculator, I tried the paperclip method. > The calculator screen went blank; since then pressing On does nothing. > I tried changing the batteries. I tried removing and re-inserting one of > previous to this problem.) No luck. All indications are that the > calculator is not turning on anymore. Have you tried ON&+ [contrast]? (all normally running digital circuity transmits a lot of RF) What was this problem, and how did it come about? (did you run some unusual program)? Did paper clip feel funny when last inserted? (could it have bent the shorting contact permanently?) What about with all cards pulled out? (a bad card could potentially short out the calc's power) Could there have been any static discharge (into paper clip?) Battery contacts? (cheap sticky foam pads hold bridges in place) Battery contact wires? Clean ends of batteries? Polarity? Anything recently poked into serial port? Spilled into calc? Press harder on the ON key? (Also press top of KB down). > I guess I could give up and buy a 49g+ > but I don't really have the money right now. Some people have given up on 49g+ and are looking for a 48GX (but of course those are too valued and expensive on eBay :) [r->] [OFF] === Subject: Re: 48GX Won't Start After Paperclip Halt John H, you just put tougether a nice troubleshooter for booting/starting/resseting issues, -it would be great if Eric (hpcalc.org) would take these and put to some prominent place or at least make this available on some nice corner of hpcalc.org -also it would be nice if those were included in manuals (if not already included -i can't remember) good work ! > after On-C didn't halt the calculator, I tried the paperclip method. > The calculator screen went blank; since then pressing On does nothing. > I tried changing the batteries. I tried removing and re-inserting one of > previous to this problem.) No luck. All indications are that the > calculator is not turning on anymore. > Have you tried ON&+ [contrast]? > (all normally running digital circuity transmits a lot of RF) > What was this problem, and how did it come about? > (did you run some unusual program)? > Did paper clip feel funny when last inserted? > (could it have bent the shorting contact permanently?) > What about with all cards pulled out? > (a bad card could potentially short out the calc's power) > Could there have been any static discharge (into paper clip?) > Battery contacts? (cheap sticky foam pads hold bridges in place) > Battery contact wires? Clean ends of batteries? Polarity? > Anything recently poked into serial port? Spilled into calc? > Press harder on the ON key? (Also press top of KB down). > I guess I could give up and buy a 49g+ > but I don't really have the money right now. > Some people have given up on 49g+ and are looking for a 48GX > (but of course those are too valued and expensive on eBay :) > [r->] [OFF] === Subject: A great onestop spot --------------------------------------------------------------------- Here is a site that was definitely worth checking out at http://www.gabbyinc.biz! === Subject: Re: 49G new (faster) browser, as used by CHOOSE > Information about the new [49G] browser can be found here I have been meaning to ask whether it can be induced to display in a full-screen, rather than in a window (as can the GX browser). > it is also described in Programming in System RPL 2nd Edition. http://www.hpcalc.org/details.php?id=5142 http://www.hpcalc.org/hp49/docs/programming/progsysrpl_pdf.zip Where it says that no, only the old (GX) browser supports full-screen mode. That's too bad; it means that we have to revert to the older, slower browser just to get full-screen mode -- in which, using minifont, you could get 50% more information per line (and more lines per screen), if it were not for the current bug which neglects to consider that 50% more characters of minifont can fit in a full-screen width line. So I guess I'll have to settle for the program I just posted :( [not as good as Raymond's, but those were for HP48 only - and bigger] [r->] [OFF] === Subject: Re: Hash tables in UserRPL? I recognize that the DELETE presented above is inadequate because of collisions. I'm working on that. The tricky part is storing to the same key. The current code adds the second instance of an identical key just the same as for a hash collision. This makes deletion of entries unreliable, since you'd have to delete as many times as you added the same key. What should happen deletion (of a key that exists) will always remove the one and only match. The other thing that makes this interesting is the fact that there is no delete entry from list builtin. Here's my attempt at a UserRPL version: rmel @ Takes a list on level 2 and an element number in level 1. @ Removes that element from the list. Returns the new list on level 1 << -> el << OBJ-> -> sz << sz el - 1 + ROLL DROP sz 1 - ->LIST >> >> Howard === Subject: Re: Hash tables in UserRPL? > rmel @ Takes a list on level 2 and an element number in level 1. > @ Removes that element from the list. Returns the new list on > level 1 > << -> el > << OBJ-> -> sz > << sz el - 1 + ROLL DROP sz 1 - ->LIST > >> > >> >> Using that definition of 'rmel', this 'INS' will overwrite the identical key instead of adding it to an existing one: INS @ takes a hash list on level 2 and 1 { object key } pair on level 1 the others @ in the same bucket. << DUP 2 GET HASH PICK3 OVER GET OBJ-> DROP DUP 5 PICK 2 GET POS IF DUP THEN DUP ROT SWAP rmel UNROT rmel SWAP ELSE DROP END 2 ->LIST ROT ADD PUT DELETE still to come. Howard === Subject: Re: Hash tables in UserRPL? OK, Here's DELETE with collisions: DELETE @ Takes a list on level 2 and a key sttring on leve1 @ Finds key in list. If it exists, removes it from list @ and returns the new list on level 2 and 1 on level @ 1. If the key doesn't exist, returns the original @ list on level 2 and 0 on level 1 << DUP HASH PICK3 OVER GET OBJ-> DROP DUP 5 ROLL POS IF DUP THEN DUP ROT SWAP rmel UNROT rmel SWAP 2 ->LIST PUT 1 ELSE 4 DROPN 0 END === Subject: Re: Hash tables in UserRPL? The use of a directory instead of a list would make it pretty easy to deal with collisions ('index' STO) and deletions ('index' PURGE) It is even possible to move the most frequently used items to the fastest searching position, via { index ... } ORDER But this would let the calculator do all the work (plus have all the fun), and we wouldn't burn as many calories, either :) [r->] [OFF] === Subject: EMU48 KML Scrip for the Qtek 9100 I'm searching for an Emu48 KML Script for the Qtek 9100 mobile. If anybody has one, please let me know... Fred.