Re: I scored with my latest acquisition!

["ict@ccess" <gids.rs@sasktel.net>]

On Jun 9, 6:33 pm, Polymorph <mike.a.steph...@gmail.com> wrote:
> On 10/06/2012 9:11 AM, ict@ccess wrote:
>
>
>
> >> Just thought I would share this story, as to find this stuff like this
> >> here in Australia is like winning the lottery. You don't find many IIgs'
> >> for sale, certainly not with this kit installed! This system now gives
> >> my main IIgs a run for its money which cost me an awful lot more!
>
> > It's a vicious circle.  Mike feels like he wins lottery.  Mike
> > convinces wife he won lottery.  Wife makes Mike happy.  Mike feels
> > like he won two lotteries.
>
> LOL... Sounds great in theory, but I'm having a little trouble with the
> "Mike convinces wife he won lottery" part.  :-)
>
> You could probably write it like this:
>
> 10 PRINT "Mike feels like he wins the lottery."
> 20 PRINT "Mike convinces wife he won lottery." : FAIL = 1
> 30 IF FAIL = 1 GOSUB 100 : GOTO 20
> 40 PRINT "Wife makes Mike happy".
> 50 PRINT "Mike feels like he won two lotteries"
> 60 END
> 100 PRINT "Wife is unconvinced; gives Mike a slap in the head."
> 110 RETURN
>


A more accurate analogy

10 PRINT "Mike feels like he wins the lottery." :  HAPPINESS = 10
20 PRINT "Mike tries to convince wife he won the lottery" : FAIL = 1 :
HAPPINESS = HAPPINESS - 1
30 IF FAIL = 1 AND HAPPINESS > 0 THEN 20
40 PRINT "Mike not feeling so happy"
50 PRINT "Mike goes to room and plays on new found acquisition"
60 PRINT "Mike collects a healing potion."  : HAPPINESS = HAPPINESS +
10
70 PRINT "Mike now has another chance to slay the dragon"