imag Example

10    COMPLEX C,Z20    C=CMPLX(3,4)30    Z=CMPLX(3453,4444)40    PRINT IMAG(Z)50    PRINT REAL(C),IMAG(C)60    END