[42S] Test for COMPLEX matrix

[Werner]

Like this? Remember you can use two stack levels

Code:

 X<> "REGS"
 RCL 00
 REAL?
 GTO 00
 XEQ 00
 COMPLEX
 +/-
 COMPLEX
 RTN
*LBL 00
 RDN
 X<> "REGS"
 RTN

or this

Code:

 X<> "REGS"
 RCL 00
 AOFF
 CPX?
 AON
 RDN
 X<> "REGS"
 FC? 48
 RTN
 AOFF
 COMPLEX
 +/-
 COMPLEX
 RTN

Unfortunately, I'm afraid X<> "REGS" makes a copy of the matrix as well, at least I think it does. It doesn't work with a matrix that takes up slightly over half the available memory, it returns 'Insufficient Memory'. Still, I use it in cases where I need access to two matrices at a time.

Cheers, Werner