(50G) Yes or no
06-26-2014, 02:47 AM (This post was last modified: 06-15-2017 01:43 PM by Gene.)
Post: #1
 CosmicTruth Member Posts: 164 Joined: May 2014
(50G) Yes or no
here is what I have now for YN for 50G.
Code:
%%HP: T(3)A(D)F(.); \<< CLLCD "? Yes or No" + 1 DISP { "YES" "" "" "" "" "NO" } TMENU   DO -1 WAIT   UNTIL { 16.1 42.1 102.1 64.1 11.1 92.1 } SWAP POS     IF DUP     THEN 3.1 - 1     ELSE 1500 .1 BEEP     END   END 0 MENU SIGN \-> X 'X>0' \>>
takes a string then asks for Y or N, Yes or No, 0 or 1 and returns 0 for no 1 for yes.
crude, imperfect, but it works.

Thanks
~~~~8< Art >8~~~~

PS: Please post more 50G stuff :)
07-01-2014, 08:17 AM
Post: #2
 HP67 Senior Member Posts: 636 Joined: Dec 2013
RE: 50G yes or no
Now let's see you write a Magic 8-ball emulator.

It ain't OVER 'till it's 2 PICK
07-01-2014, 11:36 AM (This post was last modified: 07-14-2014 12:20 PM by CosmicTruth.)
Post: #3
 CosmicTruth Member Posts: 164 Joined: May 2014
RE: 50G yes or no
(07-01-2014 08:17 AM)HP67 Wrote:  Now let's see you write a Magic 8-ball emulator.

● It is certain
● It is decidedly so
● Without a doubt
● Yes definitely
● You may rely on it
● As I see it, yes
● Most likely
● Outlook good
● Yes
● Signs point to yes
● Better not tell you now
● Cannot predict now
● Don't count on it
● My sources say no
● Outlook not so good
● Very doubtful

Thanks
~~~~8< Art >8~~~~

PS: Please post more 50G stuff :)
07-01-2014, 02:53 PM
Post: #4
 HP67 Senior Member Posts: 636 Joined: Dec 2013
RE: 50G yes or no
Good going. I was thinking about a graphical version though. Maybe your grob-meister skills will come in handy!

It ain't OVER 'till it's 2 PICK
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)