Re: 'Money wanted' algorithm (Cobol version)

[beldraen@mail.earthlink.net (Beldraen)]

spam.free.zone@no-spam.com (Doug Miller) wrote:

>>>**>> I  need alot of money badly; Could anyone help?
>>
>>>DC> Step 1 Find empty coffee cup
>>>DC> Step 2 Find busy Street
>>>DC> Step 3 Sit in middle of Street
>>>DC> Step 4 goto Step 3 until sun goes down.
>>>DC> Stpe 5 goto step 1 in the next day.
>>
>>>Tsk, tsk, bad advice. Goto's are evil!
>>
>>>Program Make_Money;
>>
>>>Uses
>>>  Nothing;
>>
>>>begin
>>>  Repeat
>>>    Find(EmptyCoffeeCup);
>>>    Find(BusyStreet);
>>>    Repeat
>>>      Sit(MiddleOfStreet)
>>>    Until Sun(Down)
>>>  Until Hell(FrozenOver)
>>>end.
>>
>>>See mom, I DO have the Christmas spirit!
>>
>>>   Dennis!
>>Hey that's cool can you do it in Cobol?
>>
>Sure thing:
>
>PERFORM WITH TEST AFTER UNTIL hell-frozen-over
>    PERFORM find-empty-coffee-cup
>    PERFORM find-busy-street
>    PERFORM sit-middle-of-street UNTIL sunset
>    PERFORM wait-til-morning
>END-PERFORM

class Make_Money extends java.applet.Applet implements runnable
{
             Thread Body = null;
	fluid_container CoffeeCup;
	stellar_mass Sun;

	public void init()
	{
		CoffeCup = new fluid_container("COFFEE");
		Sun = new stellar_mass();
	}
	public void start()
	{
		if (Sun.Status = Sun.Down) Body == null;
		if(Body == null)
		{
			Body = new Thread(this);
			Body.start();
			Body.goToBusyStreet();
		}
	}
	public void stop()
	{
		Body.goToShelter'
		Body = null;
	}

	public void run()
	{
		long time = System.currentTimeMillis();
		while (Body!= null)
		{
			try
			{
				time += delay;
				Thread.sleep(Math.max(0, time
System.currentTimeMillis()));
			}
			catch (InterruptedException e)
			{
				CoffeeCup.addMoney();
				Body.lookGreatful();
				Body.getMoreConfortable();
			};
			if (Sun.Status = Sun.Down) Body == null;
			repaint();
		}
	}
}
Bel, the mostly sane...

Eagles may fly, but weasles don't get sucked into jet engines.