Re: RKC - Programming help
For those of you wondering what the hell is going on here, the program
that I allegedly needed help on is actually a program that Richard
wrote in 1978. It's a game called "Robots". It's applicability as an
employee career simulation is quite remarkable!
FYI, Richard, I got the robots code and a variety of tic-tac-toe
programs that we wrote for a Comp Sci class in 1978. The snazziest
tic-tac-toe code was written by Eric Enderton. Typed and debugged by
Eric, Richard, Dean, and Eric Lifosjoe. Scary.
--- In OliveStarlightOrchestra_at_yahoogroups.com, "Richard Conner"
<rkc_at_p...> wrote:
> --- In OliveStarlightOrchestra_at_yahoogroups.com, "Hiram Gonash"
> <okfreddy_at_h...> wrote:
> > The program is designed to create a visual representation of an
> > employee's career movement through JPL.
>
> Ah - yes, that looks like a fairly standard employee career
> promotion matrix. I believe I can see a few options...
>
> > 25 ;"12>"
> s/b: 25 ;"<12>"
>
> > 31 X=RND(-1)
> This line is redundant... it's merely slowing down your calcs.
>
> > 268 DATA 1,-1,1,0,1,1,0,-1,0,0,0,1,-1,-1,-1,0,-1,1
> I believe our career path advancement matrix at work is:
> 268 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
>
> You could try replacing that line for several years until
> things stablize.
>
> > 1010 GOSUB 8000
> s/b 1010 GOTO 8000
>
> I believe this is one of your major problems, each "GOSUB"
> is really meant to be completed by a "RETURN", whereas
> you are simply starting the next career segment. Given
> several succesful segment completions, the career path may
> overflow the stack and the employee will be forced to
> begin again. Messy, but should a VP suddenly be "promoted"
> back to mailroom, well, there may be some hard feelings.
>
> > 2010 GOSUB 8000
> s/b 2010 GOTO 8000
> (as above)
>
> > 3400 GOTO 8000
> (See -- THIS one was correct!)
>
> Hmm.. Maybe I need to get out more.
>
> Still, 10 minutes private consulting for JPL,
> at $5,000/hour, with a minimum of 4 hours...
> ...where should I send the invoice?
>
> -Richard
Received on 2003-12-11 08:35:12
This archive was generated by hypermail 2.3.0
: 2020-02-04 07:16:18 UTC