Too bad for you, Steve :( I had a very short work with a nightmarish code, luckily found a new job quickly.

Looks like you may have to re-write some pieces of code if you can figure out what they suppose to do.

I believe insert, objdata and others are arrays, but these are very bad names for them. Use Code Reference tool to find all occurrences.

>I found a program by the same name too; I.PRG .
>
>Yes, I removed the external command, worked fine without it. Thanks.
>
>No, this isn't my code, I took my first look at it last week.
>
>I've worked through about 15 compile errors thus far. Still got a few more that have me stumped;
>
>Program c:\mxm\progs\genmenux.prg has the following errors:
> Unknown INSERT - Undefined
> Unknown OBJDATA - Undefined
>
>Program c:\mxm\progs\procbc.prg has the following errors:
> Unknown CARR - Undefined
>
>Program c:\mxm\progs\procmrp.prg has the following errors:
> Unknown PATABLESUSED - Undefined
>------------------------------------------------------
>

insert(SUBSTR(m.eval_str, 2))

>I suspect is the offending code. There is no FUNCTION INSERT
>Similar situation with objdata
>

m.eval_str = objdata(LEFT(m.eval_str, m.at_pos4-1), SUBSTR(m.eval_str, m.at_pos4+2))

>
>CARR is a keyword because of SET CARRY.
>
>CARR is a parameter passed to a function.
>

FUNCTION nxtab
> PARAMETER carr, c, retnum
> PRIVATE i, cont
> i = c
> cont = .T.
> retnum = 0
> DO WHILE cont
>    DO CASE
>       CASE ASC(carr(i))>=96 .AND. ASC(carr(i))<=127
>          retnum = 2
>          RETURN
>       CASE ASC(carr(i))>=0 .AND. ASC(carr(i))<=31
>          retnum = 1
>          RETURN 1
>    ENDCASE
>    i = i+1
>    IF i>ALEN(carr)
>       retnum = 0
>       RETURN
>    ENDIF
> ENDDO
> retnum = 0
> RETURN
>ENDFUNC

>
>Patables is also a parameter of a function.