BASIC Programs on HP 50G

[Wes Loewer]

(03-26-2014 06:13 PM)HP67 Wrote:  

(03-26-2014 06:00 PM)Wes Loewer Wrote:  In case you've never seen an Algebraic program on the 50g, see this comp.sys.hp48 post.
https://groups.google.com/d/msg/comp.sys...FHGoofOYAJ

Do you have a usenet message-id? I don't use google.

Maybe someone else knows how to get the message-id. But since it was my own post, I'll just quote it here. It was a tiny little program intended only to demonstrate that it could be done. (It might be the only Algebra program I've ever written for the 49+/50g.)

Code:


Below is an example HI-LO program taken from a past post
...
@ must be entered in ALGEBRAIC MODE
@ \|> is the STO key
\<< IP(RAND*100.) \-> N
  \<< OBJ\->(INPUT("GUESS A NUMBER, 1-100","")) \-> G
    \<<
      DO
        IF G>N THEN
          OBJ\->(INPUT("TOO HIGH",""))\|>G
        ELSE
          IF G<N THEN
            OBJ\->(INPUT("TOO LOW",""))\|>G
          END
        END
      UNTIL G==N END ;
      CLLCD() ;
      MSGBOX(G+" IS CORRECT!")
    \>>
  \>>
\>>

-Wes L