Prev: DISPXY IN SysRPL?
Next: RE( ) and IM( ) Don't Work Properly on 50G
From: PremiumBlend on 25 Apr 2010 22:03
On Apr 25, 1:12 pm, John H Meyers <jhmey...(a)nomail.invalid> wrote:
> Found this replacement in my calculator
> for INPUT STR\-> (but always returning a single list):
>
> \<< -55 CF { V } + 0 DO DROP DUP2 IFERR INPUT THEN
> DROP2 DROP2 ERRN DOERR END "{" SWAP + "}" + STR\->
> UNTIL DUP SIZE END ROT ROT DROP2 \>> 'INPUTL' STO
>
> Something to make use of it:
>
> \<< "Volume of a box" { { 1 0 }
> ":L:
> :W:
> :H:" } INPUTL LIST\-> \-> d
> \<< d DUPN WHILE 'd' DECR REPEAT * END \>>
> "Vol" \->TAG \>> 'Box' STO
>
> Note that during INPUT,
> two consecutive presses of ON/Cancel will terminate the program,
> but if you only press once (clearing all text) and then ENTER,
> the original input form "regenerates" itself, just like "Doctor Who"
>
> http://en.wikipedia.org/wiki/Doctor_Whohttp://www.bbc.co.uk/doctorwho/dwhttp://www.bbcamerica.com/shows/doctor-who/http://www.bbcamerica.com/content/123/doctor-who-classic-doctors.jsp
>
> [r->] [OFF]

> \<< -55 CF { V } + 0 DO DROP DUP2 IFERR INPUT THEN
> DROP2 DROP2 ERRN DOERR END "{" SWAP + "}" + STR\->
> UNTIL DUP SIZE END ROT ROT DROP2 \>> 'INPUTL' STO

I'm gettting a checksum of # D964h, 117.5 bytes for this.
From: PremiumBlend on 25 Apr 2010 22:10
On Apr 25, 1:12 pm, John H Meyers <jhmey...(a)nomail.invalid> wrote:
> Found this replacement in my calculator
> for INPUT STR\-> (but always returning a single list):
>
> \<< -55 CF { V } + 0 DO DROP DUP2 IFERR INPUT THEN
> DROP2 DROP2 ERRN DOERR END "{" SWAP + "}" + STR\->
> UNTIL DUP SIZE END ROT ROT DROP2 \>> 'INPUTL' STO
>
> Something to make use of it:
>
> \<< "Volume of a box" { { 1 0 }
> ":L:
> :W:
> :H:" } INPUTL LIST\-> \-> d
> \<< d DUPN WHILE 'd' DECR REPEAT * END \>>
> "Vol" \->TAG \>> 'Box' STO
>
> Note that during INPUT,
> two consecutive presses of ON/Cancel will terminate the program,
> but if you only press once (clearing all text) and then ENTER,
> the original input form "regenerates" itself, just like "Doctor Who"
>
> http://en.wikipedia.org/wiki/Doctor_Whohttp://www.bbc.co.uk/doctorwho/dwhttp://www.bbcamerica.com/shows/doctor-who/http://www.bbcamerica.com/content/123/doctor-who-classic-doctors.jsp
>
> [r->] [OFF]

I'm getting # D964h, 117.5 for 'INPUTL', is that right? What checksum
and byte count do you get for 'Box'? I get "Error: Invalid Dimension"
when I execute it.
From: PremiumBlend on 25 Apr 2010 22:29
On Apr 25, 10:10 pm, PremiumBlend <mnhollin...(a)yahoo.com> wrote:
> On Apr 25, 1:12 pm, John H Meyers <jhmey...(a)nomail.invalid> wrote:
>
>
>
>
>
> > Found this replacement in my calculator
> > for INPUT STR\-> (but always returning a single list):
>
> > \<< -55 CF { V } + 0 DO DROP DUP2 IFERR INPUT THEN
> > DROP2 DROP2 ERRN DOERR END "{" SWAP + "}" + STR\->
> > UNTIL DUP SIZE END ROT ROT DROP2 \>> 'INPUTL' STO
>
> > Something to make use of it:
>
> > \<< "Volume of a box" { { 1 0 }
> > ":L:
> > :W:
> > :H:" } INPUTL LIST\-> \-> d
> > \<< d DUPN WHILE 'd' DECR REPEAT * END \>>
> > "Vol" \->TAG \>> 'Box' STO
>
> > Note that during INPUT,
> > two consecutive presses of ON/Cancel will terminate the program,
> > but if you only press once (clearing all text) and then ENTER,
> > the original input form "regenerates" itself, just like "Doctor Who"
>
> >http://en.wikipedia.org/wiki/Doctor_Whohttp://www.bbc.co.uk/doctorwho...
>
> > [r->] [OFF]
>
> I'm getting # D964h, 117.5 for 'INPUTL', is that right? What checksum
> and byte count do you get for 'Box'? I get "Error: Invalid Dimension"
> when I execute it.- Hide quoted text -
>
> - Show quoted text -

Your trick to follow INPUT with "{" SWAP + before OBJ\->
works well. I don't get a bunch of different error messages
when I enter some bogus arguments. My INPUT parameters
consist of { " " { -1 0 } V }. It is interesting to me that only the
#, : :, \<), ->, [ ], and ( ) cause an "Invalid Syntax" error. Why
is that?
From: Virgil on 25 Apr 2010 23:43
In article
<cfaf4ce2-ea70-496f-a045-fdd21d7030cf(a)i37g2000yqn.googlegroups.com>,
PremiumBlend <mnhollinger(a)yahoo.com> wrote:

> On Apr 25, 1:12�pm, John H Meyers <jhmey...(a)nomail.invalid> wrote:
> > Found this replacement in my calculator
> > for INPUT STR\-> (but always returning a single list):
> >
> > \<< -55 CF { V } + 0 DO DROP DUP2 IFERR INPUT THEN
> > DROP2 DROP2 ERRN DOERR END "{" SWAP + "}" + STR\->
> > UNTIL DUP SIZE END ROT ROT DROP2 \>> 'INPUTL' STO
> >
> > Something to make use of it:
> >
> > \<< "Volume of a box" { { 1 0 }
> > ":L:
> > :W:
> > :H:" } INPUTL LIST\-> \-> d
> > \<< d DUPN WHILE 'd' DECR REPEAT * END \>>
> > "Vol" \->TAG \>> 'Box' STO
> >
> > Note that during INPUT,
> > two consecutive presses of ON/Cancel will terminate the program,
> > but if you only press once (clearing all text) and then ENTER,
> > the original input form "regenerates" itself, just like "Doctor Who"
> >
> > http://en.wikipedia.org/wiki/Doctor_Whohttp://www.bbc.co.uk/doctorwho/dwhttp
> > ://www.bbcamerica.com/shows/doctor-who/http://www.bbcamerica.com/content/123
> > /doctor-who-classic-doctors.jsp
> >
> > [r->] [OFF]
>
> I'm getting # D964h, 117.5 for 'INPUTL', is that right? What checksum
> and byte count do you get for 'Box'? I get "Error: Invalid Dimension"
> when I execute it.

# 9BB6h and 105.5 bytes compiling it in exact more (so that the integers
are ZINTs) or # A844h with 109.5 bytes compiling in appoximate mode (so
that integers compile as reals with decimal points).
I get
From: PremiumBlend on 26 Apr 2010 11:55
On Apr 25, 11:43 pm, Virgil <Vir...(a)home.esc> wrote:
> In article
> <cfaf4ce2-ea70-496f-a045-fdd21d703...(a)i37g2000yqn.googlegroups.com>,
>
>
>
>
>
>  PremiumBlend <mnhollin...(a)yahoo.com> wrote:
> > On Apr 25, 1:12 pm, John H Meyers <jhmey...(a)nomail.invalid> wrote:
> > > Found this replacement in my calculator
> > > for INPUT STR\-> (but always returning a single list):
>
> > > \<< -55 CF { V } + 0 DO DROP DUP2 IFERR INPUT THEN
> > > DROP2 DROP2 ERRN DOERR END "{" SWAP + "}" + STR\->
> > > UNTIL DUP SIZE END ROT ROT DROP2 \>> 'INPUTL' STO
>
> > > Something to make use of it:
>
> > > \<< "Volume of a box" { { 1 0 }
> > > ":L:
> > > :W:
> > > :H:" } INPUTL LIST\-> \-> d
> > > \<< d DUPN WHILE 'd' DECR REPEAT * END \>>
> > > "Vol" \->TAG \>> 'Box' STO
>
> > > Note that during INPUT,
> > > two consecutive presses of ON/Cancel will terminate the program,
> > > but if you only press once (clearing all text) and then ENTER,
> > > the original input form "regenerates" itself, just like "Doctor Who"
>
> > >http://en.wikipedia.org/wiki/Doctor_Whohttp://www.bbc.co.uk/doctorwho....
> > > ://www.bbcamerica.com/shows/doctor-who/http://www.bbcamerica.com/content...
> > > /doctor-who-classic-doctors.jsp
>
> > > [r->] [OFF]
>
> > I'm getting # D964h, 117.5 for 'INPUTL', is that right? What checksum
> > and byte count do you get for 'Box'? I get "Error: Invalid Dimension"
> > when I execute it.
>
> # 9BB6h and 105.5 bytes compiling it in exact more (so that the integers
> are ZINTs) or # A844h with 109.5 bytes compiling in appoximate mode (so
> that integers compile as reals with decimal points).
> I get- Hide quoted text -
>
> - Show quoted text -

I'm actually using an HP 48G to work these examples but will
eventually
put the code on my HP 49G+.
First  |  Prev  |  Next  |  Last
Pages: 1 2 3
Prev: DISPXY IN SysRPL?
Next: RE( ) and IM( ) Don't Work Properly on 50G