[42S] Test for COMPLEX matrix

[Werner]

So, for posterity, the CMAT? function:
CMAT? returns 1 for a complex matrix, 0 for everything else.

Code:


        L       X       Y       Z       T       A
In:             [[]]    y       z       t
Out:    -       0/1     [[]]    y       z       -

{ 23-Byte Prgm }
00*LBL"CMAT?"
01 CLA
02 MAT?
03 ARCL ST X
04 67
05 POSA
06 X<0?
07 ASTO ST X
08 SIGN
09 END

Cheers, Werner