On Fri, 12 Mar 2004 09:33:05 -0800, Emerson, Tom
<[log in to unmask]> wrote:

>> -----Original Message-----
>> From: Tracy Pierce [mailto:[log in to unmask]]
>>
>> Got a weird bug in a COBOL program?  1st item: look for GO
>> TO, a very sure signpost of crummy if not quite ancient code.
>
>%print @.livesrce;search=cl"go to";out=$null;page=0
>[...]
>%showvar @print@
>MPEXPRINTLINESFOUND = 15181
>
>%showvar @num@
>MPEXNUMSUCCEEDED = 711
>MPEXNUMFAILED = 0
>
>%calc 15181//711
> 21.351618
>
>so we're AVERAGING 21 GO TO's per program :(
>
>%listf @.livesrce(not fcontains("GO TO")),6
>[...]
>%SHOWVAR @NUMS@
>MPEXNUMSUCCEEDED = 59
>
>and the ratio of programs-with-goto vs. programs-without is about 12:1 --
double :(
>

Just checked one of my bigger programs.

508 go to's
1 GOBACK
and it works.

My favorite on the old series 70 was
Basic
10 goto 10
run

That slowled everything down :) The operator almost killed me, when he
found out. But it was worth a friday afternoon laugh.

Michael

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *